Standardordner "Eigene Bilder"

[stahli]

Wie kann man unter NT ... XP und Vista den Standardordner "Eigene Bilder" ermitteln?
Ich möchte den in OpenPictureDialog entsprechend voreinstellen.

Muss man die Registry durchsuchen?

stahli

[Hawkeye219]

Hallo stahli,

in diesem Beitrag solltest du fündig werden.

Gruß Hawkeye

[grenzgaenger]

versuch's mal mit

• CSIDL_MYPICTURES = $27; // Eigene Bilder

Delphi-Quellcode:

FUNCTION GetSpecialFolder(hWindow: HWND; Folder: INTEGER): STRING;
VAR
 pMalloc: IMalloc;
 pidl:    PItemIDList;
 Path:    PChar;
BEGIN
 IF (SHGetMalloc(pMalloc) <> S_OK) THEN
 BEGIN
  MessageBox(hWindow, 'Couldn''t get pointer to IMalloc interface.', 'SHGetMalloc(pMalloc)', 16);
  Exit;
 END;
 SHGetSpecialFolderLocation(hWindow, Folder, pidl);
 GetMem(Path, MAX_PATH);
 SHGetPathFromIDList(pidl, Path);
 Result := Path;
 FreeMem(Path);

 pMalloc.Free(pidl);
END;

<HTH>

[stahli]

Hallo grenzgaenger,

danke dafür. Ich dachte, das wäre einfacher - aber es funktioniert :-)

hWindow weise ich 0 zu.

Nach den Units musste ich eine Weile suchen:
- IMalloc ... ActiveX
- PItemIDList u.a. ... ShlObj
- CSIDL_MYPICTURES ... nicht gefunden und daher selbst deklariert

stahli

[Matze]

Hallo,

als Ergänzung sei angemerkt, dass genau das in der Code-Library steht. Samt Units und Konstanten. ;)

Grüße

[Dani]

Vorsicht, falls SHGetMalloc(pMalloc) <> S_OK wahr wird. Die Funktion liefert dann ein undefiniertes Ergebnis.

[ATS3788]

Danke für den Beitrag

http://www.delphipraxis.net/421-pfad...ermitteln.html

:thumb:

Martin Michael

[DeddyH]

Nunja, der Beitrag hat 10 Jahre auf dem Buckel, mittlerweile geht das mit SHGetFolderPath oder SHGetKnownFolderPath (Unit SHFolder) etwas einfacher.