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

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

就周兆凑一个创建类来。 

Snipaste_2020-07-13_20-51-48.png

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.

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

demo.zip
类型:压缩文件|已下载:4|下载限制:免费下载
点击下载

分享:

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

评论