如何阻塞调用ShellExecute函数

[agang200008]

如何把ShellExecute做成阻塞式的，等到被打开的文件执行完了才返回

[agang200008]

你用的是CreateProcess函数的嘛，我说的是采用ShellExecute函数，可不可以阻塞？

[lake_cx]

楼主你怎么知道ShellExecute不是调用的CreateProcess？

[wooxer]

function WinExecAndWait32(FileName, Parameters: string; Visibility: integer): integer;
var
dwExitCode: Cardinal;
ExecInfo: TShellExecuteInfo;
begin
ZeroMemory(@ExecInfo, SizeOf(ExecInfo));

with ExecInfo do
begin
cbSize := SizeOf(ExecInfo);
fMask := SEE_MASK_NOCLOSEPROCESS;
lpVerb := 'Open';
lpFile := PChar(FileName);
lpParameters := PChar(Parameters);
nShow := Visibility; //SW_HIDE;
end;

ShellExecuteEx(@ExecInfo);
GetExitCodeProcess(ExecInfo.hProcess, dwExitCode);
while dwExitCode = STILL_ACTIVE do
begin
GetExitCodeProcess(ExecInfo.hProcess, dwExitCode);
Sleep(5);
Application.ProcessMessages;
end;
Result := ExitCode;
CloseHandle(ExecInfo.hProcess);
end;

[liangpei2008]

如何把ShellExecute做成阻塞式的，等到被打开的文件执行完了才返回
用WaitForSingleObject
例：
---------------------------------------------------------

function WinExecAndWait32(APath: PChar; ACmdShow: Integer;
  ATimeout: Longword): Integer;
var
  vStartupInfo: TStartupInfo;
  vProcessInfo: TProcessInformation;
begin
  FillChar(vStartupInfo, SizeOf(TStartupInfo), 0);
  with vStartupInfo do
  begin
    cb := SizeOf(TStartupInfo);
    dwFlags := STARTF_USESHOWWINDOW or STARTF_FORCEONFEEDBACK;
    wShowWindow := ACmdShow;
  end;
  if CreateProcess(nil, APath, nil, nil, False,
    NORMAL_PRIORITY_CLASS, nil, nil,
    vStartupInfo, vProcessInfo) then
    Result := WaitForSingleObject(vProcessInfo.hProcess, ATimeout)
  else Result := GetLastError;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
   WinExecAndWait32('notepad.exe', SW_SHOW, INFINITE);
end;

[shuihan20e]

进来学习