Мои документы

← →
Хуже чайника (2006-08-02 20:44) [0]

Я начинаю работать с Delphi, и мне надо узнать где находиться папка мои документы, как можно сделать

← →
Megabyte © (2006-08-02 21:10) [1]

Правой кнопкой мыши по "своему компьютеру", выбираешь поиск/search, дальше сам...

← →
Rial © (2006-08-02 21:18) [2]

function ExtractRegName(Const Root:DWord;Const Path,Name:String):String;
Var Reg:TRegistry;
begin
Reg:=TRegistry.Create;
Reg.RootKey:=Root;
Try
If Reg.OpenKey(Path,False)then Result:=Reg.ReadString(Name);
Finally
Reg.Free;
end;
end;

function ExtractShellFolderName(Const Name:String):String;
begin
Result:=ExtractRegName(HKEY_CURRENT_USER,
"\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders",
Name);
end;

В итоге - ExtractShellFolderName("Personal")

← →
Хуже чайника (2006-08-02 21:35) [3]

Rial ©
Да я так и делал, но у меня например в реестре написано "%USERPROFILE%\Мои Документы", Что означает %USERPROFILE%\!?

← →
Rial © (2006-08-02 21:36) [4]

GetEnvironmentVariable("USERPROFILE")

← →
Хуже чайника (2006-08-02 21:58) [5]

GetEnvironmentVariable("USERPROFILE"), она результат в STRINGE возращает?

← →
vrem (2006-08-02 22:01) [6]

Ху ча друг бамбуча! :) читай справку! читай яндекс! чаться в сети!

SHGetSpecialFolderPath с флагом CSIDL_PERSONAL

Мои документы Найти похожие ветки