|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
25.02.2008, 22:29 | #1 |
Пользователь
Регистрация: 14.02.2008
Сообщений: 42
|
прога и чюжая прога
подскажите плиз как реализовать такую идею
*я запускаю свою прогу кликаю по бутону и открывается чюжая прога!* |
25.02.2008, 22:33 | #2 |
Участник клуба
Регистрация: 09.11.2007
Сообщений: 1,762
|
ShellExecute (Handle, 'open', 'путь к программе', nil, nil, sw_show);
Не забудьте заюзать ShellAPI |
25.02.2008, 22:52 | #3 |
Пользователь
Регистрация: 14.02.2008
Сообщений: 42
|
спс !!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
28.03.2008, 05:14 | #4 |
Delphi/C++/Asm
Форумчанин Подтвердите свой е-майл
Регистрация: 28.03.2008
Сообщений: 358
|
Или вот так
WinExec('Путь к проге',SW_SHOW); |
28.03.2008, 14:17 | #5 |
Участник клуба
Регистрация: 08.03.2008
Сообщений: 1,537
|
Сначала проверяем наличие файла, потом запускаем, если не нашли, то сообщение:
procedure TForm1.Button3Click(Sender: TObject); begin if FileExists(ExtractFileDir(Applicati on.ExeName)+'\Date_Time\D_T.exe') then ShellExecute(handle, 'OPEN', PChar(ExtractFileDir(Application.Ex eName)+'\Date_Time\D_T.exe'), nil, nil,1) else ShowMessage('Файл не найден ' + ExtractFileDir(Application.ExeName) +'\Date_Time\D_T.exe'); end; |
28.03.2008, 15:07 | #6 |
Участник клуба
Регистрация: 09.11.2007
Сообщений: 1,762
|
Ну это уже исключительные ситуации. И они нужны для людей не знающих прогу.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
прога | vovik | Свободное общение | 2 | 02.07.2007 10:13 |
Прога на с# | rojer | Помощь студентам | 6 | 22.05.2007 22:37 |
прога | Sname | Фриланс | 6 | 18.01.2007 07:08 |