Delphi技术
-
编辑 删除
CopyFile
if Not DirectoryExists('D:mylicaiBackUp') then//如果目錄不存在 if not ForceDirectories('D:mylicaiBackUp') then//創建目錄 begin showmessage('創建D:mylicaiBackUp失敗,備份不成功!!'); exit; end; if FileExists('D:DataBasemyTable.dbf') then //檢測文件是否存在 if CopyFile(pchar('D:DataBasemyTable.dbf'),Pchar('D:BackUpmyTable.dbf'),false)=0 then //copy 文件,不成功返回0 showmessage('備份D:mylicaiDataBasemyTable.dbf失敗,備份不成功!!');[@more@]
-
编辑 删除
Close
procedure TfrmMain.CloseForm;begin if assigned(self.mAvailableForm) then begin Try self.mAvailableForm.Close ; except end; end;end;[@more@]
