unitautorun.~pas

来自「我为某旅游局开发 的评委评估系统」· ~PAS 代码 · 共 53 行

unit UnitAutoRun;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,registry;

type
  TFormAutoRun = class(TForm)
    CheckBox2: TCheckBox;
    Button1: TButton;
    GroupBox1: TGroupBox;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormAutoRun: TFormAutoRun;

implementation

{$R *.dfm}

procedure TFormAutoRun.Button1Click(Sender: TObject);
var reg:tregistry; path:string;
begin
  reg:=tregistry.Create;
  reg.RootKey:=HKEY_LOCAL_MACHINE;
  try
  if reg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\Run',false) then
   begin
     path:=application.ExeName;
     if checkbox2.Checked then
       reg.WriteString('autoshutdown',path)
     else
       begin
        if reg.ValueExists('autoshutdown') then
          reg.DeleteValue('autoshutdown');
       end;
   end;
  finally
  reg.Free;
  close;
end;

end;

end.