|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
как запустить из delphi7
как запустить 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
|