Hallo,
ich weiß das es zu diesem Thema wahrscheinlich schon sehr viele Antworten gab, aber nach 3 Stunden erfolglosem Googlen suche ich doch nochmal hier die Lösung.
Ich habe schon einige Sachen aus Foren ausprobiert aber ich kriege es einfach nicht hin...
Ich habe mal gepostet was zu ich schon habe
der Test soll nochmal als Bildschirmausgabe angezeigt werden gerne mit Writeln.
program Progamm;
{$APPTYPE CONSOLE}
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ShellApi;
begin
ShellExecute(Application.Handle, 'open', 'cmd', '/k dir /b >> dir.txt & exit', nil, SW_SHOWNORMAL);
//Hier soll der Text dir.txt nochmal ausgegeben werden
readln;
end.
ich weiß das es zu diesem Thema wahrscheinlich schon sehr viele Antworten gab, aber nach 3 Stunden erfolglosem Googlen suche ich doch nochmal hier die Lösung.
Ich habe schon einige Sachen aus Foren ausprobiert aber ich kriege es einfach nicht hin...
Ich habe mal gepostet was zu ich schon habe
der Test soll nochmal als Bildschirmausgabe angezeigt werden gerne mit Writeln.
program Progamm;
{$APPTYPE CONSOLE}
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ShellApi;
begin
ShellExecute(Application.Handle, 'open', 'cmd', '/k dir /b >> dir.txt & exit', nil, SW_SHOWNORMAL);
//Hier soll der Text dir.txt nochmal ausgegeben werden
readln;
end.
Comment