uses Registry;
function GetMyDocument: string;
var
reg: TRegistry;
begin
Result := '';
reg := TRegistry.Create;
try
reg.RootKey := HKEY_CURRENT_USER;
if reg.OpenKey('Software/Microsoft/Windows/CurrentVersion/Explorer/Shell Folders',false) then
Result := reg.ReadString('Personal');
reg.CloseKey;
finally
reg.Free;
end;
end;
var
reg: TRegistry;
begin
Result := '';
reg := TRegistry.Create;
try
reg.RootKey := HKEY_CURRENT_USER;
if reg.OpenKey('Software/Microsoft/Windows/CurrentVersion/Explorer/Shell Folders',false) then
Result := reg.ReadString('Personal');
reg.CloseKey;
finally
reg.Free;
end;
end;