【CreateProcess】、【MsgWaitForMultipleObjects】与线程冲突了

2014-11-28 07:31:58 633 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

使用WinDbg诊断C++安装程序线程堵塞与安全软件冲突问题在多线程编程中，线程同步与死锁是常见的核心挑战，尤其在涉及系统资源访问时。其原理通常源于线程间对共享资源（如事件、互斥量）的竞争等待，若设计不当或与外部环境交互异常，极易引发线程挂起。掌握线程状态分析技术，对于保障软件在复杂环境下的稳定运行具有重要价值，特别是在安装部署、系统工具等需要与安全软件共存的场景。本文聚焦于C++安装程序因安全软件API Hook导致的“安装线程堵塞”问题，通过WinDbg这一强大的调试工具，深入剖析线程堆栈与内核对象状态，定位死锁链条，并最终提供异步改造与超时机制等工程解决方案。阅读详情



  //这是主线程中的一段代码

var

  H: THandle;

begin

  //之前已经Create了这个线程

  H := GetFileThread.Handle;

  //为了方便测试，在线程中加入了Sleep(5000)

  GetFileThread.Terminate;

  //到这里还是正确的，即：5秒后ShowMessage出0

  //如果将第3个参数改为False则会立即得到结果，这显然不正确

  ShowMessage(IntToStr(MsgWaitForMultipleObjects(1, H, True, INFINITE,

    QS_ALLINPUT) - WAIT_OBJECT_0));

end;

问题是：
在这前面用CreateProcess启动一个外部程序，MsgWaitForMultipleObjects就只能在外部程序关闭，并且线程结束时，才能返回，“H”明明是线程的句柄，和CreateProcess没关系，但却受它影响了
如果将MsgWaitForMultipleObjects的第3个参数改为False，则外部程序关闭时，就直接得到结果“1”，此时线程并没有结束。



var

  StartupInfo: TStartUpInfo;

  ProcessInfo: TProcessInformation;

begin

  with StartupInfo do

  begin

    cb := SizeOf(StartupInfo);

    dwFlags := StartF_UsesTDHandles or STARTF_USESHOWWINDOW;

    lpTitle := nil;

    wShowWindow := SW_Show;

  end;

  if not CreateProcess(PChar(ExtractFilePath(ParamStr(0)) + ClientExeName), nil,

    nil, nil, True, HIGH_PRIORITY_CLASS, nil, nil, StartupInfo, ProcessInfo)

  then

  begin

    Application.MessageBox('无法启动客户端', '找不到客户端程序', MB_ICONERROR);

  end;

end;

...全文

VC++隐藏DOS窗口：从原理到实践的4种核心方法在Windows程序开发中，理解控制台程序与图形界面程序的差异是基础。控制台程序默认链接到控制台子系统，系统会为其分配DOS窗口；而Windows桌面程序链接到Windows子系统，从根本上避免了控制台窗口的产生。这一机制的核心在于程序的入口函数和链接器子系统设置。掌握进程创建与控制技术，特别是CreateProcess API配合STARTUPINFO结构，能够实现对子进程窗口状态的精细控制，这对于开发后台服务、系统工具等需要静默运行的程序至关重要。在实际应用中，无论是运行批处理文件还是调用命令行工具，通阅读详情

FlashDance

Windows SDK/API 1,184 成员 22,326 内容

+ 关注 + 加入社区

切换为时间正序

pathletboy 2014-12-01

打赏
举报

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

const
  WM_EXECUTE = WM_USER + 5000;

type
  TMyThread = class(TThread)
  protected
    procedure Execute(); override;
  public
    constructor Create();
  end;

  TForm1 = class(TForm)
    btn1: TButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btn1Click(Sender: TObject);
  private
    FMyThread: TMyThread;
    procedure RunExe(var Msg: TMessage); message WM_EXECUTE;
  public

  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

const
  ClientExeName = 'notepad.exe';

procedure TForm1.btn1Click(Sender: TObject);
begin
  FMyThread := TMyThread.Create;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  FMyThread.Free; //请仔细看TThread.Destroy(重点WaitFor)
  ShowMessage('线程已经执行完毕');
end;


{ TMyThread }

constructor TMyThread.Create;
begin
  inherited Create(False);
end;

procedure TMyThread.Execute;
begin
  PostMessage(Form1.Handle, WM_EXECUTE, 0, 0);
end;

procedure TForm1.RunExe(var Msg: TMessage);
var
  StartupInfo: TStartUpInfo;
  ProcessInfo: TProcessInformation;
