Текущий архив: 2005.02.13;
Скачать: CL | DM;

Вниз

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

← →
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.

---

Страницы: 1 вся ветка

Текущий архив: 2005.02.13;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.058 c