有关sendmessage的问题，在线等，分数不够再补！

Question

我的程序需要连接多次用到sendmessage和postmessage,出现问题是，后面好多sendmessage和postmessage都实现不了操作，我在他们中间用了sleep()函数，可以解决一些问题，但还是不是很稳定，调试的时候能实现，但让程序自己运行就不行，大虾们，能有别的什么办法吗，请问多线程能解决这个问题吗，用timer应该不行

Answer 1

但不知道要等多久，我用下列程序
function TFrmAnsys.SendMess(Hwnd:HWND;Msg:Cardinal;wP,lP:integer):boolean;
var
  Value,i:integer;
begin
  result:=false;
  sleep(1000);
  Value:=sendmessage(Hwnd,Msg,wP,lP);
  try
    for i:=0 to 10 do
    begin
      if Value>0 then
      begin
        result:=true;
        break;
      end
      else
        sleep(1000);
    end;
  finally
    abort;
  end;
end;
能行吗？