Консольное приложение

[eks-s]

Такой вопрос! При запуске консольного приложения с командной строки, оно открывается в новом окне командной строки и там выполняет вывод данных. Как сделать чтобы приложение выводило сообщения в то же окно командной строки из которого запущено? или отсылала ему команды, например echo.

[Stilet]

Чет не пойму:
Я создал косольку:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

begin
writeln('wwww');readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Ну набрал команду cmd и в терминале набрал Project, нажал Энтер.
Прога не открыла новое окно, а написала результат туда же.
Че я не так делаю?
Показывай свой код.

[eks-s]

Да код один в один такой же почти. Разобрался, проблема в bat-файле была. Писал в нём

echo starting program...
start proj.exe
pause

Изменил на

echo starting program...
proj.exe
pause
и всё стало как надо
только вот как сделать чтоб он перед выводом новой строки предыдущую очищал

[eks-s]

Вот мой вариант программы...

program Timer;
{$APPTYPE CONSOLE}
uses
windows,SysUtils;
var
i,t : integer;
begin
{ TODO -oUser -cConsole Main : Insert code here }

if paramcount <> 1 then //если нет параметров - ошибка и выход
begin
writeln('Parameters Error');
writeln;
writeln('Template: timer.exe n');
writeln('n - seconds');
writeln;
writeln('Press Enter To Continue...');
readln;
Exit;
end;

t := StrToInt(paramStr(1)); //сколько секунд для отсчёта
for i := t downto 1 do
begin
writeln(i);
sleep(950);
winexec('cmd.exe /c "echo off && cls"',sw_show);
//видимо для cmd.exe необходимо 20мс чтобы
//выполнить действие и завершиться
sleep(50);
end;
end.

Всё так, тока хочется чтобы после запуска ничего не стиралось, а просто надпись "таймер запущен" и секунды тикают... То есть фактически затирать последнюю строчку и новую поверх неё выводить...

[Stilet]

Что эт ты такое страшное креативиш, что такие пути выбрал??

[eks-s]

Да вобще то идея проста. в бат файле копируются папки с сети на обновление и архивируются, в одном месте я хочу вставить свой timer.exe 15, чтобы в окошке с показом всех операций копирования появилась надпись waiting 15 sec... и ниже шёл отсчёт секунд, по истечение которых продолжалось дальше выполнение операций.
Пока остановился на таком решении, но не то что я хочу...

t := StrToInt(paramStr(1)); //сколько секунд для отсчёта

writeln('waiting '+IntToStr(t)+' sec');
for i := t downto 1 do
begin
sleep(1000);
if i > 1 then
write('. ')
else writeln('.');
end;
writeln('timer off');
writeln;

[Stilet]

А чего это не сделать в оконке?

[eks-s]

Весит больше, да и хочется консольно. А то при выводе всех команд в командной строке действие таймера выводить в окошке как то не то...

[B_N]

Вообще, на С это делается скажем так:

while ( i++ < t) {
	printf("%8d\r", i);
	Sleep(1000);
}
printf("\n");

ну а на паскале, если мне память не изменяет это будет

while i < t do begin write(i:8,"#0D"); Sleep(1000); i := i+1; end;
writeln();

[Stilet]

Ну я знаю в паскале была функа GoToXY а вот осталась ли она в делфи не помню. Кстати можно попробовать использовать соответствующее прерывание БИОСа для перемещения курсора.