WinDuos

[Kiffi]

Shalom,

hier mal ein kleines Tool (ca. 40 KB), welches 2 Windows-Explorer-Fenster
in übersichtlicher Form nebeneinander darstellt.

Ordnerkombinationen können für die spätere Verwendung als Favoriten
gespeichert werden

Das Tool ist derzeit noch in einem Alpha-Status (sprich: es funktioniert auf
meinem XP-Rechner). Es wäre interessant, wie es unter anderen
Windows-Versionen (Vista, 2000, etc.) läuft.

Wichtig:
* Die Adresszeile in Euren Explorern muss angeschaltet sein.
* Die Option "Vollständigen Pfad in der Titelleiste anzeigen" muss angeschaltet sein.



(das Erscheinungsbild kann je nach eingestelltem Theme bei Euch anders aussehen.)

Die leere Toolbar ist so beabsichtigt. Wenn alles klappt, werden dort im
weiteren Verlauf der Entwicklung zusätzliche Funktionen abrufbar sein.

Download (ca. 20 KB)

Danke für's testen & Grüße ... Kiffi

// Edit: WinDuos funktioniert nur mit den oben unter "Wichtig" erwähnten Optionen

[Fluid Byte]

"Mindestens ein Explorer konnte nicht gestartet werden."

OS: Windows XP SP 2

[Kiffi]

"Mindestens ein Explorer konnte nicht gestartet werden."

Oha! Das geht ja schon gut los

Kannst Du mir einen Gefallen tun und nachfolgenden Code ausführen und
mir dann sagen, ob beide Pfade korrekt ausgegeben werden?

Danke & Grüße ... Kiffi

Code: Alles auswählen

Procedure.s GetSpecialFolder(Folder.l)
  Protected *itemid.ITEMIDLIST = #Null
  If SHGetSpecialFolderLocation_ (0, Folder, @*itemid) = #NOERROR
    Protected location.s = Space (#MAX_PATH)
    If SHGetPathFromIDList_ (*itemid, @location)
      If Right(location, 1) <> "" : location + "" : EndIf
      ProcedureReturn location
    EndIf
  EndIf
EndProcedure

Debug GetSpecialFolder(#CSIDL_PROFILE)
Debug GetSpecialFolder(#CSIDL_PROGRAM_FILES)

[jpd]

Hi Kiffi,

"Mindestens ein Explorer konnte nicht gestartet werden."

unter vista wird die gleiche fehlermeldung angezeigt!

Ciao
jpd


habe dein code getested und die pfade werden correct angezeigt:

C:\Users\jpd\
C:\Program Files\

[Fluid Byte]

Kannst Du mir einen Gefallen tun und nachfolgenden Code ausführen und
mir dann sagen, ob beide Pfade korrekt ausgegeben werden?

Das werden sie anscheinend:

Code: Alles auswählen

C:\Dokumente und Einstellungen\Administrator\
C:\Programme\

PS: jpd, du hast ein Englisches Vista?

[milan1612]

"Mindestens ein Explorer konnte nicht gestartet werden."

OS: Windows XP SP 2

Bei mir das gleiche...

[jpd]

Hi Fluid Byte,

ich verwende Vista deutsch

in vista
c:\programme\ ist als "link" von c:\program files\

dargestellt.

Ciao
jpd

[Kiffi]

@all, bei denen es nicht funktioniert:

bitte mal ein Explorer-Fenster von Hand öffnen und dann folgenden Code
ausführen. Hier müsste dann mindestens ein Fenster-Handle ausgegeben
werden. Ist das bei Euch so?

Danke im voraus & Grüße ... Kiffi

Code: Alles auswählen

#BufferSize = 2048

Procedure.s GetClassName(Handle.l)
  Protected ClassName.s = Space(#BufferSize)
  GetClassName_(Handle, @ClassName, #BufferSize)
  ProcedureReturn ClassName
EndProcedure
Procedure.s GetTitle(Handle.l)
  Protected Title.s = Space(#BufferSize)
  GetWindowText_(Handle, @Title, #BufferSize)
  ProcedureReturn Title
EndProcedure
Procedure EnumProc(Handle.l, lParam.l)
  Protected ClassName.s = GetClassName(Handle)
  If ClassName = "CabinetWClass" Or ClassName = "ExplorerWClass"
    Debug Handle
  EndIf
  ProcedureReturn #True
EndProcedure

EnumWindows_(@EnumProc(), 0)

[jpd]

Hi Kiffi,

ist ok,

5 werte werde ausgegeben!

Ciao
jpd

[Fluid Byte]

Ich bekomme immer zwei Handles (alles außer PB geschlossen) + die Anzahl momentan geöffneter Explorer Fenster.