怎样使我的程序, 在windows系统一开机就运行呢? win28,win2k下的

Question

加入注册表中 RUN主键下就可以了

Answer 1

user registery
procedure addreg(a: boolean);
//添加soft 到启动项目
var
  RegF: TRegistry;
begin
  RegF := TRegistry.Create;
  RegF.RootKey := HKEY_LOCAL_MACHINE;
  try
    RegF.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',
      True);
    if a then
      RegF.WriteString('soft',
        application.ExeName)
    else
      begin
        regf.DeleteValue('soft');
      end;
  except
    application.MessageBox('写注册表错误!', '错误提示', mb_ok);
  end;
  RegF.CloseKey;
  RegF.Free;end;