一个奇怪的问题，大家帮忙看看

Question

我在做数据还原的时候出现了一个问题，不知道该怎么解决，希望看到的能帮帮我！
在选择文件的按钮的click事件是这样的：
procedure TForm15.BitBtn1Click(Sender: TObject);
begin
if opendialog1.Execute then
edit1.Text:=opendialog1.FileName
else
edit1.Clear;
end;
确定按钮的click事件如下：
procedure TForm15.Button1Click(Sender: TObject);
begin
if edit1.Text<>'' then
begin
try
copyfile(pchar(edit1.text),'e:\汽车行驶记录仪\db\db1.mdb',false);
showmessage('备份成功');
except
showmessage('系统出错');
end;
end;
end;
执行后在选择目录和文件的时候点击几下后鼠标就没反应了，delphi也没有反应，有时甚至要重启计算机才行。后来我屏蔽掉button1下的代码，选择文件没有任何问题。我想问题可能在button1上，但是备份的时候代码跟这一样只是目录参数不同而已都没问题的。希望大虾们能帮我解决问题

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
  if edit1.Text<>'' then
  begin
    try
      application.ProcessMessages
      copyfile(pchar(edit1.text),'e:\汽车行驶记录仪\db\db1.mdb',false);
      showmessage('备份成功');
    except
      showmessage('系统出错');
    end;
  end;end;如果还是有问题，请按一下Alt+Tab看看，可能是showmessage在后面去了

Answer 2

能告诉我一下application.ProcessMessages是起什么作用的吗？
现在不敢轻易的试，因为可能死机重启麻烦

Answer 3

db1.mdb数据库是不是还被使用?

Answer 4

查一下帮助就得:Interrupts the execution of an application so that it can process the event queue.
中断应用程序执行,执行当前队列中的任务!

Answer 5

db1.mdb是连着当前工程的数据库，是不是要先中止，该怎么中止？

Answer 6

我按照cdsgajxlp(起名很难)兄弟的方法结果还是一样的，我又试了其他的，都不行，又重启了几次。
怎么没人回答啊，难道都不屑于回答这种问题的么？

Answer 7

在备份时,把用到数据库的一切连接全部断开,然后再拷贝,不过就是用到了数据库,在拷贝时也不至于死机,而是拷贝不成功而已,
copyfile(pchar(edit1.text),'e:\汽车行驶记录仪\db\db1.mdb',false);改为这样单独一句:
copyfile(pchar('c:\'),'e:\汽车行驶记录仪\db\db1.mdb',false);
再试试看;

Answer 8

断开连接后还是不行，我快晕了
我觉得不是跟数据连接的问题，因为我备份的时候都没问题
不过备份的时候没有用opendialog，不知道是不是opendialog的原因
大家指点一下啊

Answer 9

procedure TForm15.Button1Click(Sender: TObject);
begin
if edit1.Text<>'' then
begin
try//在这之前要把所有连接断掉
//如 ADOConnection1.Connected := False;copyfile(pchar(edit1.text),'e:\汽车行驶记录仪\db\db1.mdb',false);
showmessage('备份成功');
except
showmessage('系统出错');
end;
end;
end;

Answer 10

hqhhh(枫叶),我这么试过，一样的
根本没有机会跟踪啊，鼠标键盘都没反应了