Question

delphi怎样让程序自己启动？

比如我点button1时，让form1这个程序写入注册表，下次开机后就可以自动运行了

Answer 1

procedure TfrmDown.btnRegClick(Sender: TObject);
var
s: TRegistry;
sFile: String;
begin
s := TRegistry.Create;
try
s.RootKey := HKEY_LOCAL_MACHINE;
s.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',False);
sFile := ParamStr(0);

s.WriteString(ExtractFileName(sFile),sFile);
finally
s.CloseKey;
s.Free;
end;
end;

Answer 2

这个莫非是……
呵呵刚刚回答了楼上程序的问题……
http://zhidao.baidu.com/question/248619151.html