Определить пути к некоторым каталогам Window

ОГЛАВЛЕНИЕ    HOME  MAIL

uses ShlObj;

procedure TForm1.FormCreate(Sender: TObject);
const
  Folders: array [0..15] of integer = (
    CSIDL_BITBUCKET,
    CSIDL_CONTROLS,
    CSIDL_DESKTOP,
    CSIDL_DESKTOPDIRECTORY,
    CSIDL_DRIVES,
    CSIDL_FONTS,
    CSIDL_NETHOOD,
    CSIDL_NETWORK,
    CSIDL_PERSONAL,
    CSIDL_PRINTERS,
    CSIDL_PROGRAMS,
    CSIDL_RECENT,
    CSIDL_SENDTO,
    CSIDL_STARTMENU,
    CSIDL_STARTUP,
    CSIDL_TEMPLATES);

var
  s: PChar;
  p: PItemIDList;
  i: integer;
begin
  s := StrAlloc(128);
  for i := low(Folders) to high(Folders) do begin
    p := nil;
    SHGetSpecialFolderLocation(Form1.Handle, Folders[i], p);
    SHGetPathFromIDList(p, s);
    ListBox1.Items.Add(s);
  end;
end;