Zwei Windows Explorer starten und nebeneinander bildschirmfüllend positionieren

[hathor]

Vorschlag:

  SEI.nShow := SW_MINIMIZE; macht den Bildaufbau ruhiger.

[mm1256]

Zitat von hathor:

Vorschlag:

  SEI.nShow := SW_MINIMIZE; macht den Bildaufbau ruhiger.

DANKE!

Ein Problem gibt es noch: Die Explorerfenster haben beim Panel oben einen Rand etwa so hoch wie normalerweise die Titelleiste. Damit wollte ich den Rand eigentlich verhindern, aber irgendwas scheint noch zu fehlen. Hab schon rumprobiert, finde aber keine Lösung.

Delphi-Quellcode:

Style := GetWindowLong(aPanel.Tag, GWL_STYLE);
SetWindowLong(aPanel.Tag, GWL_STYLE, Style and NOT WS_BORDER );

Oder weigert sich der Explorer das anzunehmen?

[mm1256]

Hat keiner eine Idee? Wäre schön, wenn man diesen blöden Rand weg bekommen würde.

[hathor]

Das ist nicht der einzige Schönheitsfehler:

Die beiden Explorer-Instanzen bleiben im RAM als Leichen zurück und können nur im Task-Manager beendet werden.
Ich suche eine Lösung, evtl. mit CreateProcess/TerminateProcess.

[mm1256]

Richtig, da fehlt noch was. Aus dem Grund hab ich mir ja auch die Handles im TPanel.Tag gemerkt.

Delphi-Quellcode:

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;

Mir unverständlich ist, dass die Explorer-Instanzen erst nach etwa 20 Sekunden aus dem Taskmanager verschwinden

[hathor]

Zitat von mm1256:

Hat keiner eine Idee? Wäre schön, wenn man diesen blöden Rand weg bekommen würde.

Mit Metro UI Tweaker (im Anhang) kriegt man Ribbon weg.
- > Disable Explorer Ribbon

[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

[hathor]

Am Ende eines Programms sollte man immer PostMessage bevorzugen.
Ich habe es ausserdem in die Destroy-Procedure geschrieben.
Aber es dauert trotzdem lange, bis sie aus dem Task-Manager verschwinden.

Delphi-Quellcode:

procedure TForm1.FormDestroy(Sender: TObject);
begin
  if Panel1.Tag > 0 then PostMessage(Panel1.Tag, WM_CLOSE, 0, 0);
  if Panel2.Tag > 0 then PostMessage(Panel2.Tag, WM_CLOSE, 0, 0);
end;

[markus5766h]

Zitat:

Aber es dauert trotzdem lange, bis sie aus dem Task-Manager verschwinden.

ja, stimmt, bei mir ca. 15 bis 20 Sekunden - aber zuverlässig.