最近做一個東東,需要讀取HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run下的所有鍵值,結果卻不行,代碼如下

var Reg: TRegistry;

begin

  Reg := TRegistry.Create;

  Reg.RootKey = HKEY_LOCAL_MACHINE;

  if Reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',false) then begin

    Caption := Reg.ReadString('APoint');

   // Reg.GetValues(....) //失敗!!! 

    //這里就讀不到了,GetLastError返回5,權限不足!

  end;

end;

后來網上反復查找,很多網友說要提升UAC權限,還給出了一個.Res文件,結果用上這個文件還是不行,最后實在沒轍,瞎看了一下,發(fā)現TRegistry的構造函數還有參數呢, 試一下:

  Reg := TRegistry.Create(KEY_WRITE OR KEY_READ or KEY_WOW64_64KEY);

測試,OK!

所有問題解決!!