文件复制和线程问题?

[santwy]

在复制文件过程，不使用线程和使用线程，提示窗体不能动了！
原码大概：
void __fastcall copy_file(String filepath_old, String filepath_new)
{
int file_1 , file_2 ;
long file_size = 0 ;
char *buff ;
file_1 = FileOpen(filepath_old , xx );
file_size = FileSeek(file_1, 0, 2);
FileSeek(file_1, 0, 0);
buff = new char[file_size + 1]
FileRead(file_1, buff, file_size);
FileClose(file_1);
file_2 = FileCreate(filepath_new);
FileWrite(file_2, buff, file_size);
FileClose(file_2);
}

//线程里

Exctue
{
copy_file(filepath_old, filepath_new) ;
}

怎样从主窗体传filepath_old \ filepath_new 参数到线程。

我整个想法是像window的复制一样

[luoweicaisd]

加上这句试一下
application.ProcessMessages

[knock]

想知道

[lj_csdn]

"怎样从主窗体传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;
}

[sensation]

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