waitpas.~pas

来自「本软件是一套功能完整成熟的固定资产管理系统,具有固定资产管理系统的相应全部功能」· ~PAS 代码 · 共 49 行

unit waitpas;

interface

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

type
  Tw_wait = class(TForm)
    Image1: TImage;
    Label1: TLabel;
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }

  end;

var
  w_wait: Tw_wait;

implementation

uses datapas;

{$R *.dfm}

FUNCTION SOFTICE():INTEGER;
asm
  MOV EBP,04243484BH
  MOV AX,4h
  INT 3
  CMP AL,4
  END;

procedure Tw_wait.FormActivate(Sender: TObject);
begin
TRY
//如果存在跟踪软件，程序退出
IF SOFTICE()=0 THEN
APPLICATION.Terminate;
EXCEPT
END;
end;

end.