Question

利用delphi7创建一个exe文件,高手进

利用delphi7创建一个exe文件，运行后添加到注册表自动启动，但不执行任何功能，求代码

Answer 1

unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Registry;type
TForm1 = class(TForm)
chk1: TCheckBox;
procedure chk1Click(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementationuses Math, StrUtils;{$R *.dfm}var
reg: TRegistry;procedure TForm1.chk1Click(Sender: TObject);
begin
reg := TRegistry.Create;
reg.RootKey := DWORD($80000002);
reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run', True);
try
if chk1.Checked then
reg.WriteString('App1', ExpandFileName(Application.ExeName))
else
reg.DeleteValue('App1');
except
reg.CloseKey;
reg.Free;
end;
end; end.

Answer 2

温柔