02-11-2012, 12:48 PM
شكرا لك
وهذه اجرائية من برمجتي لا تنسوا إضافة registry في قائمة uses
وهذه اجرائية من برمجتي لا تنسوا إضافة registry في قائمة uses
كود :
function GET_DOC_PATH():string ;
var s:array[0..255] of char; Reg:TRegistry;
begin
Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_USERS;
Reg.OpenKey('\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders',True);
Result:=Reg.ReadString('Personal');
Reg.free;
ExpandEnvironmentStrings(PChar(Result),s,256);
Result:=s;
end;