电脑启动程序自动启动

电脑启动程序自动启动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;