Zitat von
Luckie:
Nicht nur das Erfassen funktioniert nicht. Hast du denn schon mal geguckt, ob das Fensterhandle überhaupt gütig ist? nd woher kommt die Funktion GetMainAppWndFromPid? Kommt die aus Jcl? hast du diese schon mal debuggt und geguckt, was da passiert?
Was hast du überhaupt schon unternommen, um den Fehler zu finden?
Eine ganze Menge! Ich bitte dich außerdem, einen anderen Ton mir gegenüber zu verwenden! Wenn du etwa glauben solltest, dass ich nur Fragen stelle ohne selbst etwas zu tun (s. paralleler Thread), dann hast du dich gründlich getäuscht!
Ich habe für dieses Forum schon eine Menge eigenen Code geschrieben! Bitte lass deine Vorurteile an jemand anderem aus!
Um wieder zum Thema zurückzukehren: Es ist mir jetzt gelungen, die Koordinaten des Fensters herauszufinden:
Delphi-Quellcode:
program RepositionWindowFromExeName;
{$APPTYPE CONSOLE}
uses
Dialogs,
// debug
JclSysInfo,
SysUtils, Windows;
var
AHandle: THandle;
rc: TRect;
begin
try
AHandle := FindWindow('
#32770',
nil);
GetWindowRect(AHandle, rc);
MessageDlg(IntToStr(rc.Left) + #13#10 +
IntToStr(rc.Top) + #13#10 +
IntToStr(rc.Right) + #13#10 +
IntToStr(rc.Bottom) + #13#10
, mtInformation, [mbOK], 0);
except
on E:
Exception do
Writeln(E.Classname, '
: ', E.
Message);
end;
end.
Jetzt muss ich nur noch eine Methode finden, die Koordinaten des Fensters zu ändern.