11.11.2008, 00:21
|
|
Участник форума
Регистрация: 20.12.2007
Сообщений: 295
С нами:
9679872
Репутация:
347
|
|
Сообщение от TheJahte
ну... а пример ?
Код:
program executer;
{$APPTYPE CONSOLE}
uses windows;
var f:textfile;
cmd:string;
begin
assignfile(f,'file.txt');
reset(f);
while not eof(f) do begin
readln(f,cmd);
WinExec(pChar(cmd),SW_SHOW);
Sleep(5000);
end;
closefile(f);
end.
пример файла file.txt
Код:
ping ya.ru
ping forum.antichat.ru
|
|
|