Delphi 使用ShellExecuteEx运行应用程序并等待完成

本文整理自网络，侵删。

 

uses Winapi.ShellAPI;


{ Runs application using ShellExecuteEx and waits for completion. }
function ShellExecuteAndWait(FileName: String; Params: String): Boolean;
var
  exInfo: TShellExecuteInfo;
  Ph: DWORD;
begin
  FillChar(exInfo, SizeOf(exInfo), 0);
  with exInfo do
  begin
    cbSize := SizeOf(exInfo);
    fMask := SEE_MASK_NOCLOSEPROCESS or SEE_MASK_FLAG_DDEWAIT;
    Wnd := GetActiveWindow();
    exInfo.lpVerb := 'open';
    exInfo.lpParameters := PChar(Params);
    lpFile := PChar(FileName);
    nShow := SW_SHOWNORMAL;
  end;
  if ShellExecuteEx(@exInfo) then
    Ph := exInfo.hProcess
  else
  begin
    ShowMessage(SysErrorMessage(GetLastError));
    Result := true;
    exit;
  end;
  while WaitForSingleObject(exInfo.hProcess, 50) <> WAIT_OBJECT_0 do
    Application.ProcessMessages;
  CloseHandle(Ph);
  Result := true;
end;


procedure TForm1.FormCreate(Sender: TObject);
begin

ShellExecuteAndWait('regedit.exe','');

end;
 

相关阅读 >>

Delphi datasnap stream 传递大数据

Delphi �c 如何将多个文件扩展名传递给tdirectory.getfiles？

windows 消息

Delphi 为当前窗口客户区捉图: getformimage

Delphi app如何禁掉安卓锁屏

Delphi 创建快捷方式的单元文件

Delphi http协议验证访问datasnap rest 服务器

Delphi 解析Delphi中的loadlibrary,getprocaddress,freelibrary

Delphi判断字符是否是汉字

Delphi打开网址链接的四种方法

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 使用ShellExecuteEx运行应用程序并等待完成