用CreateProcess读取Console程序的显示信息和返回结果

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    OpenDialog1: TOpenDialog;
    Button2: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }

    function WinExecAndWait32(FileName:String;Visibility:Integer;var mOutputs:string):Cardinal;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
function TForm1.WinExecAndWait32(FileName:String;Visibility:Integer;var mOutputs:string):Cardinal;
var
  sa:TSecurityAttributes;
  hReadPipe,hWritePipe:THandle;
  ret:BOOL;
  strBuff:array[0..255] of char;
  lngBytesread:DWORD;
 
  WorkDir:S

  • 0
    点赞
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
CreateProcess函数是Windows API中的一个函数,用于创建一个新的进程,并返回一个进程的句柄。它可以接收程序的输出,以便在创建新进程后可以进行处理。 使用CreateProcess函数时,我们需要传入一个结构体PROCESS_INFORMATION作为参数,其中包含了关于新进程的信息,包括进程标识符和主线程标识符。通过这个结构体,我们可以获取新进程的句柄。 为了接收程序的输出,我们还需要在创建进程时指定相应的标志,以告诉操作系统我们希望创建的进程的标准输入、输出和错误输出都重定向到我们指定的句柄。通常情况下,我们可以指定一个匿名管道来接收程序的输出。 具体操作如下:首先,我们创建一个匿名管道,这个管道的写入端将作为新进程的标准输出,我们得到这个写入端的句柄。然后,我们创建新进程时将这个写入端的句柄作为参数传入,这样新进程的输出就被重定向到了匿名管道。接下来,我们从这个管道的读取读取新进程的输出。 通过以上的操作,我们就可以使用CreateProcess函数来创建一个新进程,并且接收该进程的输出。 需要注意的是,接收程序输出的过程需要调用一些其他API函数,如CreatePipe函数、SetHandleInformation函数和ReadFile函数等。在具体使用时,我们还需要检测函数调用的返回值,以确保操作的成功。 总之,通过使用CreateProcess函数并重定向标准输出,我们可以在创建新进程后接收该程序的输出,并进行处理。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值