我想取得Dos窗口的内容,让它显示到一个memo中。    我现在的方法是先创建一个此dos命令的进程,然后用匿名管道读取,但是只能够取得Dos命令的内容,像Dir等。对于16位的dos命令,像masm,tc,link,运行时却得不到任何东西,在IDE中运行显示“NTVDM遇到一个系统错误,控制码无效。请选择[关闭]来终止应用程序”。我的环境是win2k/xp。    请问如何解决,或者有更好的方法。好像和虚拟模式实模式有关吧,这个我不懂,还请高手指教。先谢过了。

解决方案 »

  1.   

    这个可以呀,《程序员》有个连载就有说这个问题的,好像叫做《RAD后面的故事》在2002年第一期或第二期中。
    大概意思就是重定向标准句柄,文章中详细说明。
      

  2.   

    masm的16位老版本在纯32位内核下本来就不能直接运行的嘛
      

  3.   

    别人的程序,从CSDN上看到了,我用这个程序赚了不少分了,希望这次不要失手unit Unit1;interfaceuses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls;type
      TPipeForm = class(TForm)
        Editor: TMemo;
        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 }
      end;var
      PipeForm: TPipeForm;implementation{$R *.dfm}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;
      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 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;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.