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

Вниз

как получить путь к папке "Мои Документы"   Найти похожие ветки 

← →
tytus ©   (2007-07-30 10:15) [0]

Доброго дня мастера.
Вот можно использовать %USERPROFILE%\Documents (как пишет Билли на своем сайте) а затем ExpandEnvironmentStrings.
А ежели сию папку перенесли в другое место (D:\Мои Документы - как сделал я и это правильно имхо), как тогда.
В папке %USERPROFILE%\моих документов ужо не окажется.. Как искать???

---

← →
Юрий Зотов ©   (2007-07-30 10:25) [1]

Посмотрите:
SHGetSpecialFolderLocation
SHGetSpecialFolderPath
SHGetFolderLocation
ShGetFolderPath

---

← →
tytus ©   (2007-07-30 10:33) [2]

>Юрий Зотов ©   (30.07.07 10:25) [1]
Совершенно забыл о сих функциях!! Спасибо!!

---

← →
umbra ©   (2007-07-30 10:52) [3]

myDocs := GetEnvironmentVariable("USERPROFILE");

---

← →
tytus ©   (2007-07-30 11:05) [4]

function GetPersonal:string;
var
 buf:Pchar;
 IDL:PItemIDList;
begin
 GetMem(buf,MAX_PATH);
 try
   OleCheck(SHGetSpecialFolderLocation(0,CSIDL_PERSONAL,IDL));
   if SHGetPathFromIDList(IDL,buf) then
     Result:=StrPas(buf)
   else
     Result:="C:\";
 finally
   FreeMem(buf);
 end;
end;

---

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

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

Наверх

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