Entwickler-Ecke

Windows API - Pfad von "Eigene Dateien"


Andreas Pfau - Di 28.01.03 23:45
Titel: Pfad von "Eigene Dateien"
Hallo,

weiß jemand, wie ich den Pfad des Eigene-Dateien-Ordners rausfinden kann?


Anonymous - Mi 29.01.03 01:24

Such nach "virtuellen Ordnern".

Welche Version von Delphi hast du? Ist leider nicht unwichtig.


Delete - Mi 29.01.03 01:27

SHGetSpecialFolderPath


Tino - Mi 29.01.03 11:50

Hab ich gerade auf meiner Platte gefunden. Obs funktioniert kann ich nicht sagen.

Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
Uses ShlObj;

Function GetFolder (Folder: Integer): String;
Var 
  FilePath: Array [0..MAX_PATH] of Char;
Begin
  SHGetSpecialFolderPath (0, FilePath, Folder, False);
  Result := FilePath;
End;


In Deinem Fall müsstest Du glaube ich die FolderId CSIDL_PERSONAL benutzen:

Quelltext
1:
Label1.Caption := GetFolder (CSIDL_PERSONAL);                    

Gruß
TINO


Andreas Pfau - Mi 29.01.03 17:24

Vielen Dank euch allen fie dei Schnelle Hilfe :D