关于线程的问题，窗口不能移动了。。。

Question

在我的form里
:  mythread := pingthread.thread_ping.Create(false);
  mythread.FreeOnTerminate:=true;
  mythread.Resume;
  WaitForSingleObject(mythread.Handle,INFINITE);线程放在另一个单元里：procedure thread_ping.Execute;
var
  aIdICMPClient: TIdICMPClient;
begin
  aIdICMPClient:= TIdICMPClient.Create(nil);
  aIdICMPClient.Host:= 'www.mysite.com';
  try
    aIdICMPClient.Ping();
    //连上了
  except
    //连不上
  end;
  aIdICMPClient.Free;
end;
那么我如何知道线程里的结果啊？还有我现在用WaitForSingleObject
窗口死住了，怎么解决？

Answer 1

用了
WaitForSingleObject(mythread.Handle,INFINITE);
主线程是要等的
要不，再开线程监视他