Определение путей к корзине, автозагрузке, рабочему столу, моим документам и т.д.
Определение путей к корзине, автозагрузке, рабочему столу, моим документам и т.д.
Определение путей к корзине, автозагрузке, рабочему столу, моим документам и т.д. cуществует функция 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;
