// In Konsolenprogramme kann man über die IDE kein Icon einbinden.
// Es geht aber auch "per Hand": Als erstes erstellt man mit einem
// Texteditor (notepad.exe) eine *.rc Datei, z.B. "icon.rc". Dort
// hinein schreibt man Name, Bezeichner und den Pfad eines Icons,
// z.B.: ic ICON c:\myicon.ico
// Diese Datei wird mittels des Programms "brcc32.exe" zu
// "icon.res" übersetzt und diese dann im Programm aufgenommen.


// Getestet mit D4 unter XP

program cons; 
 
{$APPTYPE CONSOLE} 
 
var MyMessage: string; 
 
{$R icon.res} // <------------- 
 
begin 
  MyMessage := 'Hallo Welt!'; 
  Writeln(MyMessage); 
end.

// Bei höheren Versionen braucht man die *.rc-Datei nicht mehr
// extern umzuwandeln:

program cons; 
{$APPTYPE CONSOLE} 
{$R 'icon.res' 'icon.rc'} // <------------- 
 
var 
  MyMessage: string; 
 
begin 
  MyMessage := 'Hallo Welt!'; 
  Writeln(MyMessage); 
 
end.