Zwei Windows Explorer starten und nebeneinander bildschirmfüllend positionieren

[markus5766h]

Moin aus Hamburg.

Code:

procedure TFrmExplorer2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if Panel1.Tag > 0 then SendMessage(Panel1.Tag, WM_CLOSE, 0, 0);
  if Panel2.Tag > 0 then SendMessage(Panel2.Tag, WM_CLOSE, 0, 0);
end;

... PostMessage scheint hier zuverlässiger zu sein.
Selbst nach mehrmaligen Starten werden alle Instanzen gelöscht,
bei SendMessage habe ich immer Leichen mit ca. 8Mb und 6 Threads im Taskmanager