Sandrila Ltd Delphi Code

// get the path to the MyDocuments folder
function getMyDocumentsFolder(): string;

function getMyDocumentsFolder(): string;
var
  reg: TRegistry;
begin
  reg := nil;
  try
    reg := TRegistry.Create;
    reg.RootKey := HKEY_CURRENT_USER;
    reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders', false);
    getMyDocumentsFolder := reg.ReadString('Personal');
  finally
    reg.free;
  end;
end;

Home