电脑启动程序自动启动

procedure SetAppAutoRun(boolAutoRun:boolean);
begin
  if boolAutoRun then
     SetRegStr('SOFTWARE\Microsoft\Windows\CurrentVersion\Run','UnitServer',Application.Exename)
  else
     DelRegStr('SOFTWARE\Microsoft\Windows\CurrentVersion\Run','UnitServer');
end;