Category: Windows
Title: Change the caption of other applications
Date added: 15.03.2006
Hits: 4271
{ Open notepad and run this: }
procedure TForm1.Button1Click(Sender: TObject);
begin
SetWindowText(FindWindow('notepad', nil), 'Hello!');
SendMessage(FindWindow('notepad', nil), WM_SETTEXT, 0, Integer(PChar('Hello!')));
end;