CMD-Ausgabe von chkdsk, wget usw. ordentlich?

[Dalai]

Hallo Forum,

bitte nicht hauen, wenn ich das falsche Unterforum erwischt haben sollte, denn wie ihr seht, schreibe ich zum ersten Mal hier in der DP . Ich fand dies das passendste Unterforum.

Ich weiß, dass DOS-Ausgaben usw. schon mehrfach behandelt wurden, aber ich habe ein spezielleres Problem.

Ich habe eine Klasse TLaunch, die versch. Eigenschaften und VCL-Objekte (z.B. einen Button) beinhaltet. Beim Klick auf diesen Button wird der in den Eigenschaften des Objekts gespeicherte Befehl ausgeführt, und zwar unter Verwendung dieser Methode:

Delphi-Quellcode:

procedure TMainForm.LaunchClick(Sender: TObject);
const BufSize = 1024;
var
    // Ausführung mit Capture
    SA: TSecurityAttributes;
    SI: TStartupInfo;
    PI: TProcessInformation;
    StdOutPipeRead, StdOutPipeWrite: THandle;
    WasOK: Boolean;
    Buffer: array[0..BufSize] of Char;
    BytesRead: Cardinal;
begin
    obj:= (Sender as TLaunch);
    LogForm.LogMemo.Clear;
    LogForm.CloseBtn.Enabled:= False;
    LogForm.MyShowModal;
    with SA do
    begin
        nLength:= SizeOf(SA);
        bInheritHandle:= True;
        lpSecurityDescriptor:= nil;
    end;
    try
        CreatePipe(StdOutPipeRead, StdOutPipeWrite, @SA, 0);
        Application.ProcessMessages;
        with SI do
        begin
            FillChar(SI, SizeOf(SI), 0);
            cb:= SizeOf(SI);
            dwFlags:= STARTF_USESHOWWINDOW or STARTF_USESTDHANDLES;
            wShowWindow:= SW_HIDE;
            hStdInput:= GetStdHandle(STD_INPUT_HANDLE); // don't redirect stdin
            hStdOutput:= StdOutPipeWrite;
            hStdError:= StdOutPipeWrite;
        end;
        WasOK:= CreateProcess(nil, PChar(obj.ExecFile + ' ' + obj.ExecParams),
                           nil, nil, True, 0, nil,
                           PChar(obj.ExecWorkDir),
                           SI, PI);
        CloseHandle(StdOutPipeWrite);
        if WasOK then
          try
            Application.ProcessMessages;
            repeat
                Application.ProcessMessages;
                WasOK:= ReadFile(StdOutPipeRead, Buffer, Pred(BufSize), BytesRead, nil);
                if BytesRead > 0 then
                begin
                    Buffer[BytesRead]:= #0;
                    OemToChar(Buffer, Buffer);
                    LogForm.LogMemo.Text:= LogForm.LogMemo.Text + String(Buffer);
                end;
                Sleep(50);
            until not WasOK or (BytesRead = 0);
            WaitForSingleObject(PI.hProcess, INFINITE);
          finally
            CloseHandle(PI.hThread);
            CloseHandle(PI.hProcess);
          end;
    finally
        CloseHandle(StdOutPipeRead);
        //CloseHandle(StdOutPipeWrite);
    end;
    LogForm.CloseBtn.Enabled:= True;
    LogForm.CloseBtn.SetFocus;
end;

Die Ausgabe wird auch wunderbar im Memo angezeigt, und das auch schön "in Echtzeit", also nicht erst nach Ende des Programms. Nun zum Problem: Programme, die Ausgaben in derselben Zeile erzeugen (chkdsk, wget, freshclam), generieren dann derartigen Output (gekürzt):

Code:

Der Typ des Dateisystems ist FAT32.
Datenträger SYSTEM erstellt 29.08.2006 00:34
Datenträgernummer: 44F3-8B85
Dateien und Ordner werden überprüft...
0 Prozent durchgeführt.
3 Prozent durchgeführt..
4 Prozent durchgeführt...
5 Prozent durchgeführt....
6 Prozent durchgeführt.....
7 Prozent durchgeführt......
8 Prozent durchgeführt.
9 Prozent durchgeführt..
10 Prozent durchgeführt...
11 Prozent durchgeführt....
12 Prozent durchgeführt.....
13 Prozent durchgeführt......
14 Prozent durchgeführt.
15 Prozent durchgeführt..
16 Prozent durchgeführt...
17 Prozent durchgeführt....
18 Prozent durchgeführt.....
19 Prozent durchgeführt......

Allerdings stehen die Prozentangaben alle in einer Zeile, die dann vom Memo irgendwann umgebrochen werden (bei maximaler Stringlänge oder so).

Hat jemand eine Idee, wie ich wirklich nur die Zeilen bekomme, die man auch sieht, wenn man die Befehle in der CMD ausführen würde?

Danke im Voraus für Hilfe

MfG Dalai