Gestarteter Windows Explorer

[gkaeberich]

Hallo,

wie kann ich von einem Delphi-Programm aus feststellen, ob der Windows Explorer gestartet ist (egal, in welchem Fenster/Ordner der sich gerade befindet) ?

Danke

Günther

[maxk]

Das einfachste, was mir z.Z. einfällt wäre folgendes:

Delphi-Quellcode:

 if FindWindow('CabinetWClass',nil)<>0 then ShowMessage('Offen') else
  ShowMessage('zu');

[MathiasSimmack]

War das nicht "ExploreWClass"? Ich überlege nämlich schon die ganze Zeit. :?

[SirThornberry]

hab grad nachgesehen - bei mir ist es "ExploreWClass"

[maxk]

Zum sichergeben, kann man auch nochmal diesen Code benutzen und prüfen, ob das Handle zu "explorer.exe" gehört.

@MathiasSimmack: Laut Simon Reinhardts Fensterliste ist es CabinetWClass.

// Edit: Vielleicht liegt's an den Systemen ich verwende XP HE.

[Nothine]

bei mir ist es auch "ExploreWClass", grad ausprobiert

[MathiasSimmack]

Zitat:

Zitat von maxk

@MathiasSimmack: Laut Simon Reinhardts Fensterliste ist es CabinetWClass.

1. Du darfst ruhig nur Mathias zu mir sagen. ;)
2. Ich glaube, "CabinetWClass" gibt es auch. Aber das könnte evtl. die Klasse eines anderen Fensters sein (Systemsteuerung?), denn die Netzwerkumgebung hat (obwohl es prinzipiell ja auch ein Explorer-Fenster ist) IMHO auch einen anderen Namen.

[maxk]

Zitat:

Zitat von MathiasSimmack

1. Du darfst ruhig nur Mathias zu mir sagen. ;)

Das finde ich wirklich nett, aber war eh ein Copy&Paste :mrgreen:

Also ich hab jetzt nochmal geguckt. Egal ob Systemsteuerung, Netzwerkumgebung, Laufwerk oder Verzeichnis - bei mir ist es immer CabinetWClass :|

[w3seek]

Am zuverlaessigsten ist es zu pruefen ob GetShellWindow() einen Fensterhandle zurueckliefert. wenn die funktion 0 zurueckgibt, laeuft keine Shell. Der Vorteil ist, dass das auch mit alternativen Shells funktioniert.

[maxk]

Ich glaube es ging hier aber mehr um das Explorerfenster als Dateibrowser. Ansonsten wäre das natürlich der bessere Weg.

[gkaeberich]

Hallo,

vielen Dank - mit dem ExploreWClass funktioniert das bei mir schon recht gut.

Vielleicht kann mir jemand noch dabei helfen, den laufenden Windows-Explorer (als Dateiexplorer gestartet) zu beenden. Evetuell kann es auch sein, dass der Explorer mehrfach geöffnet wurde und in verschiedenen Verzeichnissen steht.

Danke

Günther

[scp]

ExploreWClass - Wenn "Windows-Explorer" über Verknüpfung gestartet wird, oder explorer.exe ohne Parameter
CabinetWClass - Wenn Ordnerinhalt angezeigt wird, z.B. über Arbeitsplatz.

EDIT:
Explorer beenden:

Delphi-Quellcode:

var
  wnd : HWND;
begin
  wnd := FindWindow('ExploreWClass', nil);
  If wnd <> 0 then
  begin
    ShowMessage(IntToStr(wnd));
    PostMessage(wnd, WM_CLOSE, 0, 0);
  end;
end;

[MathiasSimmack]

Zitat:

Zitat von gkaeberich

Vielleicht kann mir jemand noch dabei helfen, den laufenden Windows-Explorer (als Dateiexplorer gestartet) zu beenden. Evetuell kann es auch sein, dass der Explorer mehrfach geöffnet wurde und in verschiedenen Verzeichnissen steht.

Stichwort: [dp]"EnumWindows"[/dp]. Damit "loopst" du durch alle Fenster (nicht mit Prozessen verwechseln!) durch. Von jedem erhältst du den Klassennamen, so dass das Beenden dann bspw. so funktioniert, wie scp zeigt.

[maxk]

Zitat:

Zitat von scp

ExploreWClass - Wenn "Windows-Explorer" über Verknüpfung gestartet wird, oder explorer.exe ohne Parameter
CabinetWClass - Wenn Ordnerinhalt angezeigt wird, z.B. über Arbeitsplatz.

Auf sowas kommt wirklich nur Kleinweich - naja, dann bin ich wenigstens nicht verrückt ;)

[gkaeberich]

Hallo,

ich habe den folgenden Code in mein Programm eingebaut, aber leider bleiben die beiden gestarteten Explorer (die in verschiedenen Verzeichnissen stehen) offen.

if FindWindow ('ExploreWClass',nil) <> 0 then
begin
wnd := FindWindow('ExploreWClass', nil);
If wnd <> 0 then
PostMessage(wnd, WM_CLOSE, 0, 0);
end;

Woran kann das liegen ?

Günther

[Christian Seehase]

Moin Günther,

da ich mal annehme, dass Du kontrolliert hast, dass die PostMessage Zeile überhaupt aufgerufen wird... ;-)

Probier's mal mit WM_SYSCOMMAND und SC_CLOSE.

[MathiasSimmack]

Abgesehen davon wird er mit dem gezeigten Befehl vermutlich nur einen der beiden Explorer schließen (wenn er ihn nicht mehrfach aufruft). Darum ja auch der Hinweis auf "EnumWindows".