begin
  FillChar(StartupInfo, SizeOf(StartupInfo), 0);
  with StartupInfo do
  begin
    cb := SizeOf(StartupInfo);
    dwFlags := StartF_UsesTDHandles or STARTF_USESHOWWINDOW;
    lpTitle := nil;
    wShowWindow := SW_Show;
  end;
  if not CreateProcess(PChar(ExtractFilePath(ParamStr(0)) + ClientExeName), nil,
    nil, nil, True, DETACHED_PROCESS, nil, nil, StartupInfo, ProcessInfo) then
    Application.MessageBox('无法启动客户端', '找不到客户端程序', MB_ICONERROR);
  Self.Close;
end;

end.

FlashDance 2014-12-01

打赏
举报

引用 18 楼 pathletboy 的回复:

[quote=引用 17 楼 FlashDance 的回复:] [quote=引用 16 楼 pathletboy 的回复:] [quote=引用 15 楼 FlashDance 的回复:] 需要用到FreeOnTerminate := True;的时候还是很多现在只好这样写了：
  MyThread1.Terminate;
  while not MyThread1.Finished do
    Application.ProcessMessages;
非常感谢pathletboy的帮助

没必要这么低效死循环判断标志，直接重载TThread.Destroy，在Destroy中最后PostMessage通知主窗体[/quote] 判断子线程结束前后都有代码，无法独立出来，不方便接收PostMessage啊[/quote] 死等后面的全丢消息处理就可以了。[/quote] 好的，非常感谢

pathletboy 2014-12-01

打赏
举报

引用 17 楼 FlashDance 的回复:

[quote=引用 16 楼 pathletboy 的回复:] [quote=引用 15 楼 FlashDance 的回复:] 需要用到FreeOnTerminate := True;的时候还是很多现在只好这样写了：
  MyThread1.Terminate;
  while not MyThread1.Finished do
    Application.ProcessMessages;
非常感谢pathletboy的帮助

没必要这么低效死循环判断标志，直接重载TThread.Destroy，在Destroy中最后PostMessage通知主窗体[/quote] 判断子线程结束前后都有代码，无法独立出来，不方便接收PostMessage啊[/quote] 死等后面的全丢消息处理就可以了。

FlashDance 2014-12-01

打赏
举报

引用 16 楼 pathletboy 的回复:

[quote=引用 15 楼 FlashDance 的回复:] 需要用到FreeOnTerminate := True;的时候还是很多现在只好这样写了：
  MyThread1.Terminate;
  while not MyThread1.Finished do
    Application.ProcessMessages;
非常感谢pathletboy的帮助

没必要这么低效死循环判断标志，直接重载TThread.Destroy，在Destroy中最后PostMessage通知主窗体[/quote] 判断子线程结束前后都有代码，无法独立出来，不方便接收PostMessage啊

pathletboy 2014-12-01

打赏
举报

引用 15 楼 FlashDance 的回复:

需要用到FreeOnTerminate := True;的时候还是很多现在只好这样写了：
  MyThread1.Terminate;
  while not MyThread1.Finished do
    Application.ProcessMessages;
非常感谢pathletboy的帮助

没必要这么低效死循环判断标志，直接重载TThread.Destroy，在Destroy中最后PostMessage通知主窗体

FlashDance 2014-12-01

打赏
举报

需要用到FreeOnTerminate := True;的时候还是很多现在只好这样写了：


  MyThread1.Terminate;
  while not MyThread1.Finished do
    Application.ProcessMessages;

非常感谢pathletboy的帮助

FlashDance 2014-11-30

打赏
举报

本意是想在由线程处理一些数据，处理成功后，由线程启动一个EXE，线程再继续其它操作。主线程在子线程结束后就退出。那个EXE并不需要退出。

FlashDance 2014-11-30

打赏
举报

引用 11 楼 pathletboy 的回复:

A：这个参数解释

bWaitAll [in]

    If this parameter is TRUE, the function returns when the states of all objects in the pHandles array have been set to signaled and an input event has been received. If this parameter is FALSE, the function returns when the state of any one of the objects is set to signaled or an input event has been received. In this case, the return value indicates the object whose state caused the function to return.

你一个等待对象的话，True和False是没有区别的。 B：这种情况可以自定义消息使用PostMessage。

A：我也是理解等待一个对象没有区别，但上述代码用False等待一个对象却不行 B：我试着用PostMessage来操作，在线程中也只有这一行代码用来启动exe，无意发现，就是在线程中用PostMessage启动exe，造成了这个结果： “MsgWaitForMultipleObjects就只能在外部程序关闭，并且线程结束时，才能返回，“H”明明是线程的句柄，和CreateProcess没关系，但却受它影响了” 真是不知如何解决了


