98不能运行成功，XP下能运行成功的一段数据恢复代码 |
|
缺席
|
|
ntjrr
高階會員   發表：240 回覆：312 積分：110 註冊：2005-04-24 發送簡訊給我 |
procedure Tsjhfform.SpeedButton1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
Edit1.Text:=OpenDialog1.FileName;
end; procedure Tsjhfform.Button1Click(Sender: TObject);
var
openString:string;
begin
openString:=Edit1.Text;
if OpenString='' then
begin
showmessage('请选择备份数据库文件');
exit;
end;
if Application.MessageBox('是否恢复为以前备份过的数据，原数据将覆盖现有数据','提示框',MB_YESNO MB_ICONQUESTION)=IDNO then
exit;
CopyFile(PChar(OpenDialog1.FileName), PChar(ApplicationPath 'mzsf.mdb'), False);
Messagebox(handle,'数据恢复成功,请重新运行软件','数据恢复',mb_iconinformation mb_ok);
Application.Terminate;
end; procedure Tsjhfform.FormCreate(Sender: TObject);
begin
ApplicationPath:=ExtractFilePath(Application.ExeName);
if copy(ApplicationPath,length(ApplicationPath),1)<>'\' then
ApplicationPath:=ApplicationPath '\';
end; end.
上述代码在XP下运行成功，数据库还原后能够覆盖，98下运行后无错误提示，但数据库内容没有被覆盖
------
我的编程起步于ktop，我将永远支持ktop |
發表時間：2005-06-23 21:35:06
IP:222.184.xxx.xxx 未訂閱
系統時間：2024-06-02 21:41:44
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |