change the caption of other applications

Author: Babak Sateli

{

If you want to change caption of other runnung application try this command:

}

procedure TForm1.Button1Click(Sender: TObject);

begin

SetWindowText(FindWindow('notepad', nil), 'Hello!');

// or:

SendMessage(FindWindow('notepad', nil), WM_SETTEXT, 0, Integer(PChar('Hello!')));

end;