win2000下如何写注册表?

Question

我用以下程序写注册表,在win98下没有问题,如果在win2000或xp中,只要用户权限不够,就会出错,怎么办?procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
var
  reg:TRegistry;
begin
  try
    reg:=TRegistry.Create(HKEY_CURRENT_USER);
    if Reg.OpenKey('\Software\mysoft\dd, True) then
    begin
      Reg.WriteString('Keyname',strValue);
      Reg.CloseKey;
    end;
  finally
    Reg.Free;
  end;end;

Answer 1

我也有这个问题。
你先考虑直接用windows api吧。
象 RegCreateKeyEx,RegOpenKeyEx

Answer 2

非法操作
该内存不能为read

Answer 3

var 
  ErrCode,lpdwDisposition,RegKey:integer;ErrCode:=RegCreateKeyEx(HKEY_LOCAL_MACHINE,'SOFTWARE\LanHelper',0,nil,REG_OPTION_NON_VOLATILE,KEY_ALL_ACCESS,nil,RegKey,@lpdwDisposition) ;
if ErrCode = 5 then begin //没有权限
   application.terminate;
   exit;
end;