Главная страница | назад





Article #15747: Generating a Windows Console Application

 Question and Answer Database

FAQ747D.txt   Generating a Windows Console Application
Category   :Windows API
Platform    :All
Product    :All 32 bit  

Question:
How do I generate a Windows Console Application?


Answer:
Create a new application, then, from the View... Menu option,
start the "Project Manager", and remove all units from the project.  
When asked if you would like to save, Click on the 'NO' button.
Then from the View... menu option, select "Project Source" and edit
it so it looks like the below example. Note: You can add and use
additional units, so long as you do not use any VCL components.

Example:

program Project1;

uses
  Windows;

{$R *.RES}

begin
  Writeln('A Console Applicaiton');
  SetConsoleTextAttribute(GetStdHandle(
                          STD_OUTPUT_HANDLE),
                          FOREGROUND_RED OR             
                          BACKGROUND_BLUE);
  Writeln('Red text on a blue background ');
  SetConsoleTextAttribute(GetStdHandle(STD_OUTPUT_HANDLE),
                          FOREGROUND_BLUE OR BACKGROUND_RED);
  writeln('Blue text on a red background ');
{White text on black background}
  SetConsoleTextAttribute(        GetStdHandle(STD_OUTPUT_HANDLE),
                          FOREGROUND_RED OR
                          FOREGROUND_GREEN OR
                          FOREGROUND_BLUE);
  Writeln('Press Enter To End');
  Readln;
end.



7/16/98 4:31:28 PM
 

Last Modified: 01-SEP-99