Fensterposition/-größe einer fremden Anwendung

[MuTzE]

Ja toll und warum geht der scheiss nicht?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
 TheWindowHandle: THandle;
 aRect: TRect;
begin
 TheWindowHandle := FindWindow(PChar('TApplication'), PChar('Project1'));
 GetWindowRect(TheWindowHandle, aRect);
 label4.Caption := IntToStr(aRect.Left);
 label5.Caption := IntToStr(aRect.Top);
end;

EDIT:


Gut, damit gehts.

TheWindowHandle := FindWindow(PChar('TForm1'), nil);


Aber wie jetz den Namen der anderen Anwendung herausfinden?