На Free Pascal у меня получилось это:
Uses CRT, Windows, ShellAPI;
Begin
ClrScr;
// Z5.exe - это у меня одна из задач на Паскале (лежит в каталоге с этой прогой)
Case WinExec(PChar('Z5.EXE'), SW_ShowNormal) Of
0: WriteLn('Не хватает памяти или других ресурсов!');
ERROR_BAD_FORMAT: WriteLn('Неправильный формат исполняемого файла!');
ERROR_FILE_NOT_FOUND: WriteLn('Не найден указанный файл!');
ERROR_PATH_NOT_FOUND: WriteLn('Не найден указанный путь!');
Else;
End;
Repeat Until KeyPressed;
End.
WinExec(PChar('полное имя файла'), как показать окно) - второй параметр имеет 3 значения:
- SW_ShowMaximized - окно развёрнуто
- SW_ShowMinimized - окно свёрнуто
- SW_ShowNormal - обычный вид окна
P. S. На Турбо Паскале это, скорее всего, не прокатит, т. к. Турбо Паскаль уже старый и вряд-ли поддерживает WinAPI.