install.dpr

来自「Delphi函数工厂。。。。。。。。。。。。。」· DPR 代码 · 共 22 行

program install;

uses
 Registry,Messages,SysUtils,Windows;

{$R *.res}
const version:array[1..3]of string=('5.0','6.0','7.0');
var
reg:Tregistry;
i:integer;
begin
reg:=TRegistry.Create;
reg.RootKey:=HKEY_CURRENT_USER;
for i := 1 to 3 do    // Iterate
begin
reg.OpenKey('Software\Borland\Delphi\'+version[i]+'\Experts',true);
reg.WriteString('DelphiFactory',ExtractFilePath(ParamStr(0))+'Experts.dll');
reg.CloseKey;
end;    // for
MessageBoxA(0, 'Delphi函数工厂成功的加入了Delphi IDE菜单中,'+#13#10#13#10+'        您在Tools菜单中将会看到它.', '消息', MB_OK);;
end.