консольное приложение - перехватить ввод [D6, Win95/98, WinME, Win2k]
KAA_VS_1C © (2005-01-28 16:56:00)
нужно что б дельфевое приложение перехватило стандартный ввод.
чтоб можно было указывать ввод из файла и т.п.
как это сделать? пробывал
{$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:00) [1]
Чуть проще
begin
Read[ln](a);
Writeln(a);
end.
Наверх 
ЧАТ |
Орешник |
|
