Mega Code Archive

 

Categories / Delphi / Examples

 

How to change the caption of other applications

Title: How to change the caption of other applications procedure TForm1.Button1Click(Sender: TObject); begin SetWindowText(FindWindow('notepad', nil), 'Hello!'); // or: SendMessage(FindWindow('notepad', nil), WM_SETTEXT, 0, Integer(PChar('Hello!'))); end;