Определить пути к некоторым каталогам Window
Для определения путей к корзине, автозагрузке, рабочему столу, моим документам и т.д. существует функция WinAPI SHGetSpecialFolderLocation. Эта программа выводит в список пути к папкам, которые можно получить при помощи этой функции. 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;
