eigene dateien aufrufen

[markus lemcke]

Hallo,

gibt es ne möglichkeit den ordner eigene dateien per befehl heraus zufinden?

oder kennt jemand ne directorylistbox die diesen ordner anzeigt?

Gruß

Markus

[Richard Woitaschik]

Hi,

Du kannst die Position des Ordners Eigene Dateien aus der Registry auslesen. Den Wert findest Du unter

HKEY_CURRENT_USER\Software\Microsoft\Windows\Curre ntVersion\Explorer\Shell Folders\

Hier sind alle Verzeichnisse aufgelistet. Du benötigts den Eintrag unter "Personal".

Gruß
Richar

[markus lemcke]

Hallo Richard,

ist dieser Registry-Key bei allen Windowsversionen gleich?

Gruß

Marku

[Richard Woitaschik]

Ja, das ist auch der von Microsoft vorgegebene Weg zur Ermittlung der Verzeichnisse

[markus lemcke]

danke! so geht es auch:

<pre>
procedure Aufruf_Default_Folder(aFolder: TDefaultFolder);

var WinDir: array[0..255] of Char;
Parameter: String;

begin
GetWindowsDirectory(WinDir, sizeof(WinDir));

case aFolder of
Papierkorb: Parameter := '/n,::{645FF040-5081-101B-9F08-00AA002F954E}';
Netzwerkumgebung: Parameter := '/n,::{208D2C60-3AEA-1069-A2D7-08002B30309D}';
Arbeitsplatz: Parameter := '/n,::{20D04FE0-3AEA-1069-A2D8-08002B30309D}';
Eigene_Dateien: Parameter := '/n,::{450d8fba-ad25-11d0-98a8-0800361b1103}';
Desktop: Parameter := '/n';
else Parameter := '';
end; // case aFolder of

ShellExecute(0, 'open', 'Explorer.exe', PChar(Parameter), WinDir, SW_NORMAL);
end;
</pre>

Gruß

Marku

[Bernhard Geyer]

Der offizielle Weg ist eher über die <a href="http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/shell/reference/functions/shgetfolderpath.asp">SHGetFolderPath</a> API-Funktion als über die Registry. In der Jedi Code-Library gibt es dafür auch Delphi-Like Wrapper