讀registry去取得"我的文件"目錄

uses registry;

procedure TForm1.Button1Click(Sender: TObject);
var
  reg:Tregistry;
begin
//取得我的文件目錄
  reg:=Tregistry.create;
  reg.RootKey:=HKEY_USERS;
  reg.OpenKey('\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders',false);
  is_Personal:=reg.readstring('Personal');  //is_Personal是'我的文件'目錄位置
  reg.CloseKey ;
  reg.free;
end;