![]() |
|
|
Регистрация | << Правила форума >> | 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
|