![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
|
|
#1
|
|||
|
|||
|
как запустить exe-файл из delphi7
|
|
#2
|
||||
|
||||
|
ShellExecute
|
|
#3
|
|||
|
|||
|
и чё дальше
|
|
#4
|
||||
|
||||
|
Код:
Uses ShellAPI;
...
implementation
Procedure RunFile(FileName:String);
begin
ShellExecute (Application.mainform.Handle, nil, PChar(FileName), nil, nil, SW_RESTORE);
end;Пример использования Код:
... if OpenDialog1.execute then RunFile(Opendialog1.FileName); ... |
|
#5
|
||||
|
||||
|
Код:
ShellExecute(Handle, 'open', 'путь к программе',nil,nil,SW_SHOW); Есть ещё способ: Код:
WinExec('путь к программе', SW_SHOW);P.S.<<D>>, опередил. Гы ![]() |
|
#6
|
|||
|
|||
|
Дальше - куришь справку.
в общем виде делается так: Код:
uses ShellAPI;
...
If ShellExecute(Application.Handle,
PChar('open'),
PChar('path\file.exe'),
Nil,
Nil,
SW_SHOW) < 32 Then ShowMessage('Error'); |
|
#7
|
|||
|
|||
|
А еще есть функция API - createprocess
|