unit UnitMyThread;

interface

uses
  System.Classes, System.SysUtils, Winapi.Messages, Winapi.Windows;

type
  TMyThread = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute; override;
  public
    constructor Create;
  end;

implementation

{ TMyThread }

uses UnitMain;

constructor TMyThread.Create;
begin
  inherited Create(False);
  FreeOnTerminate := True;
end;

procedure TMyThread.Execute;
begin
  PostMessage(FormMain.Handle, WM_USER + 5000, 0, 0);
end;

end.


unit UnitMain;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TFormMain = class(TForm)
    btn1: TButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
    procedure RunExe(var Msg: TMessage); message WM_USER + 5000;
  public
    { Public declarations }
  end;

var
  FormMain: TFormMain;

implementation

{$R *.dfm}

uses UnitMyThread;

const
  ClientExeName = 'Hash.exe';

var
  MyThread1: TMyThread;
  H: array [0 .. 0] of THandle;

procedure TFormMain.btn1Click(Sender: TObject);
begin
  MyThread1 := TMyThread.Create;
  H[0] := MyThread1.Handle;
end;

procedure TFormMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  MyThread1.Terminate;
  ShowMessage(IntToStr(MsgWaitForMultipleObjects(1, H, True, INFINITE,
    QS_ALLINPUT) - WAIT_OBJECT_0));
end;

procedure TFormMain.RunExe(var Msg: TMessage);
var
  StartupInfo: TStartUpInfo;
  ProcessInfo: TProcessInformation;
begin
  FillChar(StartupInfo, SizeOf(StartupInfo), 0);
  with StartupInfo do
  begin
    cb := SizeOf(StartupInfo);
    dwFlags := StartF_UsesTDHandles or STARTF_USESHOWWINDOW;
    lpTitle := nil;
    wShowWindow := SW_Show;
  end;
  if not CreateProcess(PChar(ExtractFilePath(ParamStr(0)) + ClientExeName), nil,
    nil, nil, True, DETACHED_PROCESS, nil, nil, StartupInfo, ProcessInfo) then
    Application.MessageBox('无法启动客户端', '找不到客户端程序', MB_ICONERROR);
  FormMain.Close;
end;

end.

真是麻烦了，求指教

pathletboy 2014-11-30

打赏
举报

A：这个参数解释

bWaitAll [in]

    If this parameter is TRUE, the function returns when the states of all objects in the pHandles array have been set to signaled and an input event has been received. If this parameter is FALSE, the function returns when the state of any one of the objects is set to signaled or an input event has been received. In this case, the return value indicates the object whose state caused the function to return.

你一个等待对象的话，True和False是没有区别的。 B：这种情况可以自定义消息使用PostMessage。

FlashDance 2014-11-30

打赏
举报

引用 9 楼 pathletboy 的回复:

你这个代码是啥问题我不清楚，但是你上个代码的问题基本是因为这样。首先你在线程中使用Synchronize同步到主线程进行更新Form的Caption，然后你又在主线程中阻塞等待线程结束，这样会造成死锁。按下按钮死锁是这样发生的：线程等待同步到主线程更新Caption，此时你主线程处理按下按钮，主线程永久等待在WaitFor，而线程又永久等待同步到主线，导致死锁。


unit UnitMain;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TFormMain = class(TForm)
    btn1: TButton;
    procedure btn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormMain: TFormMain;
  I: Integer;

implementation

{$R *.dfm}

uses UnitMyThread;

const
  ClientExeName = 'Hash.exe';

var
  MyThread1: TMyThread;
  H: array [0 .. 0] of THandle;

procedure TFormMain.FormCreate(Sender: TObject);
var
  StartupInfo: TStartUpInfo;
  ProcessInfo: TProcessInformation;
begin
  MyThread1 := TMyThread.Create;
  H[0] := MyThread1.Handle;

  FillChar(StartupInfo, SizeOf(StartupInfo), 0);
  with StartupInfo do
  begin
    cb := SizeOf(StartupInfo);
    dwFlags := StartF_UsesTDHandles or STARTF_USESHOWWINDOW;
    lpTitle := nil;
    wShowWindow := SW_Show;
  end;;
  if not CreateProcess(PChar(ExtractFilePath(ParamStr(0)) + ClientExeName), nil,
    nil, nil, True, DETACHED_PROCESS, nil, nil, StartupInfo, ProcessInfo) then
  begin
    Application.MessageBox('无法启动客户端', '找不到客户端程序', MB_ICONERROR);
  end;
end;

