unit1.~pas

《Delphi 7应用编程150例》源码（全）

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
    reg:TRegistry;
begin
    reg:=TRegistry.Create;
    reg.RootKey:=HKEY_CLASSES_ROOT;
    //用openkey打开一个主键，如果此主键不存在则自动创建
    if reg.OpenKey('*\shell\MyApp',true) then
    begin
        //用writestring将设置值写入打开的主键
        reg.WriteString('','What is this?');
        reg.Closekey;
    end;
    if reg.openkey('*\shell\MyApp\command',true) then
    begin
        //command子键的内容是点击右键后选择相应项后要运行的程序；
        //%1是在单击右键时选中的文件名
        reg.WriteString('',Application.Exename+' %1');
        reg.Closekey;
    end;
    reg.free;
end;

procedure TForm1.FormDestroy(Sender: TObject);
var
    reg:TRegistry;
begin
    reg:=TRegistry.create;
    reg.RootKey:=HKEY_CLASSES_ROOT;
    //用deletekey删除一个主键，其所包含的子键也被删除，如果已无此主键，
    //运行删除操作不会带来别的危害
    reg.DeleteKey('*\shell\MyApp');
    reg.Free;
end;

end.