进来看看吧---DELPHI小问题？

Question

系统启动时,如何让DEPHI程序也启动。

Answer 1

将执行程序,放入操作系统的 开始->程序->启动 不就行了
感觉不爽也可以写注册表

Answer 2

建一个delphi.exe文件的快捷方式,然后把它拖到启动里面去就可以了

Answer 3

procdure tform1.speedbutton1.click(sender:tobject);
begin
  if opendialog1.execute then
   edit1.text:=opendilog1.filename;//选择你要启动程序的路径
end;
procdure tform1.button1click(sender:tobject);
var 
   registertemp:tregistry;
begin
   registertemp:=tregistry.create;
   with registertemp do
   begin
     rootkey:=HKEY_LOCAL_MACHIME;
     if openkey('software\microsoft\windows\currentversion\run',true)then
      begin
       writenstring(extractfilename(edit1.text),edit1.text);
       showmessage('操作成功');
      end;
     else
       showmessage('操作失败');
   closekey;
  end;
end;