|
|
导航: |
论坛 -> DELPHI技术
斑竹:liumazi,sephil |
|
作者: |
|
2003/6/2 14:35:56 |
标题: |
|
加入我的收藏 |
楼主: |
procedure TFmMain.MmiBackClick(Sender: TObject); var SFile,DFile : String ;
begin SFile := ExtractFileDir(Application.ExeName) ; SFile := SFile + '\Guest.mdb' ;
SDlg.Title := '选择备份路径';
//备份对话框初始化 SDlg.InitialDir := GetCurrentDir ; SDlg.FileName := '备份(' + DateToStr(now) + ')' ;
if SDlg.Execute then begin DFile := SDlg.FileName +'.bf' ;
CopyFile(PChar(SFile),PChar(DFile),False); end ;
end;
----------------------------------------------
|
|