Как вывести информацию на экран (не Application) ?

← →
MixerPro (2003-10-29 13:34) [0]

Программа не-аппликационная.
Нужно вывести типа help/? на экран.

← →
Вася Пупкин (2003-10-29 13:36) [1]

>Программа не-аппликационная.
Это как?

если консольная - то writeln

← →
MixerPro (2003-10-29 13:41) [2]

Программа не аппликационная - это значит форма на экран не выводится, а просто - посчитала, сформировала может быть какой-то файл, и закрылась.
Так вот надо чтобы типа help вызывался при запуске program.exe /? (не это как у всех - стандартно).
Так вот как на экран вывести информацию. Если Writeln, то с какими параметрами?

← →
Вася Пупкин (2003-10-29 13:50) [3]

2 варианта
- ShowMessage("твой help");
- либо AllocConsole, и дальше - обычный writeln("твой help"), потом FreeConsole

← →
MixerPro (2003-10-29 13:58) [4]

Нет, ShowMessage("твой help") не подойдет. Мне форма диалога не нужна. Нужны только строчки в консоле.

AllocConsole
writeln("твой help")
FreeConsole - не работает!

← →
Вася Пупкин (2003-10-29 14:06) [5]

program Project1;

uses
WIndows;

{$R *.res}

begin
AllocConsole;
writeln(ParamStr(0)," ",ParamStr(1));
Readln;
FreeConsole;
end.

← →
Вася Пупкин (2003-10-29 14:08) [6]

{$R *.res} - лишнее, забыл убрать

← →
Anatoly Podgoretsky (2003-10-29 14:11) [7]

И
AllocConsole;
FreeConsole;
тоже

← →
Вася Пупкин (2003-10-29 14:15) [8]

2т Anatoly Podgoretsky © (29.10.03 14:11) [7]
Это вряд ли.... если учесть, что {$APPTYPE GUI}

← →
MixerPro (2003-10-29 14:17) [9]

Это же в отдельном окне появляется, а мне надо тут же, где и был произведен запуск!

← →
Вася Пупкин (2003-10-29 14:21) [10]

Блин... тебя же спрашивали.... консольная программа или нет....
Тогда АП прав.
program Project1;
{$APPTYPE CONSOLE}
uses
WIndows;
begin
writeln(ParamStr(0)," ",ParamStr(1));
Readln;
end.

ps звиняйте, экстарсенсов нима.

← →
panov (2003-10-29 14:26) [11]

>MixerPro © (29.10.03 14:17) [9]
Это же в отдельном окне появляется, а мне надо тут же, где и был произведен запуск!

А где был произведен запуск?

← →
MixerPro (2003-10-29 14:37) [12]

Ряботает!! Уря !! Пасиб !!

Как вывести информацию на экран (не Application) ? Найти похожие ветки