procedure TFormMain.btn1Click(Sender: TObject);
begin
  MyThread1.Terminate;
  ShowMessage(IntToStr(MsgWaitForMultipleObjects(1, H, True, INFINITE,
    QS_ALLINPUT) - WAIT_OBJECT_0));
  ShowMessage(IntToStr(I));
end;

end.


unit UnitMyThread;

interface

uses
  System.Classes, System.SysUtils;

type
  TMyThread = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute; override;
  public
    constructor Create;
  end;

implementation

{ TMyThread }

uses UnitMain;

constructor TMyThread.Create;
begin
  inherited Create(False);
  FreeOnTerminate := True;
end;

procedure TMyThread.Execute;
var
  I: Integer;
begin
  I := 0;
  while not Terminated do
  begin
    Sleep(100);
    Inc(I);
  end;
  Sleep(2000);
  UnitMain.I := I;
end;

end.

果然是这样的，【CreateProcess】、【MsgWaitForMultipleObjects】与【线程】之间的冲突也没有了还有2个问题： A：但这样写才行：MsgWaitForMultipleObjects(1, H, True, INFINITE,QS_ALLINPUT) 百度到其它的写法（第3个参数是False）：MsgWaitForMultipleObjects(1, H, False, INFINITE,QS_ALLINPUT)是不行的，难道这种是错误的？ B：那么如果线程中要更新界面，主线程中又要用MsgWaitForMultipleObjects判断线程的结束，应该如何处理呢？非常感谢

pathletboy 2014-11-30

打赏
举报

你这个代码是啥问题我不清楚，但是你上个代码的问题基本是因为这样。首先你在线程中使用Synchronize同步到主线程进行更新Form的Caption，然后你又在主线程中阻塞等待线程结束，这样会造成死锁。按下按钮死锁是这样发生的：线程等待同步到主线程更新Caption，此时你主线程处理按下按钮，主线程永久等待在WaitFor，而线程又永久等待同步到主线，导致死锁。

FlashDance 2014-11-30

打赏
举报

引用 7 楼 pathletboy 的回复:

[quote=引用 6 楼 FlashDance 的回复:] 用WaitForSingleObject竟然结果也是一样的，受到了CreateProcess的干扰，H明明是GetFileThread.Handle，和CreateProcess无关啊
var
  H:THandle;
begin
  H:=GetFileThread.Handle;
  GetFileThread.Terminate;
  WaitForSingleObject(H,INFINITE);
  ShowMessage('Finish');
end;
尽管H是局部变量在此代码段优先级最高，没什么问题为了防止意外，还是将它改为其它名字，如THTH，结果仍然相同 WaitForSingleObject和MsgWaitForMultipleObjects均会受到CreateProcess的干扰

搞个最简重现的工程吧，光看你这么描述，实在解决不了。[/quote] 搞了保卫战最简的重现工程，这次彻底凌乱了，情况和上面不同了，这次是WaitForSingleObject完全不起任何作用：


unit UnitMain;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TFormMain = class(TForm)
    btn1: TButton;
    procedure btn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormMain: TFormMain;

implementation

{$R *.dfm}

uses UnitMyThread;

const
  ClientExeName='Hash.exe';

var
  MyThread1:TMyThread;
  H:array[0..0] of THandle;

procedure TFormMain.FormCreate(Sender: TObject);
var
  StartupInfo: TStartUpInfo;
  ProcessInfo: TProcessInformation;
begin
  MyThread1:=TMyThread.Create;
  H[0]:=MyThread1.Handle;

  {FillChar(StartupInfo, SizeOf(StartupInfo), 0);
  with StartupInfo do
  begin
    cb := SizeOf(StartupInfo);
    dwFlags := StartF_UsesTDHandles or STARTF_USESHOWWINDOW;
    lpTitle := nil;
    wShowWindow := SW_Show;
  end;;
  if not CreateProcess(PChar(ExtractFilePath(ParamStr(0)) + ClientExeName), nil,
    nil, nil, True, DETACHED_PROCESS, nil, nil, StartupInfo, ProcessInfo) then
  begin
    Application.MessageBox('无法启动客户端', '找不到客户端程序', MB_ICONERROR);
  end;}
end;

procedure TFormMain.btn1Click(Sender: TObject);
begin
  MyThread1.Terminate;
  //MsgWaitForMultipleObjects  完全不起作用了
  ShowMessage(IntToStr(MsgWaitForMultipleObjects(1,H,True,INFINITE,QS_ALLINPUT)-WAIT_OBJECT_0));
end;


end.


unit UnitMyThread;

interface

uses
  System.Classes,System.SysUtils
;

type
  TMyThread = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute; override;
  public
    constructor Create;
  end;

