delphi调用dos命令

最新推荐文章于 2023-08-01 19:52:18 发布

原创最新推荐文章于 2023-08-01 19:52:18 发布 · 1.2k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#操作系统

DELPHI随笔专栏收录该内容

4 篇文章

订阅专栏

本文介绍如何使用Delphi编写一个TRunDos类来运行DOS命令并检查结果，包括创建管道、设置启动信息、创建进程以及读取输出。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

unit RunDos;

interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
Type
   TRunDos=class(TObject)
   public
   procedure CheckResult(b:Boolean);
   function RunDOS(CommandLine:   String):   String;
end;
implementation

{ TRunDos }

procedure TRunDos.CheckResult(b: Boolean);
begin
if not b then
Raise Exception.Create(SysErrorMessage(GetLastError));
end;

function TRunDos.RunDOS(CommandLine: String): String;
var
      HRead,HWrite:THandle;
      StartInfo:TStartupInfo;
      ProceInfo:TProcessInformation;
      b:Boolean;
      sa:TSecurityAttributes;
      inS:THandleStream;
      sRet:TStrings;
begin
      Result   :=   '';
      FillChar(sa,sizeof(sa),0);
      //设置允许继承，否则在NT和2000下无法取得输出结果
      sa.nLength   :=   sizeof(sa);
      sa.bInheritHandle   :=   True;
      sa.lpSecurityDescriptor   :=   nil;
      b   :=   CreatePipe(HRead,HWrite,@sa,0);
      CheckResult(b);
      FillChar(StartInfo,SizeOf(StartInfo),0);
      StartInfo.cb   :=   SizeOf(StartInfo);
      StartInfo.wShowWindow   :=   SW_HIDE;
      //使用指定的句柄作为标准输入输出的文件句柄,使用指定的显示方式
      StartInfo.dwFlags         :=   STARTF_USESTDHANDLES   or   STARTF_USESHOWWINDOW;
      StartInfo.hStdError     :=   HWrite;
      StartInfo.hStdInput     :=   GetStdHandle(STD_INPUT_HANDLE);//HRead;
      StartInfo.hStdOutput     :=   HWrite;
      b   :=   CreateProcess(nil,
                  PChar(CommandLine),
                  nil,
                  nil,
                  True,
                  CREATE_NEW_CONSOLE,
                  nil,
                  nil,
                  StartInfo,
                  ProceInfo         );

      CheckResult(b);
      WaitForSingleObject(ProceInfo.hProcess,INFINITE);
      inS   :=   THandleStream.Create(HRead);
      if   inS.Size>0   then
      begin
          sRet   :=   TStringList.Create;
          sRet.LoadFromStream(inS);
          showmessage(sRet.Text);
          Result   :=   sRet.Text;
          sRet.Free;
      end;
      inS.Free;

      CloseHandle(HRead);
      CloseHandle(HWrite);

end;

end.