Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Файловая система
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 29.08.2008, 14:39
terehovk terehovk вне форума
Новичок
 
Регистрация: 29.08.2008
Сообщения: 51
Репутация: 10
Вопрос как запустить из delphi7

как запустить exe-файл из delphi7
Ответить с цитированием
  #2  
Старый 29.08.2008, 14:44
Аватар для <<D>>
<<D>> <<D>> вне форума
Активный
 
Регистрация: 06.05.2007
Адрес: ГДЕ ТО В СОЛНЕЧНОЙ СИСТЕМЕ
Сообщения: 207
Репутация: 15
По умолчанию

ShellExecute
__________________
Кому я должен - всем прощаю!!!!
Ответить с цитированием
  #3  
Старый 29.08.2008, 14:49
terehovk terehovk вне форума
Новичок
 
Регистрация: 29.08.2008
Сообщения: 51
Репутация: 10
По умолчанию

и чё дальше
Ответить с цитированием
  #4  
Старый 29.08.2008, 15:57
Аватар для <<D>>
<<D>> <<D>> вне форума
Активный
 
Регистрация: 06.05.2007
Адрес: ГДЕ ТО В СОЛНЕЧНОЙ СИСТЕМЕ
Сообщения: 207
Репутация: 15
По умолчанию

Код:
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  
Старый 29.08.2008, 15:58
Аватар для Winny
Winny Winny вне форума
Продвинутый
 
Регистрация: 26.05.2007
Адрес: Планета земля, Россия, Москва
Сообщения: 620
Репутация: 30
По умолчанию

Код:
ShellExecute(Handle, 'open', 'путь к программе',nil,nil,SW_SHOW);
Добавь в uses модуль ShellApi.
Есть ещё способ:
Код:
WinExec('путь к программе', SW_SHOW);
И, ещё. Я отвечал другим пользователям на этот вопрос 2 или 3 раза. Ищи по форуму, прежде чем что-то спрашивать, пожалуйста.

P.S.<<D>>, опередил. Гы
__________________

Ответить с цитированием
  #6  
Старый 29.08.2008, 16:02
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,048
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Дальше - куришь справку.

в общем виде делается так:
Код:
uses ShellAPI;
...
If ShellExecute(Application.Handle,
               PChar('open'),
               PChar('path\file.exe'),
               Nil,
               Nil,
               SW_SHOW) < 32 Then ShowMessage('Error');
Ответить с цитированием
  #7  
Старый 15.10.2008, 23:05
bone01 bone01 вне форума
Прохожий
 
Регистрация: 15.10.2008
Сообщения: 2
Репутация: 10
По умолчанию

А еще есть функция API - createprocess
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 17:20.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter