delphi – 如何同步父/子进程执行?
发布时间:2020-12-15 04:15:29 所属栏目:大数据 来源:网络整理
导读:我想执行子进程并同步它(可能与Mutex),而不等待子进程终止: 家长: program Project1;{$APPTYPE CONSOLE}uses Windows,ShellApi,SysUtils,Dialogs;procedure ShellExecEx(Wnd: HWND; const AExeFilename,AParams: string);const SEE_MASK_NOZONECHECKS = $0
我想执行子进程并同步它(可能与Mutex),而不等待子进程终止:
家长: program Project1; {$APPTYPE CONSOLE} uses Windows,ShellApi,SysUtils,Dialogs; procedure ShellExecEx(Wnd: HWND; const AExeFilename,AParams: string); const SEE_MASK_NOZONECHECKS = $00800000; SEE_MASK_WAITFORINPUTIDLE = $02000000; SEE_MASK_NOASYNC = $00000100; var Info: TShellExecuteInfo; begin FillChar(Info,SizeOf(Info),0); Info.Wnd := Wnd; Info.cbSize := SizeOf(Info); Info.fMask := SEE_MASK_FLAG_NO_UI or SEE_MASK_NOZONECHECKS or SEE_MASK_NOASYNC //or SEE_MASK_WAITFORINPUTIDLE (works only with UI app ???) //or SEE_MASK_NO_CONSOLE //or SEE_MASK_NOCLOSEPROCESS ; Info.lpVerb := ''; Info.lpFile := PChar(AExeFilename); Info.lpParameters := PChar(AParams); Info.lpDirectory := PChar(ExtractFilePath(AExeFilename)); Info.nShow := SW_SHOWNORMAL; if not ShellExecuteEx(@Info) then RaiseLastOSError; CloseHandle(Info.hProcess); end; var Mutex: THandle = 0; Error: DWORD; begin OutputDebugString('Project1 : 1'); ShellExecEx(0,'Project2.exe',''); // synchronize repeat // attempt to create a named mutex Mutex := CreateMutex(nil,False,'F141518A-E6E4-4BC0-86EB-828B1BC48DD1'); Error := GetLastError; if Mutex = 0 then RaiseLastOSError; CloseHandle(Mutex); until Error = ERROR_ALREADY_EXISTS; OutputDebugString('Project1 : 3'); end. 儿童: program Project2; {$APPTYPE CONSOLE} uses SysUtils,Windows,Dialogs; var Mutex: THandle = 0; begin OutputDebugString('Project2 : 2'); // attempt to create a named mutex and acquire ownership Mutex := CreateMutex(nil,True,'F141518A-E6E4-4BC0-86EB-828B1BC48DD1'); if Mutex = 0 then RaiseLastOSError; // do something ReleaseMutex(Mutex); CloseHandle(Mutex); // <- at this point Program1.exe should exit the repeat loop ShowMessage('ok from Project2'); end. 我期待看到输出: Project1 : 1 Project2 : 2 Project1 : 3 问题是有时父(Project1.exe)没有退出循环. 解决方法
你在互斥锁上有一场比赛.您希望以下顺序:
child: create mutex parent: open mutex child: destroy mutex 但可能发生的是 child: create mutex child: destroy mutex parent: open mutex (fails because mutex is destroyed) 我无法确定你的最终目标是什么,但我怀疑事件实际上是你在寻找什么. 在父母: >创建命名事件. 在孩子: >做一些处理. 在非常高的级别,您需要的代码将如下所示: 亲 Event = CreateEvent(nil,EventName); //create it manual reset,set to non-signaled ShellExecEx(....); WaitForSingleObject(Event); 儿童 Event = CreateEvent(nil,EventName); //do stuff SetEvent(Event); 我没有包含任何错误检查.我相信你可以添加一些.您可能还会发现SyncObjs中的事件包装器类更方便. 最后,您的代码有一个繁忙的循环.这几乎不是任何问题的解决方案.如果您发现自己编写了一个繁忙的循环,那么您应该将其视为设计不正确的信号.关键是,在您的代码中,如果可以使其工作,父进程将在等待子进程时消耗100%的CPU利用率. (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |