如何用程序实现开机自动运行程序？

Question

我想实现开机自动运行程序，不是在注册表里的那种，如CLICK一BUTTON就实现了
谢谢，
顺便问一下托盘程序是怎么样的实现过程，感谢大家！

Answer 1

var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_CURRENT_USER;
    if Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run', True) then begin
      Reg.WriteString('JCDataSyn', Application.ExeName);
      Reg.CloseKey;
    end;
  finally
    Reg.Free;
    inherited;
  end;
end;

Answer 2

请问cooltrayicon在哪个控件包里啊

Answer 3

var
  reg:Tregistry;
  vDataBase,RunPath : String;
begin
  reg:=Tregistry.create;
  reg.rootkey:=HKEY_CURRENT_USER;
  if reg.openkey('\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN',True) then
   begin
    vDataBase := reg.ReadString('AutoUpdate');
    RunPath:=ExtractFileDir(Application.ExeName);
    RunPath:=Runpath+'\PosAutoUpdate.exe';
    if (vDataBase='') or (vDataBase<>RunPath) then
       reg.WriteString('AutoUpdate',RunPath);
    reg.closekey;
  end;
  Reg.Free;
end;

Answer 4

把它放在開始--->運行---->下就OK了

Answer 5

www.delphibox.com里查找cooltrayIcon就行了