Also : ich mache das jetzt so :
Delphi-Quellcode:
// der Anwender ruft das Programm auf
ShellExecute(self.handle, '
open',Pchar(XMLPAth + '
emperormapper.exe'), '
',
nil, SW_SHOW);
// .. delphi wartet ein bisschen bis der Prozess soweit ist das das Fenster steht ..
Sleep(25);
// jetzt funzt der Handle Zugriff und damit auch das verschieben
If ProcessExists('
emperormapper.exe')
then
begin
HANDLE := FindWindow(
Nil,'
EmperorMapper');
MoveWindow(
HANDLE, Left, Top, 461, 430, True);
end;
// das Delphiprogramm wartet bis der Anwender die emperormapper.exe beendet
While ProcessExists('
emperormapper.exe')
do
begin
Application.ProcessMessages;
end;
// es geht weiter
Das funktioniert problemlos.
Aber Elegant ist das nicht. Gibt es da irgendwelche ernsthaften Probleme?
geldis