implementation

{ TMyThread }

uses UnitMain;

constructor TMyThread.Create;
begin
  inherited Create(False);
  FreeOnTerminate := True;
end;

procedure TMyThread.Execute;
var
  I:Integer;
begin
  I:=0;
  while not Terminated do
  begin
    Sleep(100);
    Inc(I);
    Synchronize(
      procedure
      begin
        FormMain.Caption:=IntToStr(I);
      end);
  end;
  Sleep(2000);
end;

end.

pathletboy 2014-11-30

打赏
举报

引用 6 楼 FlashDance 的回复:

用WaitForSingleObject竟然结果也是一样的，受到了CreateProcess的干扰，H明明是GetFileThread.Handle，和CreateProcess无关啊
var
  H:THandle;
begin
  H:=GetFileThread.Handle;
  GetFileThread.Terminate;
  WaitForSingleObject(H,INFINITE);
  ShowMessage('Finish');
end;
尽管H是局部变量在此代码段优先级最高，没什么问题为了防止意外，还是将它改为其它名字，如THTH，结果仍然相同 WaitForSingleObject和MsgWaitForMultipleObjects均会受到CreateProcess的干扰

搞个最简重现的工程吧，光看你这么描述，实在解决不了。

FlashDance 2014-11-29

打赏
举报

用WaitForSingleObject竟然结果也是一样的，受到了CreateProcess的干扰，H明明是GetFileThread.Handle，和CreateProcess无关啊


var
  H:THandle;
begin
  H:=GetFileThread.Handle;
  GetFileThread.Terminate;
  WaitForSingleObject(H,INFINITE);
  ShowMessage('Finish');
end;

尽管H是局部变量在此代码段优先级最高，没什么问题为了防止意外，还是将它改为其它名字，如THTH，结果仍然相同 WaitForSingleObject和MsgWaitForMultipleObjects均会受到CreateProcess的干扰

FlashDance 2014-11-28

打赏
举报

引用 4 楼 pathletboy 的回复:

[quote=引用 3 楼 FlashDance 的回复:] 现在的问题是：单独执行线程，完全没问题单独执行外部程序，也完全没问题同时处理，问题来了

你看看是不是你线程中执行进程阻塞了？[/quote] 和那没关系，Sleep(5000)本来就是5秒的阻塞没有Sleep(5000)，线程在GetFileThread.Terminate时很快就结束了，反而无法测试单独执行线程完全正常，CreateProcess才造成的影响现在的问题不是线程，也不是外部进程，是它们的内核对象产生了干扰估计是MsgWaitForMultipleObjects检测内核对象时，受到CreateProcess句柄影响了 MsgWaitForMultipleObjects的句柄是H,它分明是GetFileThread.Handle和外部程序无关的

pathletboy 2014-11-28

打赏
举报

引用 3 楼 FlashDance 的回复:

现在的问题是：单独执行线程，完全没问题单独执行外部程序，也完全没问题同时处理，问题来了

你看看是不是你线程中执行进程阻塞了？

FlashDance 2014-11-28

打赏
举报

现在的问题是：单独执行线程，完全没问题单独执行外部程序，也完全没问题同时处理，问题来了

FlashDance 2014-11-28

打赏
举报

引用 1 楼 pathletboy 的回复:

GetFileThread.Terminate; Terminate只是设置一个变量为True。
procedure TThread.Terminate;
begin
  FTerminated := True;
end;
如果在你的线程函数中没有处理这个变量跳出函数，那么对于你来说这句是没有任何作用的。一般典型的线程实现是这样的
procedure TMyThread.Execute;
begin
  while not Terminated do
  begin
    //balabala
  end;
end;
当Terminate被执行后Terminated即为True，此时循环体会跳出循环，当然，前提是balabala中的代码不能阻塞。

这个肯定是有的，不然Sleep(5000)也不可能受之影响了，问题是【CreateProcess】、【MsgWaitForMultipleObjects】与线程冲突了

pathletboy 2014-11-28

打赏
举报

GetFileThread.Terminate; Terminate只是设置一个变量为True。

procedure TThread.Terminate;
begin
  FTerminated := True;
end;

如果在你的线程函数中没有处理这个变量跳出函数，那么对于你来说这句是没有任何作用的。一般典型的线程实现是这样的

procedure TMyThread.Execute;
begin
  while not Terminated do
  begin
    //balabala
  end;
end;

当Terminate被执行后Terminated即为True，此时循环体会跳出循环，当然，前提是balabala中的代码不能阻塞。

【CreateProcess】、【MsgWaitForMultipleObjects】与线程冲突了

相关推荐