консольное приложение - перехватить ввод

← →
KAA_VS_1C (2005-01-28 16:56) [0]

нужно что б дельфевое приложение перехватило стандартный ввод.
чтоб можно было указывать ввод из файла и т.п.

как это сделать? пробывал

{$APPTYPE CONSOLE}
Program SendMail;

Uses
SysUtils,
Windows;

Var
BufRef, p,q : PChar;
BufLen, a,b,c : cardinal;
Begin
bufLen:=65535;
bufRef:=StrAlloc(bufLen);
FillChar(bufRef^,bufLen,0);

ReadConsole(0, bufRef, bufLen, a, q);

writeln(a);
writeln(string(bufRef));

End.

← →
Anatoly Podgoretsky © (2005-01-28 19:56) [1]

Чуть проще
begin Read[ln](a); Writeln(a); end.

консольное приложение - перехватить ввод Найти похожие ветки