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;
Results 1 to 1 of 1
|
Click Here to Expand Forum to Full Width |