Bezeichnungen von SpecialFoldern?

[Popov]

Weiß einer wie man üblicherweise an die Klarnamen für die SpecialFolder kommt? Gibt es da eine Funktion oder bedient man sich da des physikalischen Namens?

Bei XP scheint alles sowieso irgendwie noch landesspezifisch benannt zu sein. So heißt der Eigene Dateien Ordner physikalisch auch so. Bei Window 7 scheint das schon irgendwie anders zu sein.

Ich frage deshalb, weil ich hier ein englischsprachiges Programm vor mir habe und dort gibt es eine ListBox mit einigen Spezialordnern. Nur haben alle Ordner dort englische Bezeichnungen, also z. B. My Documents für Eigene Dateien.

Mich wundert es also, dass der Programmierer die englischen Bezeichnungen fest einprogrammiert hat, da man sie doch eigentlich als Ordnernamen auslesen kann.

Dann aber gibt man CSIDL_INTERNET ein und es kommt nichts raus. CSIDL_INTERNET hat keinen Ordner (zumindest ist mir keiner bekannt). Auch hat CSIDL_DRIVES anscheinend keinen Ordner. Das ist meiner Kenntnis nach der Arbeitsplatz. Somit stellt sich die Frage wie man an diese Namen kommt?

Kommt man bei den anderen Ordnern noch über den Ordnernamen an die Bezeichnung, wie kommt man an die Namen von Virtuellen Ordnern?

[Progman]

Delphi-Quellcode:

uses
  SysUtils, Windows, Forms, Graphics, Types, Classes, IniFiles,
  ...
  ActiveX,  // IMalloc
  ShellAPI, // SHGetSpecialFolderLocation() und SHGetPathFromIDList()
  ShlObj;   // CSIDL_-Konstanten


{Einige Spezial-Folders:
CSIDL_COOKIES              Cookies
CSIDL_DESKTOPDIRECTORY     Desktop
CSIDL_FAVORITES            Favoriten
CSIDL_HISTORY              Internet-Verlauf
CSIDL_INTERNET_CACHE       "Temporary Internet Files"
CSIDL_PERSONAL             Eigene Dateien
CSIDL_PROGRAMS             "Programme" im Startmenü
CSIDL_RECENT               "Dokumente" im Startmenü
CSIDL_SENDTO               "Senden an" im Kontextmenü
CSIDL_STARTMENU            Startmenü
CSIDL_STARTUP              Autostart
}

function GetSpecialFolder(hWindow: HWND; Folder: Integer): String;
var
  pMalloc: IMalloc;
  pidl: PItemIDList;
  Path: PChar;
begin
  if (SHGetMalloc(pMalloc) <> S_OK) then Exit;
  SHGetSpecialFolderLocation(hWindow, Folder, pidl);
  GetMem(Path, MAX_PATH);
  SHGetPathFromIDList(pidl, Path);
  Result := Path;
  FreeMem(Path);
  pMalloc.Free(pidl);
end;

Vielleicht damit?

[DeddyH]

Und wieder das Microsoft-Wirrwarr

[Sir Rufo]

Zitat von DeddyH:

Und wieder das Microsoft-Wirrwarr

Und wo ist jetzt das Problem, das man mit ein bisschen Abstraktion nicht lösen kann?

[DeddyH]

Dass sich mit fast jeder neuen Windows-Version die Vorgehensweise ändert. Aber wenn Du eine abstrakte hast, ist das ja alles zu verschmerzen, solange die nicht auch irgendwann als deprecated gekennzeichnet wird.

[Sir Rufo]

Da ich diese Abstraktion vornehme müsste ich diese auf deprecated setzen.