Code:procedure TForm1.Button1Click(Sender: TObject);
begin
SetWindowText(FindWindow('notepad', nil), 'New Window Text');
// or:
SendMessage(FindWindow('notepad', nil), WM_SETTEXT, 0, Integer(PChar('New Window Text')));
end;
Printable View
Code:procedure TForm1.Button1Click(Sender: TObject);
begin
SetWindowText(FindWindow('notepad', nil), 'New Window Text');
// or:
SendMessage(FindWindow('notepad', nil), WM_SETTEXT, 0, Integer(PChar('New Window Text')));
end;