Titelloses Fenster eines Fremdprogrammes positionieren?

[PeterPanino]

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.