高手请教，Dll中的新建线程？主是是Synchronize问题，以下代码为何老出错：“Missing operator or semicolon”

Question

function MyThreadFunc(P:pointer):Longint;stdcall;
var
  i:longint;
  DC:HDC;
  S:string;
begin
  DC:=GetDC(FormPluginClient.Handle);
  for i:=0 to 500000 do begin
    S:=Inttostr(i);
    Textout(DC,10,10,Pchar(S),length(S));
  end;
  ReleaseDC(FormPluginClient.Handle,DC);
end;procedure TFormPluginClient.PushTheButton;
begin
  //Button1.Click();
end;procedure TFormPluginClient.UsedThreadClick(Sender: TObject);
var
  hThread:Thandle;//定义一个句柄
  ThreadID:DWord;
begin
  Synchronize(PushTheButton);
  //Synchronize(ThreadClick);
//创建线程，同时线程函数被调用
  hthread:=CreateThread(nil,0,@MyThreadfunc,nil,0,ThreadID);
  if hThread=0 then
  messagebox(Handle,'Didn’tCreateaThread',nil,MB_OK);
end;

Answer 1

messagebox(Handle,'Didn’tCreateaThread',nil,MB_OK); 改成
'Did not '

Answer 2

cncharles，不是这原因引起的。

Answer 3

你Build All Projects看看在哪一行出错!

Answer 4

用sendmessage代替 “Button1.Click()”

Answer 5

错误在于：Synchronize(PushTheButton);Synchronize应该是TThread的一个方法吧，在TFormPluginClient.UsedThreadClick直接这样使用是不行的。这里的Synchronize表示的是Windows单元的常量SYNCHRONIZE = $00100000;