求教：如何在Delphi向DOS窗口发送命令。

Question

请教高手：如何向DOS窗口发送如“exit”命令，让DOS窗口自动关闭（我的问题不是关闭DOS窗口，而是如何向DOS窗口发送命令，EXIT只是其中的一个特例）。谢谢！！！

Answer 1

unit Unitdos1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;type
  TPipeForm = class(TForm)
    Editor: TMemo;
    Timer1: TTimer;
    Button1: TButton;
    procedure EditorKeyPress(Sender: TObject; var Key: Char);
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure EditorKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure EditorMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
    CreateOk: Boolean;
WPos: TPoint;
    hReadPipe, hWritePipe, hWriteFile, hReadFile: THandle;
    processinfo: PROCESS_INFORMATION;
    procedure SendCmdToShell(Const CmdStr: String);
    function GetCmdStr: string;  public
    { Public declarations }
    function check(m:string):boolean;
  end;var
  PipeForm: TPipeForm;implementation
uses unitsearch;
{$R *.dfm}
function  TPipeForm.check(m:string):boolean;
var
  i,j,h:integer;
  s,s1:string;
begin
  h:=0;
  for i:=0 to Editor.Lines.Count-1 do
  begin
    s:=editor.Lines.Strings[i];
    for j:=1 to length(s) do
    begin
      if (s[j]=m[1]) and (s[j+1]=m[2]) then
      begin
        showmessage('1');
        s1:='';
        for h:=j to (h+(length(m))) do s1:=s1+s[h];
        //showmessage(s1);
        if s1=m then
        begin
          showmessage('2');
          result:=true;
          exit;
        end;
      end;
    end;
  end;
  result:=false;
end;procedure TPipeForm.EditorKeyPress(Sender: TObject; var Key: Char);
var
  ECharPos: TPoint;
begin
if Key = Chr(VK_RETURN) then
  begin
//    ShowMessage(GetCmdStr);
SendCmdToShell(GetCmdStr);
  end else if Key = Chr(VK_BACK) then
  begin
   ECharPos := Editor.CaretPos;
   if ECharPos.X = WPos.X + 1 then
     Key := #0;
  end;
end;procedure TPipeForm.SendCmdToShell(Const CmdStr: String);
var
ShellCmdStr: array[0..256] of char;
  RBuffer: array[0..25000] of char;
  nByteToWrite: DWORD;
  nByteWritten: DWORD;
  nByteReaden: DWORD;
begin
if CreateOK then
  begin
    StrPCopy(ShellCmdStr, CmdStr);
    nByteToWrite := StrLen(ShellCmdStr);
    ShellCmdStr[nByteToWrite] := #13;
    ShellCmdStr[nByteToWrite+1] := #10;
ShellCmdStr[nByteToWrite+2] := #0;
    Inc(nByteToWrite, 2);
    WriteFile(hWriteFile, ShellCmdStr, nByteToWrite, nByteWritten, nil);
    Sleep(400);
    Editor.Lines.Clear;
    FillChar(RBuffer, Sizeof(RBuffer), #0);
    ReadFile(hReadFile, RBuffer, 25000, nByteReaden, nil);
    Editor.Lines.Add(StrPas(RBuffer));
    WPos.Y := Editor.Lines.Count-1;
    WPos.X := Length(Editor.Lines[WPos.Y])-1;
    //Editor.Lines.Add('--------------ok!----------------');
  end;
end;
procedure TPipeForm.FormDestroy(Sender: TObject);
var
shellexitcode: Cardinal;
begin
if GetExitCodeProcess(processinfo.hProcess, shellexitcode) then
  begin
   if shellexitcode = STILL_ACTIVE then
TerminateProcess(processinfo.hProcess, 0);
  end;
  if hWriteFile <> 0 then
   CloseHandle(hWriteFile);
  if hReadFile <> 0 then
   CloseHandle(hReadFile);
end;
procedure TPipeForm.FormCreate(Sender: TObject);
var
Pipeattr: SECURITY_ATTRIBUTES;
  ShellStartInfo: STARTUPINFO;
  shellstr: array [0..256] of char;
  RBuffer: array[0..25000] of char;
  I: Integer;
  nByteReaden: DWORD;
begin
CreateOK := False;
  I := 0;
  Editor.ReadOnly := False;
  Wpos.X := 0;
  WPos.Y := 0;
  with Pipeattr do
  begin
nLength := Sizeof(SECURITY_ATTRIBUTES);
lpSecurityDescriptor := nil;
bInheritHandle := true;
  end; if CreatePipe(hReadPipe, hWriteFile, @Pipeattr, 0) then
   Inc(i);
if CreatePipe(hReadFile, hWritePipe, @pipeattr, 0) then
   Inc(i);  GetStartupInfo(ShellStartInfo);
  with ShellStartInfo do
  begin
    dwFlags := STARTF_USESHOWWINDOW or STARTF_USESTDHANDLES;
    hStdInput := hReadPipe;
    hStdError := hWritePipe;
    hStdOutput := hWritePipe;
    wShowWindow := SW_HIDE;
  end;
GetSystemDirectory(@Shellstr, MAX_PATH+1);
  StrCat(@ShellStr, Pchar('\\cmd.exe'));
  if CreateProcess(Shellstr, nil, nil, nil, True, 0,
nil, nil, ShellStartInfo, processinfo) then
begin
    Inc(i);
  end else begin
   MessageBox(Handle, Pchar('调用Shell错误！'), Pchar('错误'), (MB_OK orMB_ICONERROR));
end;
  if i = 3 then
  begin
   CreateOK := True;
    Editor.Lines.Clear;
    sleep(250);
ReadFile(hReadFile, RBuffer, 25000, nByteReaden, nil);
   Editor.Lines.Add(StrPas(RBuffer));
WPos.Y := Editor.Lines.Count-1;
    WPos.X := Length(Editor.Lines[WPos.Y])-1;
  end;
end;procedure TPipeForm.EditorKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  ECharPos: TPoint;
begin
  ECharPos := Editor.CaretPos;
  if ECharPos.Y > WPos.Y then
   Editor.ReadOnly := False
  else if (ECharPos.Y = WPos.Y) and (ECharPos.X > WPos.X) then
  begin
   Editor.ReadOnly := False;
  end else
   Editor.ReadOnly := True;
end;function TPipeForm.GetCmdStr: string;
var
LastLine: Integer;
begin
LastLine := Editor.Lines.Count - 1;
  if LastLine > WPos.Y then
  begin
result := Editor.Lines[LastLine];
  end else if LastLine = WPos.Y then
  begin
   result := Editor.Lines[LastLine];
    result := Copy(result, WPos.X+2, Length(result));
  end else
  begin
   result := ' ';
  end;
end;procedure TPipeForm.EditorMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  ECharPos: TPoint;
begin
  ECharPos := Editor.CaretPos;
  if ECharPos.Y > WPos.Y then
   Editor.ReadOnly := False
  else if (ECharPos.Y = WPos.Y) and (ECharPos.X > WPos.X) then
   Editor.ReadOnly := False
  else
   Editor.ReadOnly := True;
end;end.

Answer 2

winexec('command.com /c dir c:\',SW_Normal);
其中/c 后的是命令
和dos一样