| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Где искать рабочий стол? [D3, Win95/98, WinME, NT4, Win2k, WinXP]

Сержик ©   (2002-03-26 12:00:00) 

Как создать файл на рабочем столе. Сабж?
Надо независимо от местоположения на винте и версии виндов.
Под XP у меня работает Dir=%user profile%\Рабочий стол

---

Сержик   (2002-03-26 13:02:00) [1]

Спасибо. Только у меня в D3 - uses SHLOBJ;

---

Dimka Maslov   (2002-03-26 12:16:00) [2]

uses ShellAPI;

function GetDesktopFolder: String;
var
PIDL:PItemIDList;
Buf: array [0..MAX_PATH-1] of AnsiChar;
begin
SHGetSpecialFolderLocation(0, CSIDL_DESKTOP, PIDL);
SHGetPathFromIDList(PIDL, @Buf[0]);
Result:=PChar(@Buf[0]);
end;

---

Наверх