Текущий архив: 2002.04.08;
Скачать: CL | DM;

Вниз

Где искать рабочий стол?   Найти похожие ветки 

← →
Сержик ©   (2002-03-26 12:00) [0]

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

---

← →
Dimka Maslov ©   (2002-03-26 12:16) [1]

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;

---

← →
Сержик ©   (2002-03-26 13:02) [2]

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

---

Страницы: 1 вся ветка

Текущий архив: 2002.04.08;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.015 c