zoukankan      html  css  js  c++  java
  • 模态运行EXE程序

    function ExecShowModal(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.Button3Click(Sender: TObject);
    begin
      ExecShowModal('notepad.exe', SW_SHOW, INFINITE);
    end;

    参考:http://www.cnblogs.com/key-ok/p/3358855.html

  • 相关阅读:
    8月10日
    8月9日
    8月8日
    8月7日
    8月6日
    8月5日
    《大道至简》读后感
    8月4日
    8月3日
    8月2日
  • 原文地址:https://www.cnblogs.com/findumars/p/4748662.html
Copyright © 2011-2022 走看看