?? compress.dpr
字號:
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.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -