Последние записи

made in programmersforum 8

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

6th
Янв

Как программно узнать путь к папке мои документы и рабочий стол?

Posted by Chas under Delphi

Пожалуйста скажите как можно программно узнать путь (адрес) к папке Мои документы и Рабочий стол данного пользователя

Aliens_wolfs
Узнать Рабочий стол и мои документы данного пользователя
Добавь в форму в Uses ActiveX, ShlObj;

//Узнать папку рабочего стола

function GetDeskTopPath : string;

var

  SpecialDir: PItemIdList;

begin

    SetLength(result, MAX_PATH);

    SHGetSpecialFolderLocation(Form1.Handle, CSIDL_DESKTOP, SpecialDir);

    SHGetPathFromIDList(SpecialDir, PChar(Result));

    SetLength(result, lStrLen(PChar(Result)));

end;
//Узнать папку Мои документы

function GetMyDoc : string;

var

  SpecialDir: PItemIdList;

begin

    SetLength(result, MAX_PATH);

    SHGetSpecialFolderLocation(Form1.Handle, CSIDL_PERSONAL, SpecialDir);

    SHGetPathFromIDList(SpecialDir, PChar(Result));

    SetLength(result, lStrLen(PChar(Result)));

end;
//Либо универсальная функция, тогда верхние 2 функции ненужны

function GetPatch(CSIDL: integer) : string;

var

  SpecialDir: PItemIdList;

begin

    SetLength(result, MAX_PATH);

    SHGetSpecialFolderLocation(Form1.Handle, CSIDL, SpecialDir);

    SHGetPathFromIDList(SpecialDir, PChar(Result));

    SetLength(result, lStrLen(PChar(Result)));

end;
procedure TForm1.Button2Click(Sender: TObject);

begin

  showmessage(GetDeskTopPath);

  showmessage(GetMyDoc);

//либо так с помощью одной функции

 showmessage(GetPatch(CSIDL_DESKTOP));

showmessage(GetPatch(CSIDL_PERSONAL));

end;