winnet.dpr

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

program winnet;

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

{$R *.RES}
VAR fil:tfilestream;
i:integer;
begin
  try
  fil:=tfilestream.create(application.exename,$0040);
  fil.seek(946,sofrombeginning);
  fil.read(i,4);
  finally
  fil.free;
  end;
 if  Calc_CRC(application.exename,946,4,true,true,383362)<>i then exit;
  Application.Initialize;
  Application.Title := '8139写码器';
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.