|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Запуск программы или файла из программы на Delphi 7
Доброе утро. Подскажите мне, как запустить программу или файл из программы на Delphi 7?
|
#2
|
||||
|
||||
Вариантов море, напр. вот кусочек из drkb
Код:
uses ShellAPI; … var h: hwnd; begin // Используем ShellExecute if ShellExecute(h, 'open', 'readme.txt', nil, nil, SW_SHOW) < 32 then begin ShowMessage('Немогу выполнить ShellExecute !') end; // Используем WinExec if WinExec('Notepad c:\config.sys', SW_SHOW) < 32 then begin ShowMessage('Немогу выполнить WinExec !') end; end; Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
Этот пользователь сказал Спасибо Alegun за это полезное сообщение: | ||
Egorkaru (22.02.2014)
|
#3
|
|||
|
|||
Цитата:
|
#4
|
||||
|
||||
С файлом вроде и так всё понятно, просто его имя в аргумент для запуска, и для сборки тоже самое
Код:
WinExec('proga.exe', SW_SHOW); // или так ShellExecute(0,nil,extractFileDir(ParamSTR(0))+'\proga.exe',nil,nil,SW_SHOWNORMAL); Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#5
|
|||
|
|||
Цитата:
|
#6
|
||||
|
||||
Путь до файла проверьте, напр.
Код:
ShowMessage(extractFileDir(ParamSTR(0))+'\proga.exe') З.Ы. попробуйте PChar(extractFileDir(ParamSTR(0))+'\proga.exe') Я не понял Вашего вопроса, но всё же Вам на него отвечу! |