Delphi 6 - đọc đầu ra của ứng dụng giao diện điều khiển trong khi đang chạy

Question

Làm cách nào để đọc đầu ra ứng dụng bảng điều khiển khi nó đang chạy. Tôi bắt đầu ứng dụng giao diện điều khiển và muốn đọc kết quả đầu ra khi ứng dụng được in bằng giao diện điều khiển.

Answer 1

Điều gì về điều này solution.

---

EDIT: liên kết dẫn đến giải pháp này (nhẹ refactored cho mức độ dễ đọc và để loại bỏ sử dụng with):

// The example runs 'chkdsk.exe c:\' and displays the output to Memo1. 
// Put a TMemo (Memo1) and a TButton (Button1) on your form. Put this 
// code in the OnCLick event procedure for Button1: 

procedure TForm1.RunDosInMemo(DosApp:String;AMemo:TMemo) ; 
const 
    ReadBuffer = 2400; 
var 
    Security : TSecurityAttributes; 
    ReadPipe, 
    WritePipe : THandle; 
    start  : TStartUpInfo; 
    ProcessInfo : TProcessInformation; 
    Buffer  : Pchar; 
    BytesRead : DWord; 
    Apprunning : DWord; 

begin 
    Security.nlength := SizeOf(TSecurityAttributes) ; 
    Security.binherithandle := true; 
    Security.lpsecuritydescriptor := nil; 
    if Createpipe (ReadPipe, WritePipe, @Security, 0) then 
    begin 
    Buffer := AllocMem(ReadBuffer + 1) ; 
    FillChar(Start,Sizeof(Start),#0) ; 
    start.cb := SizeOf(start) ; 
    start.hStdOutput := WritePipe; 
    start.hStdInput := ReadPipe; 
    start.dwFlags := STARTF_USESTDHANDLES + STARTF_USESHOWWINDOW; 
    start.wShowWindow := SW_HIDE; 
    if CreateProcess(nil, 
        PChar(DosApp), 
        @Security, 
        @Security, 
        true, 
        NORMAL_PRIORITY_CLASS, 
        nil, 
        nil, 
        start, 
        ProcessInfo) then 
    begin 
     repeat 
     Apprunning := WaitForSingleObject(ProcessInfo.hProcess,100); 
     Application.ProcessMessages; 
     until (Apprunning <> WAIT_TIMEOUT) ; 
     repeat 
     BytesRead := 0; 
     ReadFile(ReadPipe,Buffer[0], 
     ReadBuffer,BytesRead,nil) ; 
     Buffer[BytesRead]:= #0; 
     OemToAnsi(Buffer,Buffer) ; 
     AMemo.Text := AMemo.text + String(Buffer) ; 
     until (BytesRead < ReadBuffer) ; 
    end; 
    FreeMem(Buffer) ; 
    CloseHandle(ProcessInfo.hProcess) ; 
    CloseHandle(ProcessInfo.hThread) ; 
    CloseHandle(ReadPipe) ; 
    CloseHandle(WritePipe) ; 
    end; 
end; 

procedure TForm1.Button1Click(Sender: TObject) ; 
begin 
    RunDosInMemo('chkdsk.exe c:\', Memo1) ; 
end; 

Answer 2

Tôi thường sử dụng này chuyển đang FPC: http://www.stack.nl/~marcov/processdelphi.zip

Nó chứa một lớp để kiểm soát các chương trình bên ngoài (nó là lớp được sử dụng bởi Lazarus để gọi trình biên dịch cmdline và các chương trình khác).

Tài liệu ở đây, nhưng cổng delphi hơi cũ, vì vậy không phải tất cả các thuộc tính được ghi lại có thể tồn tại trong phiên bản trên.

http://www.freepascal.org/docs-html/fcl/process/index.html

Answer 3

Chỉ cần một bổ sung nhỏ để Marco câu trả lời, bằng cách sử dụng đơn vị TProcess được giải thích kỹ lưỡng here

Tôi tin rằng đây là cách dễ nhất để làm điều đó. Chúc may mắn!