文件复制和线程问题?

Question

加上这句试一下
  application.ProcessMessages

Answer 1

"怎样从主窗体传filepath_old \ filepath_new 参数到线程。"delphi会生成如下代码:test(bool CreateSuspended)
        : TThread(CreateSuspended)
{
}->:test(bool CreateSuspended,String from,String to)
        : TThread(CreateSuspended)
{  filepath_old:=from;
   filepath_new:=to;
}

Answer 2

在线程的重写一个构造函数吧，把这两个东西当参数传进去，然后
inherited Create(CreateSuspended);