求程序开机启动控件

Question

Delphi 三方控件中有没控件可以设置开机启动的？

Answer 1

这是注册表设启动项的代码，有可以做成服务 或 建个快捷方式扔到 开始/程序/启动 菜单下procedure TMainFrm.RegAutoRun;
var
  MyReg: TRegistry;
  AppName: string;
begin
  AppName := Application.ExeName;
  MyReg := TRegistry.Create;
  MyReg.RootKey:=HKEY_LOCAL_MACHINE;
  try
    MyReg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\Run', TRUE);
    MYReg.WriteString('SengtongAutoRun',AppName);
    MyReg.CloseKey;
    ShowMessage('设置成功!');
  finally
    MyReg.Free;
  end;
end;

Answer 2

在注册表里注册一下自己的程序就可以了啊，不需要什么控件的。
    MyReg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\Run', TRUE); 
    MYReg.WriteString('SengtongAutoRun',AppName); 
    MyReg.CloseKey; 
    ShowMessage('设置成功!'); 

Answer 3

{楼主，你也只是TOOL BOY的水平了，不知道自己实现吗？}

Answer 4

真懒，干嘛什么都找控件？用 Registry API处理就行了。简单点的可以用类TRegistry。