将dos内部命令结果输出到Console Window(100分)

MaxWoods · 2002-11-22

[blue] unit Console; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls,ShellAPI; type   TConsoleForm = class(TForm)     btOpen: TButton;     btClose: TButton;     btRun: TButton;     btOutput: TButton;     procedure btOpenClick(Sender: TObject);     procedure btCloseClick(Sender: TObject);     procedure btOutputClick(Sender: TObject);     procedure btRunClick(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   ConsoleForm: TConsoleForm; implementation {$R *.dfm} procedure TConsoleForm.btOpenClick(Sender: TObject); begin   if not AllocConsole then Application.MessageBox('Can''t allocate console!',' Console',MB_OK OR MB_ICONINFORMATION)   else SetConsoleTitle('Console Demo'); end; procedure TConsoleForm.btCloseClick(Sender: TObject); begin   if not FreeConsole then Application.MessageBox('Can''t free console!','Conso le',MB_OK OR MB_ICONINFORMATION); end; procedure TConsoleForm.btOutputClick(Sender: TObject); var OutText

Char;nWrite:Cardinal;sHandle:Cardinal; begin  OutText:='Hello,console!'#$A#$D;  sHandle:=GetStdHandle(STD_OUTPUT_HANDLE);  if (sHandle<>0) then  begin    WriteConsole(sHandle,OutText,StrLen(OutText),nWrite,nil);  end; end; procedure TConsoleForm.btRunClick(Sender: TObject); begin   //这里要运行dos的dir命令，并将结果输出到"Open"按钮打开的Console   //Window，怎么写 end; end.[/blue]

tianhf · 2002-11-22

在网络探索者1.1(qsilence@sina.com)中挖来的一个函数: RunDosCommand('ping.exe ' + 参数, RichEdit1.Lines); ============================================================= procedure RunDosCommand(Command : string; Output : TStrings); var   hReadPipe : THandle;   hWritePipe : THandle;   SI : TStartUpInfo;   PI : TProcessInformation;   SA : TSecurityAttributes; //  SD : TSecurityDescriptor;   BytesRead : DWORD;   Dest : array[0..1023] of char;   CmdLine : array[0..512] of char;   TmpList : TStringList;   Avail, ExitCode, wrResult : DWORD;   osVer : TOSVERSIONINFO;   tmpstr :AnsiString; begin   osVer.dwOSVersionInfoSize := Sizeof(TOSVERSIONINFO);   GetVersionEX(osVer);   if osVer.dwPlatformId = VER_PLATFORM_WIN32_NT then   begin //    InitializeSecurityDescriptor(@SD, SECURITY_DESCRIPTOR_REVISION); //    SetSecurityDescriptorDacl(@SD, True, nil, False);     SA.nLength := SizeOf(SA);     SA.lpSecurityDescriptor := nil;//@SD;     SA.bInheritHandle := True;     CreatePipe(hReadPipe, hWritePipe, @SA, 0);   end   else     CreatePipe(hReadPipe, hWritePipe, nil, 1024);   try     Screen.Cursor := crHourglass;     FillChar(SI, SizeOf(SI), 0);     SI.cb := SizeOf(TStartUpInfo);     SI.wShowWindow := SW_HIDE;     SI.dwFlags := STARTF_USESHOWWINDOW;     SI.dwFlags := SI.dwFlags or STARTF_USESTDHANDLES;     SI.hStdOutput := hWritePipe;     SI.hStdError := hWritePipe;     StrPCopy(CmdLine, Command);     if CreateProcess(nil, CmdLine, nil, nil, True, NORMAL_PRIORITY_CLASS, nil, nil, SI, PI) then     begin        ExitCode := 0;        while ExitCode = 0 do        begin           wrResult := WaitForSingleObject(PI.hProcess, 500); //        if PeekNamedPipe(hReadPipe, nil, 0, nil, @Avail, nil) then           if PeekNamedPipe(hReadPipe, @Dest[0], 1024,  @Avail, nil, nil) then           begin              if Avail > 0 then              begin                TmpList := TStringList.Create;                try                  FillChar(Dest, SizeOf(Dest), 0);                  ReadFile(hReadPipe, Dest[0], Avail, BytesRead, nil);                  TmpStr := Copy(Dest,0 , BytesRead-1);                  TmpList.Text := TmpStr;                  Output.AddStrings(TmpList);                finally                  TmpList.Free;                end;              end;           end;             if wrResult <> WAIT_TIMEOUT then ExitCode := 1;        end;        GetExitCodeProcess(PI.hProcess, ExitCode);        CloseHandle(PI.hProcess);        CloseHandle(PI.hThread);      end;      finally        CloseHandle(hReadPipe);        CloseHandle(hWritePipe);        Screen.Cursor := crDefault;    end; end;

将dos内部命令结果输出到Console Window(100分)

MaxWoods

Unregistered / Unconfirmed

tianhf

Unregistered / Unconfirmed

Similar threads