|
Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.624 Beiträge
Delphi 12 Athens
|
Re: Konsolenanwendung Problem
28. Nov 2008, 18:48
Delphi-Quellcode:
program Konsole;
{$APPTYPE CONSOLE}
uses
SysUtils, Windows;
var s: AnsiString;
begin
try
{ TODO -oEntwickler -cKonsole Main : Hier Code einfügen }
s := ' Böser Virus';
CharToOEM(PAnsiChar(s),PAnsiChar(s));
Writeln(s);
Sleep(5000);
Writeln(' Beenden mit Enter');
Readln;
except
on E: Exception do
Writeln(E.Classname, ' : ', E. Message);
end;
end.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
|