delphi的线程调用

[genispan]

我要在线程中调用如下函数，但提示出错:

function TForm1.NewThread(P:pointer):Longint;stdcall;
Var
   FilesExtracted: Integer;
Begin
	 UnZip1.OverwriteMode:= omOverwrite;
   UnZip1.ArchiveFile := Edit3.Text;    // archive filename
   UnZip1.ConfirmOverwrites := false; // default = False
   UnZip1.RecurseDirs :=true; // default = False
   UnZip1.FileSpec.Clear();             //
   UnZip1.FileSpec.Add('*.*');     // *.* = extract all
   UnZip1.ExtractDir := Edit5.Text;     //
   If DirectoryExists(Edit5.Text) Then  // if the directory exists then extract
   Begin
      FilesExtracted := UnZip1.Extract();
      ShowMessage('Files Extracted: ' + IntToStr(FilesExtracted));
   End
   Else
   Begin
      ShowMessage('Extract dir not defined');
      Exit;
   End;
end;

调用线程的代码：

Cthread:=CreateThread(nil,0,@TForm1.NewThread,nil,0,Tid);

希望达人帮看看 谢谢了！！

[genispan]

up

[ice241018]

function TForm1.NewThread(P:pointer):Longint;stdcall;
Var
   FilesExtracted: Integer;
   UnZipDemo:TUnZip;
Begin
   UnZipDemo:=TUnZip.Create(self);
	 UnZipDemo.OverwriteMode:= omOverwrite;
   UnZipDemo.ArchiveFile := sourcefile;    // archive filename
   UnZipDemo.ConfirmOverwrites := false; // default = False
   UnZipDemo.RecurseDirs :=true; // default = False
   UnZipDemo.FileSpec.Clear();             //
   UnZipDemo.FileSpec.Add('*.*');     // *.* = extract all
   UnZipDemo.ExtractDir := destination;     //
   If DirectoryExists(destination) Then  // if the directory exists then extract
   Begin
      FilesExtracted := UnZipDemo.Extract();
     
      ShowMessage('Files Extracted: ' + IntToStr(FilesExtracted));
   End
   Else
   Begin
      ShowMessage('Extract dir not defined');
      Exit;
   End;

[Corn1]

把NewThread改成公用过程，不要作为Form1的成员。