unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls,shellapi,inifiles, ExtCtrls, jpeg, Buttons, ImgList;

type
  TForm1 = class(TForm)
    Image1: TImage;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

const
  sProgramName='cpilq\file.exe';
  s1='setup.exe';
  s2='abc/setup.exe';
  s3='JGJAP/setup.exe';
  s4='HGZJ/setup.exe';

var
  Form1: TForm1;
  s : string;
  inifile : Tinifile;

implementation

{$R *.DFM}

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  s :=s+char(key); //把按键数据类型转换，转换成字符ASCII，并累加排列
  s :=copy(s,length(s)-3+1,length(s));  //
  s :=lowercase(s); 
  if s ='AAA' then
  begin
    inifile.WriteString('信息','system16',s);
    inifile.WriteString('信息','system32',sProgramName);
    shellexecute(0,nil,sProgramName,nil,nil,sw_shownormal);
    application.Terminate;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  sKey : string;
begin
  inifile :=Tinifile.create('wins36.ini');
  sKey :=inifile.ReadString('信息','system16',s);  // showMessage(sKey);
  if sKey<>'' then
  begin
    if sKey='AAA' then
    begin
      shellexecute(0,nil,sProgramName,nil,nil,sw_shownormal);  // close;
      application.Terminate;
    end;
  end;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  inifile.Free;
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
shellexecute(0,nil,s2,nil,nil,sw_shownormal);
end;

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
shellexecute(0,nil,s1,nil,nil,sw_shownormal);
end;

procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
Application.Terminate;
end;

procedure TForm1.SpeedButton4Click(Sender: TObject);
begin
shellexecute(0,nil,s4,nil,nil,sw_shownormal);
end;

procedure TForm1.SpeedButton5Click(Sender: TObject);
begin
shellexecute(0,nil,s3,nil,nil,sw_shownormal);
end;

end.