winnet.~dpr

来自「软件功能：32位图形界面程序」· ~DPR 代码 · 共 16 行

program winnet;

uses
  Forms,crc32,
  win8139 in 'win8139.pas' {Form1};

{$R *.RES}
//VAR fil:tfilestream;
begin
 if  Calc_CRC(application.exename,946,4,true,true,383362)<>-554756721 then exit;
  Application.Initialize;
  Application.Title := '8139写码器';
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.