如题...

解决方案 »

  1.   

    http://community.csdn.net/Expert/topic/4473/4473837.xml?temp=.8222467
      

  2.   

    RegQueryValueEx(Key,pChar(Value),nil,@ptype,@Data, @Size); //读注册表
    RegSetValueEx(Key, pChar(Value), 0, REG_DWORD, @Data, Size); //写注册表
      

  3.   

    delphi自带的例子:
    var
      Reg: TRegistry;
    begin
      Reg := TRegistry.Create;
      try
        Reg.RootKey := HKEY_CURRENT_USER;
        if Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\RunOnce', True) then
        begin
          Reg.WriteString('MyApp','"' + ParamStr(0) + '"');
          Reg.CloseKey;
        end;
      finally
        Reg.Free;
        inherited;
      end;end;