Delphi Create Process 一个创建进程的工具类

IcySoft Delphi 2020-07-13 877 0 Delphi

最近把一组东西弄在windows 下 想说自己写一个创建进程的工具 主要是一件化创建 和统一输出 如果发现顺便发现检查进程体。

就周兆凑一个创建类来。 


program demo;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  Night.Windows,
  Winapi.Windows,
  System.SysUtils,
  OT.Process in 'OT.Process.pas';

(*----------------------------------------------------------------------------*)

var
  process: IProcess;
begin
  if TProcess.New('notepad.exe')
                   .CommandLineArgs()
                   .Arg(TnPath.SystemDirectory.Windows + 'win.ini')
                   .Build()
                   .Flags(NORMAL_PRIORITY_CLASS)
                   .StartInfo()
                   .Flags(STARTF_USESHOWWINDOW or STARTF_FORCEONFEEDBACK)
                   .ShowWindow(SW_SHOWNORMAL)
                   .Build()
                   .TryStart(process)
  then
  begin
    process.WaitForInputIdle(INFINITE);
    Writeln(process.ProcessId);
    process.WaitForExit(INFINITE);
  end;
end.


以上为调用代码 完整工程下载包含单元 在下方

下载地址: https://u062.com/file/18943335-453116020


版权声明

本文仅代表作者观点,不代表百度立场。
本文系作者授权百度百家发表,未经许可,不得转载。

分享:

扫一扫在手机阅读、分享本文

评论