autostart.pas

delphi开发的进程监视程序

unit AutoStart;

interface
implementation
uses
  Windows, Registry, Forms;
var
  RegF: TRegistry;
initialization
  ///////////////开机启动
  RegF := TRegistry.Create;
  RegF.RootKey := HKEY_LOCAL_MACHINE;
  try
    if RegF.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',True) then
      if ParamStr(1) <> '' then
        RegF.WriteString('ProcGuard', '"' + application.exename + '" ' + ParamStr(1))
      else
        RegF.WriteString('ProcGuard', '"' + application.exename + '"');
  finally
    RegF.CloseKey;
  End;
  RegF.Free;
  /////////////
end.