path: Главная\Архив ответов

Q: Где можно качнуть дистрибутивы Turbo Pascal 7.0? Заранее благодарен!
A: Если Вам не велика разница то вы можете скачать полную версию Turbo Pascal 7.1 с нашего сайта http://www.p-timon.narod.ru/files.htm (тут же есть и русский help). В принципе, этот вариант, по понятным причинам, является более лучшим.

Q: Как запустить внешний файл в Pascal'е?

A: Воспользуйся процедурой Exec

Exec (процедура) (модуль Dos)

Выполняет заданную программу с заданной командной строкой.

Объявление: Procedure Exec(Path, CmdLine : String);
Режим: Real, Protected

Замечания: Ошибки сообщаются в переменной DosError. При компилировании программы, которая использует вызов Exec, уменьшите максимальный размер кучи, иначе, возможно, что для запускаемой программы не хватит памяти (DosError = 8).

 Смотри также:
 DosError
 DosExitCode
 SwapVectors

Пример:

{$M $4000, 0, 0 }   { 16Kб стек, нет кучи }
Uses Dos;

Var ProgramName, CmdLine : String;
Begin
 Write('Имя программы для запуска (с путем) : ');
 ReadLn(ProgramName);
 Write('Параметры командной строки ', ProgramName, ' : ');
 ReadLn(CmdLine);
 WriteLn('Пробую запустить...');
 SwapVectors;
 Exec(ProgramName, CmdLine);
 SwapVectors;
 WriteLn('... вернулся из Exec');
 { Была ошибка ? }
 If DosError<>0 Then WriteLn('Ошибка DOS #', DosError)
 Else WriteLn('Запуск был удачным. Код выхода = ', DosExitCode);
End.

Q: Как создавать EXE-файлы?

A: Для того, чтобы паскалевский код преобразовать в exe-файл (т.е. создать исполняемый файл) необходимо

1)В меню Compile установить напротив параметра Destination значение Disk (вместо Memory)
2)В этом же меню выбрать пункт Make (или Build), либо попросту нажать F9

---

Хостинг от uCoz