unit1.~pas

简单的 关于注册表如何编辑的方法

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,registry;

type
  TForm1 = class(TForm)
    new: TButton;
    read: TButton;
    delete: TButton;
    procedure newClick(Sender: TObject);
    procedure readClick(Sender: TObject);
    procedure deleteClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.newClick(Sender: TObject);
var ini : TRegIniFile;
begin
  ini := TRegIniFile.Create('');
  ini.RootKey:=HKEY_LOCAL_MACHINE;
  ini.WriteString('Software\Microsoft\Windows\CurrentVersion\Run','RemoteOperate','remoteControl.exe');
  //................................主键................................键值名.........键值......
  ini.Free;
end;

procedure TForm1.readClick(Sender: TObject);
var ini:TRegIniFile;
RegStr:String;
begin
   ini:= TRegIniFile.Create('');
   ini.RootKey:=HKEY_LOCAL_MACHINE;
   RegStr:=ini.ReadString('Software\Microsoft\Windows\CurrentVersion\Run','RemoteOperate','');
   ini.Free;
   ShowMessage(RegStr);
end;

procedure TForm1.deleteClick(Sender: TObject);
var ini:TRegIniFile;
begin
   ini:= TRegIniFile.Create('');
   ini.RootKey:=HKEY_LOCAL_MACHINE;
   ini.DeleteKey('Software\Microsoft\Windows\CurrentVersion\Run','RemoteOperate');
   ini.Free;
end;

end.