fehlermeldungen im dosfenster ausdrucken!!

[markus lemcke]

wenn ich ein programm im dosfenster unter windows 95 starte,
kommen eine ganze reihe von fehlermeldungen!!!!!
ich würde gerne die fehlermeldungen ausdrucken.
weiß jemand wie das geht???

mfg

markus lemcke

[Günther Weber]

häng hinter den DOS-Aufruf ein

" > Dateiname "

ohne die Anführungszeichen an, die Datei kannst Du dann hinterher ausdrucke

[markus lemcke]

umleitung geht nicht!!!

ciao

marku

[Günther Weber]

warum nicht ? Wie sieht Dein DOS-Aufruf aus

[Andreas Kosch]

Hallo Markus,

wenn die im Fenster der Eingabeaufforderung (DOS-Fenster) ausgeführte Anwendung vom eigenen Programm startet wird (d.h. wenn das Prozess-Handle bekannt ist), kann die eigene Anwendung direkt den Inhalt im "DOS-Fenster" auslesen. Das folgende Beispiel kopiert den Inhalt des "DOS-Fensters" in eine TMemo-Instanz im Formular:
<pre>
procedure TFormMain.btnGrabClick(Sender: TObject);
var
aDest : TCoord;
aCSBI : TConsoleScreenBufferInfo;
i, j : integer;
sLineBuff : String;
szOemChar : array[0..254] of Char;
pGrabBuff : pcInfo;
begin
btnGrab.Enabled := False;
aDest.X := 0;
aDest.Y := 0;
try
// Eigenschaften (Breite+Höhe) des Consolenfensters auslesen
GetConsoleScreenBufferInfo(hConsole, aCSBI);
// Platz für den Zeilenpuffer reservieren
SetLength(sLineBuff, aCSBI.dwMaximumWindowSize.X + 1);
// Platz für den Consolenpuffer reservieren
// (= Breite * Höhe * Größe von TCharInfo)
with aCSBI.dwMaximumWindowSize do
GetMem(pGrabBuff, X * Y * SizeOf(TCharInfo));
try
// Inhalt des Consolen-Fensters in den Puffer einlesen
with aCSBI do
ReadConsoleOutput(hConsole, pGrabBuff,
dwMaximumWindowSize, aDest, srWindow);
// Daten aus dem Puffer in die TMemo-Instanz einsetzen
Memo1.Clear;
with aCSBI.dwMaximumWindowSize do begin
// Inhalt des Consolenfensters Zeilenweise auslesen
for i := 0 to Y - 1 do begin
// Zeilenpuffer leeren
sLineBuff := '';
// alle Zeichen dieser Zeile in den Zeilenpuffer kopieren
for j := 1 to X do
sLineBuff := sLineBuff + pGrabBuff^[i * X + j].AsciiChar;
// Zeichensatz (OEM) nach ANSI konvertieren
OemToChar(PChar(sLineBuff), szOemChar);
// gefüllten Zeilenpuffer in die TMemo-Instanz einsetzen
Memo1.Lines.Add(szOemChar);
end;
end;
StatBar.Panels[1].Text := Format('%d x %d Zeichen',
[aCSBI.dwMaximumWindowSize.X,
aCSBI.dwMaximumWindowSize.Y]);
finally
Freemem(pGrabBuff);
end;
finally
btnGrab.Enabled := true;
end;
end;
</pre&gt