Delphi. Как можно получить инфу из других программ

Здравствуйте.
Как можно пролучить информацию из других программ на delphi. Например текст из блокнота(не из .txt файла а имено из блокнота)?

 

WinAPI

FindWindow, FindWindoxEx, GetText, ...

 

Code:

function  GetWindText(AHandle:  THandle):  String;
var cb:  DWord;
begin
  cb  :=  SendMessage(AHandle,  WM_GETTEXTLENGTH,  0,  0);
  SetLength(Result,  cb);
  if  cb  >  0  then
  SendMessage(AHandle,  WM_GETTEXT,  cb+1,  LParam(@Result[1]));
end;

Code:

procedure  TForm1.Button1Click(Sender:  TObject);
var AHandle:  THandle;
begin
  AHandle  :=  FindWindow('Notepad',  nil);
  Win32Check(AHandle  <>  0);
  AHandle  :=  FindWindowEx(AHandle,  0,  'Edit',  nil);
  Win32Check(AHandle  <>  0);
  Memo1.Text  :=  GetWindText(AHandle);
end;

 

Ок. спасибо, а если нужно взять информацию из других программ?

 

spy++