getxcl.dpr

经过研究本人初略的将原代码进行了模拟

program getxcl;

uses
  Forms, messages, windows, shellapi, Sysutils,
  Unit1 in 'Unit1.pas' {MainGetScr},
  BMPCRC in 'BMPCRC.pas',
  fun2 in 'fun2.pas',
  BmpSet in 'BmpSet.pas';

{$R *.res}
begin
  Application.Initialize;
  Application.Title := 'getx-II';
  Application.CreateForm(TMainGetScr, MainGetScr);
  Application.Run;

end.