怎么修改注册表的值？唧唧唧……

Question

先检测有没有，有则修改，没有就添加HKEY_LOCAL_MACHINE\Software\Microsoft\MSDTC
AllowonlySecureRpcCalls=0  （DWORD）
TurnoffRpcSecurity=1        （DWORD）

Answer 1

procedure TForm1.WMEndSession(var Message: TWMEndSession);
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_CURRENT_USER;
    if Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\RunOnce', True)
    then Reg.WriteString('MyApp','"' + ParamStr(0) + '"');
  finally
    Reg.CloseKey;
    Reg.Free;
    inherited;
  end;
end;

Answer 2

uses
 Registry;
//设置密码
procedure Tfrmpass.okClick(Sender: TObject);
begin
try  TheReg := TRegistry.Create;
  TheReg.RootKey := HKEY_LOCAL_MACHINE;
  KeyName := 'SOFTWARE\Game32';
  //有该键则打开，没有则创建
if TheReg.OpenKey(KeyName,True) then
begin
  //tempStr:=ExtractFileName(Application.ExeName); //读取密码
  TheReg.WriteString('game',pass('1zmkkm1'));
  TheReg.CloseKey;
end;
  TheReg.Free;
  label1.Caption := '搞定！';
except
label1.Caption := '错误！';
end;end;

Answer 3

这是读TheReg := TRegistry.Create;
TheReg.RootKey := HKEY_LOCAL_MACHINE;
KeyName := 'SOFTWARE\Game32';
  //有该键则打开，没有则创建
if TheReg.OpenKey(KeyName,True) then
begin
  //tempStr:=ExtractFileName(Application.ExeName); //读取密码
  ValueStr:=TheReg.ReadString('game');
  TheReg.CloseKey;
  //密码不为空则修改窗体为验证密码
  if ValueStr<>'' then
  begin
    if ValueStr='1zmkkm1' then
    begin
      …………;
    end;

Answer 4

unit JF_setup;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Registry;type
  TForm23 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form23: TForm23;implementation{$R *.dfm}procedure TForm23.FormCreate(Sender: TObject);
var
  Reg: TRegistry;
  a,b:string ;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    if Reg.OpenKey('\SOFTWARE\longshine\bdwjf', False) then
    begin
      a := Reg.ReadString('LogSite');
      b := Reg.ReadString('HostName');
    end ;
  finally
    Reg.CloseKey;
    Reg.Free;
    form23.Edit1.Text := a ;
    form23.Edit2.Text := b ;
  end;
end;procedure TForm23.Button2Click(Sender: TObject);
begin
  close ;
end;procedure TForm23.Button1Click(Sender: TObject);
var
  Reg: TRegistry;
  a,b:string ;
begin
  a := form23.Edit1.Text ;
  b := form23.Edit2.Text ;
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    if Reg.OpenKey('\SOFTWARE\longshine\bdwjf', True) then
    begin
      Reg.WriteString('LogSite',a);
      Reg.WriteString('HostName',b);
    end ;
  finally
    Reg.CloseKey;
    Reg.Free;
    showmessage ('更改成功!') ;
  end;
  close ;
end;end.