易截截图软件、单文件、免安装、纯绿色、仅160KB

delphi WaitForSingleObject 函数

1.线程代码：
procedure TTest.Execute;
var
  i:integer;
begin
  { Place thread code here }
  OnTerminate:=Form1.Done;
  if WaitForSingleObject(HMux,INFINITE)=WAIT_OBJECT_0 then
  begin
  for i:= 1 to 128 do
    begin
      Garry[i]:=form1.Getnum();
      sleep(5);
    end;
  end;
  //ReleaseMutex(HMux);
end;

end.
2.主体
procedure TForm1.Button1Click(Sender: TObject);
begin
HMux:=CreateMutex(nil,false,nil);
TTest.Create(false);
TTest.Create(false);
end;

请高手解释下WaitForSingleObject 在不使用//ReleaseMutex(HMux); 释放互斥体的情况下 程序应该一直把线程#2休眠，函数一直没有返回 才对，就是说程序一直处于等待状态，可是为什么调试的时候 直接就返回了呢？谢谢~

引用
希望对你有帮助

你的CreateMutex()函数的第二个参数是FALSE，表示刚刚创建的这个Mutex不属于任何线程 
  也就是没有任何线程拥有他，一个Mutex在没有任何线程拥有他的时候，他是处于激发态的， 
  所以第一个::WaitForSingleObject()函数便返回，释放了该线程对Mutex的拥有权，Mutex又会变成激发态，这样就导致了第二个::WaitForSingleObject()函数的返回！ 

刚创建的这个Mutex不属于任何线程，此时首先调用WaitForSingleObject()函数的线程就成为该互斥对象的拥有者，此互斥对象设为不发信号状态。当�


相关问答：

安装了jre6.17后，Delphi不能关闭？

如题， 点击Delphi的File菜单的Exit退出Delphi， Delphi部分关闭--即不能再操作Delphi，但任务栏和进程里，Delphi还在运行，没有真正的退出。是不是安装了jre改变了某些环境变量导致，请问高手如何解决？ 注：没安装 ......

Delphi进销存盘点维护 盘盈亏功能

想请问各位：盘点维护里面：盘盈亏数量=库存数量+入库数量-出库数量，这样做是对的吗，

楼上正解,正数盘盈 负数盘亏

一楼正确！

谢谢各位啦

就是：是不是 实际库存里的库存量 与你手动输进去的数量之间� ......

.net调用delphi写的dll,出错误

错误类型：出错误尝试读取或写入受保护的内存。这通常指示其他内存已损坏。
C#源码
[DllImport("Base64.dll")]
public static extern string Base64ToStr(string Base64);
protected void Page_Load(o ......

delphi如何获取网页的http返回状态及反应时间

delphi如何获取网页的返回状态，就像浏览器中返回的http 500错误，404错误等 
另外能不能获取到打开一个网页的反应时间，可以大致参考网页打开的速度
谢谢！
都可以实现的，具体的你还是查资料吧！

自己 ......

delphi UDP问题

(急)我想用UDP实现客户端与服务器之间的信息发送。即，客户端发信息给服务器端，服务器能正常的接受，并且是按顺序接受的。如客户端发送Edit1,Edit2,Edit3,Edit4....后，在服务器的Edit1,Edit2,Edit3,Edit4....依次� ......
© 2009 ej38.com All Rights Reserved. 关于E健网 | 联系我们 | 站点地图 | 赣ICP备09004571号