start.pas

1. 发卡服务端：Server 项目文件：autojet.prj 2. 计费客户端：Client 项目文件：internet.prj Explorer.prj 先启动Exp

unit Start;

interface

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

type
  TFrm_Start = class(TForm)
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_Start: TFrm_Start;

implementation

{$R *.dfm}
var
  RegTmp: TRegistry ;

function RegisterServiceProcess(dwProcessID, dwTYPE: integer): integer; stdcall; external 'KERNEL32.DLL';

procedure TFrm_Start.FormCreate(Sender: TObject);
var
  tep: integer ;
begin
  tep := 0 ;
  systemparametersinfo(spi_screensaverrunning,1,@tep,0);    // 禁止CTRL+ALT+DEL
  RegisterServiceProcess(GetCurrentProcessID,1)  ;          // 1 = 在任务监视器中隐藏这个任务

  RegTmp := TRegistry.Create ;
  with RegTmp do
  begin
    RootKey := HKEY_LOCAL_MACHINE ;
    OpenKey('\SoftWare\Microsoft\ADEL',true);
    WriteString('Start', '1');
  end;
end;

procedure TFrm_Start.FormClose(Sender: TObject; var Action: TCloseAction);
var
  tep: integer ;
begin
  tep := 0 ;
  systemparametersinfo(spi_screensaverrunning,0,@tep,0);
  RegisterServiceProcess(GetCurrentProcessID,0)  ;
  RegTmp.Free ;
end;

procedure TFrm_Start.Timer1Timer(Sender: TObject);
begin
  if RegTmp.readString('Start')='0' then begin
      Timer1.Enabled := false ;
      RegTmp.closekey;
      close ;
  end;
end;

end.