Zwei Windows Explorer starten und nebeneinander bildschirmfüllend positionieren

[DeddyH]

Nur so ein paar Ideen: wenn Du doch eh schon ShellExecuteEx verwendest, hast Du doch auch das Prozesshandle. Das könntest Du erstens dazu benutzen, um mit WaitForInputIdle darauf zu warten, dass der Prozess "befehlsbereit" ist, zum anderen dazu, mit EnumWindows und GetWindowThreadProcessId (oder ähnlichen Funktionen) das oder die Fenster zu ermitteln, die zum gerade gestarteten Prozess gehören (dürfte ja eigentlich nur ein Top-Level-Window je Explorer-Instanz sein, wenn ich keinen Denkfehler mache). Und das passt Du dann eben entsprechend an.

[mm1256]

"WaitForInputIdle" hab ich ja schon versucht, siehe Kommentar, aber das kommt sofort zurück.

Die grundsätzliche Idee die hinter der Verwendung von ShellExecuteEx steckt ist ja, über das Processhandle auf das WindowHandle zu kommen. Aber wie? Da fehlt mir leider das Basiswissen.

Na ja, wenn es nicht geht, auch nicht schlimm. Ist kein Pflichtprojekt

[hathor]

Andere Version - aber die Version in #2 gefällt mir besser...

Delphi-Quellcode:

Function CallFileName( pFileName, pParameter : PChar): THandle;
var SEI: TShellExecuteInfo;
begin
 FillChar(SEI, SizeOf(SEI), 0);
 SEI.cbSize       := SizeOf(SEI);
 SEI.fMask        := SEE_MASK_NOCLOSEPROCESS;
 SEI.Wnd          := GetTopWindow(0);
 SEI.lpVerb       := 'OPEN';
 SEI.lpFile       := pFileName;
 SEI.lpParameters := pParameter;
 SEI.lpDirectory  := '';
 SEI.nShow        := SW_SHOWNORMAL;
 SEI.hInstApp     := 0;
 SEI.hProcess     := 0;

 ShellExecuteEx( @SEI );
 Sleep(500);
 Result := SEI.hProcess;
end;

procedure TForm1.Button1Click(Sender: TObject);
var tmpHandle : THandle;
begin
  tmpHandle :=CallFileName(PChar('Explorer.exe'), PChar('F:\TOOLS'));
  MoveWindow(GetForegroundWindow, 0, 0,(Screen.Width div 2), Screen.WorkAreaHeight, True);

  tmpHandle :=CallFileName(PChar('Explorer.exe'), PChar('C:\'));
  MoveWindow(GetForegroundWindow, Screen.Width div 2, 0,(Screen.Width div 2), Screen.WorkAreaHeight, True);
end;