StringToKnownFolder gesucht

[defede]

Hi, das könnte dir helfen?
Es braucht noch GetSpecialFolder was per "iWord" die Variable "sDir" befüllt.

Delphi-Quellcode:

type TMyItem = record
    sDir  : String; //pfad wird später ermitteln...
    iWord : Word;
    sName : String;
end;

var
  oMyList : Array[0..56] of TMyItem = (
    (sDir:'';iWord:CSIDL_DESKTOP;sName:'<desktop>'),
    (sDir:'';iWord:CSIDL_INTERNET;sName:'Internet Explorer (icon on desktop)'),
    (sDir:'';iWord:CSIDL_PROGRAMS;sName:'Start Menu\Programs'),
    (sDir:'';iWord:CSIDL_CONTROLS;sName:'My Computer\Control Panel'),
    (sDir:'';iWord:CSIDL_PRINTERS;sName:'My Computer\Printers'),
    (sDir:'';iWord:CSIDL_PERSONAL;sName:'My Documents'),
    (sDir:'';iWord:CSIDL_FAVORITES;sName:'<user name>\Favorites'),
    (sDir:'';iWord:CSIDL_STARTUP;sName:'Start Menu\Programs\Startup'),
    (sDir:'';iWord:CSIDL_RECENT;sName:'<user name>\Recent'),
    (sDir:'';iWord:CSIDL_SENDTO;sName:'<user name>\SendTo'),
    (sDir:'';iWord:CSIDL_BITBUCKET;sName:'<desktop>\Recycle Bin'),
    (sDir:'';iWord:CSIDL_STARTMENU;sName:'<user name>\Start Menu'),
    (sDir:'';iWord:CSIDL_MYDOCUMENTS;sName:'Personal was just a silly name for My Documents'),
    (sDir:'';iWord:CSIDL_MYMUSIC;sName:'"My Music" folder'),
    (sDir:'';iWord:CSIDL_MYVIDEO;sName:'"My Videos" folder'),
    (sDir:'';iWord:CSIDL_DESKTOPDIRECTORY;sName:'<user name>\Desktop'),
    (sDir:'';iWord:CSIDL_DRIVES;sName:'My Computer'),
    (sDir:'';iWord:CSIDL_NETWORK;sName:'Network Neighborhood (My Network Places)'),
    (sDir:'';iWord:CSIDL_NETHOOD;sName:'<user name>\nethood'),
    (sDir:'';iWord:CSIDL_FONTS;sName:' windows\fonts'),
    (sDir:'';iWord:CSIDL_TEMPLATES;sName:'CSIDL_TEMPLATES'),
    (sDir:'';iWord:CSIDL_COMMON_STARTMENU;sName:'All Users\Start Menu'),
    (sDir:'';iWord:CSIDL_COMMON_PROGRAMS;sName:'All Users\Start Menu\Programs'),
    (sDir:'';iWord:CSIDL_COMMON_STARTUP;sName:'All Users\Startup'),
    (sDir:'';iWord:CSIDL_COMMON_DESKTOPDIRECTORY;sName:'All Users\Desktop'),
    (sDir:'';iWord:CSIDL_APPDATA;sName:'<user name>\Application Data'),
    (sDir:'';iWord:CSIDL_PRINTHOOD;sName:'<user name>\PrintHood'),
    (sDir:'';iWord:CSIDL_LOCAL_APPDATA;sName:'<user name>\Local Settings\Applicaiton Data (non roaming)'),
    (sDir:'';iWord:CSIDL_ALTSTARTUP;sName:'non localized startup'),
    (sDir:'';iWord:CSIDL_COMMON_ALTSTARTUP;sName:'non localized common startup'),
    (sDir:'';iWord:CSIDL_COMMON_FAVORITES;sName:'CSIDL_COMMON_FAVORITES'),
    (sDir:'';iWord:CSIDL_INTERNET_CACHE;sName:'CSIDL_INTERNET_CACHE'),
    (sDir:'';iWord:CSIDL_COOKIES;sName:'CSIDL_COOKIES'),
    (sDir:'';iWord:CSIDL_HISTORY;sName:'CSIDL_HISTORY'),
    (sDir:'';iWord:CSIDL_COMMON_APPDATA;sName:'All Users\Application Data'),
    (sDir:'';iWord:CSIDL_WINDOWS;sName:'GetWindowsDirectory()'),
    (sDir:'';iWord:CSIDL_SYSTEM;sName:'GetSystemDirectory('),
    (sDir:'';iWord:CSIDL_PROGRAM_FILES;sName:'C:\Program Files'),
    (sDir:'';iWord:CSIDL_MYPICTURES;sName:'C:\Program Files\My Pictures'),
    (sDir:'';iWord:CSIDL_PROFILE;sName:'USERPROFILE'),
    (sDir:'';iWord:CSIDL_SYSTEMX86;sName:' x86 system directory on RISC'),
    (sDir:'';iWord:CSIDL_PROGRAM_FILESX86;sName:'x86 C:\Program Files on RISC'),
    (sDir:'';iWord:CSIDL_PROGRAM_FILES_COMMON;sName:'C:\Program Files\Common'),
    (sDir:'';iWord:CSIDL_PROGRAM_FILES_COMMONX86;sName:'x86 Program Files\Common on RISC'),
    (sDir:'';iWord:CSIDL_COMMON_TEMPLATES;sName:'All Users\Templates'),
    (sDir:'';iWord:CSIDL_COMMON_DOCUMENTS;sName:'All Users\Documents'),
    (sDir:'';iWord:CSIDL_COMMON_ADMINTOOLS;sName:'All Users\Start Menu\Programs\Administrative Tools'),
    (sDir:'';iWord:CSIDL_ADMINTOOLS;sName:'<user name>\Start Menu\Programs\Administrative Tools'),
    (sDir:'';iWord:CSIDL_CONNECTIONS;sName:'Network and Dial-up Connections'),
    (sDir:'';iWord:CSIDL_COMMON_MUSIC;sName:'All Users\My Music'),
    (sDir:'';iWord:CSIDL_COMMON_PICTURES;sName:'All Users\My Pictures'),
    (sDir:'';iWord:CSIDL_COMMON_VIDEO;sName:'All Users\My Video'),
    (sDir:'';iWord:CSIDL_RESOURCES;sName:'Resource Directory'),
    (sDir:'';iWord:CSIDL_RESOURCES_LOCALIZED;sName:'Localized Resource Direcotry'),
    (sDir:'';iWord:CSIDL_COMMON_OEM_LINKS;sName:'CSIDL_COMMON_OEM_LINKS'),
    (sDir:'';iWord:CSIDL_DESKTOP;sName:'Links to All Users OEM specific apps'),
    (sDir:'';iWord:CSIDL_CDBURN_AREA;sName:'USERPROFILE\Local Settings\Application Data\Microsoft\CD Burning')
  );