![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
![]() Вот, процедура, которая открывет программу Turbo Pascal:
Код:
procedure TForm1.Button1Click(Sender: TObject); begin ShellExecute(Handle,nil,'E:\Turbo Pascal 7\BIN\TURBO.exe',nil,nil,SW_SHOWNORMAL); end; А как сделать, чтобы программа не только открывалась, но и в неё автоматически загружался паскалевский файл (например, путь которого 'E:\pascal.pas')? |