...change the caption of other applications?

Author: Babak Sateli
Homepage: http://www.cdcenterco.com

Category: System

{
  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;

 

printed from
www.swissdelphicenter.ch
developers knowledge base