Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.016 c
3-1181301983
denis24
2007-06-08 15:26
2007.10.14
select top 10


9-1161459290
prodigy
2006-10-21 23:34
2007.10.14
DelphiX


2-1190123521
brian
2007-09-18 17:52
2007.10.14
key violation


2-1190271390
-=Germe$=-
2007-09-20 10:56
2007.10.14
Вопрос по ДЛЛ


3-1180935795
ambhtr
2007-06-04 09:43
2007.10.14
Удаление дубликатов из таблиц