| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> DELPHI技术 斑竹:liumazi,sephil | |||||
| 作者： |
|
2004/3/5 9:47:22 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | 为什么没有拷贝上,我给文件加了目录也不行,请指点 ---------------------------------------------- 2222 |
|||||
| 作者： |
|
2004/3/5 9:53:27 | ||||
| 1楼： | procedure Tfrmdata.BitBtn2Click(Sender: TObject); var Name: string; begin if labedit_backup.Text =' then begin application.MessageBox('请输入备份的数据库名称:','提示',0); labedit_backup.SetFocus; exit; end; if commondata.SQLConnection1.Connected=true then commondata.SQLConnection1.Connected:=true; //ProgressBar1. Name := ExtractFilePath(Application.ExeName)+ 'data\'+trim(labedit_backup.Text)+'.bak'; showmessage(name); if FileExists(Name) then DeleteFile(Name); // CopyFile(pchar(ExtractFilePath(Application.ExeName)+ 'data\123'), pchar(sDBName), true); application.MessageBox( '数据库备份成功!', '提示', mb_IconInformation + mb_Ok); commondata.SQLConnection1.Open; end;刚才的问题解决了,现在我执行完这些操作后为什么我的窗体就关闭了, ---------------------------------------------- 2222 |
|||||
| 作者： |
|
2004/3/5 9:57:12 | ||||
| 1楼： | var i, j: AnsiString; begin i:=C:\boot.ini; j:=D:\boot.ini; if Windows.CopyFile(pchar(i), pchar(j), false) then ShowMessage('文件已经复制') else showmessage('发生错误: ' + IntToStr(GetLastError)); end; 这个没问题,我试过. ---------------------------------------------- - |
|||||
| 作者： |
|
2004/3/5 10:04:49 | ||||
| 2楼： | 是错误还是没有执行拷贝,如果是错误的话,看一下有没有uses中已经加了filectrl. 如果是没有执行的话,你再看看什么地方设置错了,应该是可以的: ---------------------------------------------- <<努力自信爱心>>菜鸟中的菜鸟 |
|||||
| 信息 |
| 登陆以后才能回复 |
