多线程编程(9) - 认识等待函数 WaitForSingleObject
来源:互联网 发布:斗鱼抽奖 知乎 编辑:程序博客网 时间:2024/05/19 03:45
一下子跳到等待函数 WaitForSingleObject, 是因为下面的 Mutex、Semaphore、Event、WaitableTimer 等同步手段都要使用这个函数; 不过等待函数可不止 WaitForSingleObject 它一个, 但它最简单.
function WaitForSingleObject( hHandle: THandle; {要等待的对象句柄} dwMilliseconds: DWORD {等待的时间, 单位是毫秒}): DWORD; stdcall; {返回值如下:}WAIT_OBJECT_0 {等着了, 本例中是: 等的那个进程终于结束了}WAIT_TIMEOUT {等过了点(你指定的时间), 也没等着}WAIT_ABANDONED {好不容易等着了, 但人家还是不让咱执行; 这一般是互斥对象}//WaitForSingleObject 的第二个参数一般给常数值 INFINITE, 表示一直等下去, 死等.
WaitForSingleObject 等待什么? 在多线程里就是等待另一个线程的结束, 快来执行自己的代码; 不过它可以等待的对象可不止线程; 这里先来一个等待另一个进程结束的例子, 运行效果图:
代码文件:
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); end;var Form1: TForm1;implementation{$R *.dfm}var hProcess: THandle; {进程句柄}{等待一个指定句柄的进程什么时候结束}function MyThreadFun(p: Pointer): DWORD; stdcall;begin if WaitForSingleObject(hProcess, INFINITE) = WAIT_OBJECT_0 then Form1.Text := Format('进程 %d 已关闭', [hProcess]); Result := 0;end;{启动一个进程, 并建立新线程等待它的结束}procedure TForm1.Button1Click(Sender: TObject);var pInfo: TProcessInformation; sInfo: TStartupInfo; Path: array[0..MAX_PATH-1] of Char; ThreadID: DWORD;begin {先获取记事本的路径} GetSystemDirectory(Path, MAX_PATH); StrCat(Path, '/notepad.exe'); {用 CreateProcess 打开记事本并获取其进程句柄, 然后建立线程监视} FillChar(sInfo, SizeOf(sInfo), 0); if CreateProcess(Path, nil, nil, nil, False, 0, nil, nil, sInfo, pInfo) then begin hProcess := pInfo.hProcess; {获取进程句柄} Text := Format('进程 %d 已启动', [hProcess]); CreateThread(nil, 0, @MyThreadFun, nil, 0, ThreadID); {建立线程监视} end;end;end.
窗体文件:
object Form1: TForm1 Left = 0 Top = 0 Caption = 'Form1' ClientHeight = 124 ClientWidth = 241 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] OldCreateOrder = False PixelsPerInch = 96 TextHeight = 13 object Button1: TButton Left = 88 Top = 56 Width = 75 Height = 25 Caption = 'Button1' TabOrder = 0 OnClick = Button1Click endend
转载:http://www.cnblogs.com/del/archive/2009/02/13/1390069.html
- 多线程编程(9) - 认识等待函数 WaitForSingleObject
- 多线程编程(9) - 认识等待函数 WaitForSingleObject
- 多线程编程(9) - 认识等待函数 WaitForSingleObject
- 多线程编程(9) - 认识等待函数WaitForSingleObject - 编程入门网
- 多线程编程WaitForSingleObject()
- Windows编程--WaitForSingleObject函数
- 线程同步 等待函数 WaitForSingleObject WaitForMultipleObjects
- 多线程中WaitForSingleObject函数…
- Win32多线程之等待一个线程的结束(WaitForSingleObject)
- 多线程编程学习4——WaitForSingleObject
- 多线程编程中sleep和WaitForSingleObject
- 线程等待WaitXXXXX()函数系列之WaitForSingleObject和WaitForMultipleObject
- WaitForSingleObject 和 WaitForMultipleObjects函数 (让线程挂起等待事件)
- 再谈线程等待函数WaitForSingleObject和CloseHandle
- 多线程 WaitForSingleObject
- 等待进程终止WaitForSingleObject()
- WaitForSingleObject 等待线程句柄
- WaitForSingleObject 等待线程句柄
- [MySQL优化] -- 如何查找SQL效率地下的原因
- C#笔记一
- 一个非常好用的图片等比例缩放到指定最大高宽的函数
- [MySQL优化] -- 如何定位效率较低的SQL
- 第二章 缓冲区(9)
- 多线程编程(9) - 认识等待函数 WaitForSingleObject
- Google搜索指令大全(最新整理)
- 游戏编程知识摘录
- winform在打包程序中加入注册控件
- 很久未来,mark
- 教学课件——二次函数图象及性质
- 提高C#编程水平的50个要点
- 看了老男孩,回忆重重,你当年的梦想是什么?......实现了吗?
- 判定性统计问题的启发