compress.dpr

来自「支持Access自动压缩及运行程序」· DPR 代码 · 共 24 行

program Compress;

uses
  Forms,
  UCompress in 'UCompress.pas' {frmCompress},
  UCAniIcon in 'UCAniIcon.pas';

{$R *.res}
var Param:String;
    i:Integer;
begin
  Param:='';
  for i:=1 to ParamCount do
    if Param='' then
      Param:=ParamStr(i)
    else
      Param:=Param+';'+ParamStr(i);
  Application.Initialize;
  Application.Title := 'ETOP数据压缩工具';
  Application.CreateForm(TfrmCompress, frmCompress);
  frmCompress.Param:=Param;
  Application.Run;
end.