向高手高手高高手，请教，如何实现DELPHI在类似DOS环境下输入字符？

Question

我这有个类似DOS环境下的维护软件。我向利用DELPHI实现在这样的环境下输入命令，请高手指点，小弟无知，对这个没有任何思路，请指教！

Answer 1

我想要的效果就是，怎么实现向类似DOS的环境输入命令，并且过程返回到利用的MEMO上，但不是利用TXT转接来实现，希望直接反馈至MEMO上，请高手指点！

Answer 2

是用管道方法：
示例代码如下：
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    editor: TMemo;
    procedure editorMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure editorKeyPress(Sender: TObject; var Key: Char);
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    CreateOk: Boolean;
    WPos: TPoint;
    hReadPipe, hWritePipe, hWriteFile, hReadFile: THandle;
    processinfo: PROCESS_INFORMATION;
    procedure SendCmdToShell(const CmdStr: string);
    function GetCmdStr: string;
  end;var
  Form1: TForm1;implementation{$R *.dfm}{ TForm1 }function TForm1.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 TForm1.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;
  end;
end;procedure TForm1.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;procedure TForm1.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 TForm1.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 TForm1.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 or
      MB_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;end.

Answer 3

收藏的：http://www.mini188.com/showtopic-966.aspx