我没试过用WINZIP
在我的一个系统中我有的是ARJ实现的定时备份的,备份文件名为当前的系统日期时间
希望能有用
procedure TMAIN.Timer1Timer(Sender: TObject);
VAR AYEAR,AMONTH,ADAY,AHOUR,AMIN,ASEC,AMSEC:WORD;
APPPATH,COMM:STRING;
begin
APPPATH:=ExtractFileDir(Application.Exename);//取得程序路径
DELETEFILE(APPPATH+'\BACKUP\'+'\WXQPCBDB.ARJ');//删除上次备份不成功的文件
DECODEDATE(DATE(),AYEAR,AMONTH,ADAY);//取得系统日期
DECODETIME(TIME(),AHOUR,AMIN,ASEC,AMSEC);//时间
COMM:='ARJ.EXE A '+APPPATH+'\BACKUP\WXQPCBDB '+APPPATH+'\USER.* '+APPPATH+'\ADDR.*';
WINEXEC(PCHAR(COMM),0);//实现备件,文件名为WXQPCBDB.ARJ
SLEEP(1000); //暂停1秒,在WIN98下停1秒,2000下只要0.5秒,如是A盘,嘿嘿,2秒吧
//否则不能实现换名的
COMM:=INTTOSTR(AYEAR)+'-'+INTTOSTR(AMONTH)+'-'+INTTOSTR(ADAY)+'_'+INTTOSTR(AHOUR)+'-'+INTTOSTR(AMIN)+'-'+INTTOSTR(ASEC);
RENAMEFILE(APPPATH+'\BACKUP\WXQPCBDB.ARJ', APPPATH+'\BACKUP\'+COMM+'.ARJ');
//换名为日期时间
end;这个方法有点问题,就是每次WIN98中运行都会有一个WINOLDAP的进程,用编程的方法可以去除,
我没试过,我是用一个ARJ.PIF来实现的,在ARJ的快捷方式的属性中,选上“退出时关闭”即可可别忘了我没说过 USES 中加入 ShellAPI
在我的一个系统中我有的是ARJ实现的定时备份的,备份文件名为当前的系统日期时间
希望能有用
procedure TMAIN.Timer1Timer(Sender: TObject);
VAR AYEAR,AMONTH,ADAY,AHOUR,AMIN,ASEC,AMSEC:WORD;
APPPATH,COMM:STRING;
begin
APPPATH:=ExtractFileDir(Application.Exename);//取得程序路径
DELETEFILE(APPPATH+'\BACKUP\'+'\WXQPCBDB.ARJ');//删除上次备份不成功的文件
DECODEDATE(DATE(),AYEAR,AMONTH,ADAY);//取得系统日期
DECODETIME(TIME(),AHOUR,AMIN,ASEC,AMSEC);//时间
COMM:='ARJ.EXE A '+APPPATH+'\BACKUP\WXQPCBDB '+APPPATH+'\USER.* '+APPPATH+'\ADDR.*';
WINEXEC(PCHAR(COMM),0);//实现备件,文件名为WXQPCBDB.ARJ
SLEEP(1000); //暂停1秒,在WIN98下停1秒,2000下只要0.5秒,如是A盘,嘿嘿,2秒吧
//否则不能实现换名的
COMM:=INTTOSTR(AYEAR)+'-'+INTTOSTR(AMONTH)+'-'+INTTOSTR(ADAY)+'_'+INTTOSTR(AHOUR)+'-'+INTTOSTR(AMIN)+'-'+INTTOSTR(ASEC);
RENAMEFILE(APPPATH+'\BACKUP\WXQPCBDB.ARJ', APPPATH+'\BACKUP\'+COMM+'.ARJ');
//换名为日期时间
end;这个方法有点问题,就是每次WIN98中运行都会有一个WINOLDAP的进程,用编程的方法可以去除,
我没试过,我是用一个ARJ.PIF来实现的,在ARJ的快捷方式的属性中,选上“退出时关闭”即可可别忘了我没说过 USES 中加入 ShellAPI
解决方案 »
- 求助:RAVE的DIRECT DATA VIEW 不能采集DBGRID里的数据
- 关于ADOQUERY动态添加计算字段的问题,向高手请教
- 急、急、急:怎样实现TreeView的开始拖拽?
- FastReport,如何分组分页打印?
- 截获了键盘的按键,现在要把回车等信息转换一下,具体内容请进
- 数据格式显示转换问题
- MDI程序中,如何屏蔽掉子窗口的右上角的最小化和关闭按钮
- 关于并口通信的问题! 欢迎大家帮忙!
- 各位给个例子,TExcelApplication的用法,或者给段代码,多谢
- 關於undeclared identifier: 'self'
- 请问如何执行格式化当前分区 ?
- 怎样把hex转化为string或数字
如何用呢,谢先
ShellApi;procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(Handle, 'Open', 'C:\Temp\1.zip', nil, nil, SW_SHOW);
end;
我去试一下