compress.dpr

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

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
  begin
    if (Copy(ParamStr(i),1,3)='/b:')or(Copy(ParamStr(i),1,3)='/p:')or
       (Copy(ParamStr(i),1,3)='/r:') then
    Param:=Param+ParamStr(i)
    else
    Param:=Param+' '+ParamStr(i);
  end;
   // 命令行模式  Compress /b:Mybase.mdb /p:mima /r:regedit
   // 如果没有密码时，可以是 '/p: ' 或不写,也就是 '/p:'后面加空格就可以
   // /r:D:\SFT\新建 文 sdsd 件夹\3 2.exe /s 这样也支持
  Application.Initialize;
 // Application.Title := 'Access数据库压缩工具';
  Application.CreateForm(TfrmCompress, frmCompress);
  frmCompress.Param:=Param;
  frmCompress.Edit1.Text:=Param;
  Application.Run;

end.