• 多线程编程9认识等待函数WaitForSingleObject


    一下子跳到等待函数 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;
    interface
    uses
     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.

  • 相关阅读:
    MySQL
    LeetCode
    数据结构
    我的编程幻想曲,更新中
    快速排序
    C与C++的区别
    必须要使用列表初始化的几种情况
    析构中delete this
    指向自身类型的成员指针的初始化,this不属于类对象的一部分
    构造函数
  • 原文地址:https://www.cnblogs.com/blogpro/p/11446166.html
Copyright © 2020-2023  润新知