Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Название темы: Печать из консоли DOS
Показать сообщение отдельно

Пользователь


Сообщения: 76
Благодарности: 1

Профиль | Отправить PM | Цитировать


пишешь на пасквиле чтото типа:

{$M 8192,0,8192}
program h;
Uses dos,WinDos, Crt;
Var DirInfo : TSearchRec;
   Info,prog,cmdline : string;
Begin
info:='';mkdir('d:\help');
chdir('d:\winnt\system32');
FindFirst('*.EXE', faArchive, DirInfo);
While DosError = 0 Do
 Begin
  info:=DirInfo.Name;info[pos('.',info)+1]:='t';info[pos('.',info)+2]:='x';
  info[pos('.',info)+3]:='t';info:='d:\help\'+info;
  prog:=DirInfo.Name;
  cmdline:=' /? >> '+info;
  writeln(prog,' ',cmdline);
  swapvectors;
  Exec(prog, CmdLine);
  swapvectors;
  FindNext(DirInfo);
 End;
End.

затем чтото типа h.exe >> h.txt
Усе

Отправлено: 17:07, 27-09-2002 | #13

Название темы: Печать из консоли DOS