как получить путь к папке "Мои Документы"

← →
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");

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;

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