mit dem Programmname an den Fenstertitel heran kommen?

[smart]

Hallo.

ich habe mir mal folgendes zusammen gebaut:

Delphi-Quellcode:

function GetText(Wnd: HWND): string;
var
  textlength: Integer;
  Text: PChar;
begin
  textlength := SendMessage(Wnd, WM_GETTEXTLENGTH, 0, 0);
  if textlength = 0 then Result := ''
  else
  begin
    GetMem(Text, textlength + 1);
    SendMessage(Wnd, WM_GETTEXT, textlength + 1, Integer(Text));
    Result := Text;
    FreeMem(Text);
  end;
end;

Aufruf mit

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  hWindow: HWND;
begin
  hWindow := FindWindow('notepad', nil);
  Label2.Caption := GetText(hWindow);

end;

mit dem Programm notepad klappt die ganze Sache aber mit anderen Programmen nicht. Was mache ich falsch?

Gruß
Heike