прога и чюжая прога - Общие вопросы Delphi

benjaminfran · 25.02.2008, 22:29

подскажите плиз как реализовать такую идею
*я запускаю свою прогу кликаю по бутону и открывается чюжая прога!*

FaTaL · 25.02.2008, 22:33

ShellExecute (Handle, 'open', 'путь к программе', nil, nil, sw_show);

Не забудьте заюзать ShellAPI

benjaminfran · 25.02.2008, 22:52

спс !!!!!!!!!!!!!!!!!!!!!!!!!!!!

AngelOfDeath · 28.03.2008, 05:14

Или вот так
WinExec('Путь к проге',SW_SHOW);

Gorychev · 28.03.2008, 14:17

Сначала проверяем наличие файла, потом запускаем, если не нашли, то сообщение:
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;

FaTaL · 28.03.2008, 15:07

Ну это уже исключительные ситуации. И они нужны для людей не знающих прогу.

25.02.2008, 22:29	#1
benjaminfran Пользователь Регистрация: 14.02.2008 Сообщений: 42	прога и чюжая прога подскажите плиз как реализовать такую идею я запускаю свою прогу кликаю по бутону и открывается чюжая прога!

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
прога	vovik	Свободное общение	2	02.07.2007 10:13
Прога на с#	rojer	Помощь студентам	6	22.05.2007 22:37
прога	Sname	Фриланс	6	18.01.2007 07:08

25.02.2008, 22:33	#2
FaTaL Участник клуба Регистрация: 09.11.2007 Сообщений: 1,761	ShellExecute (Handle, 'open', 'путь к программе', nil, nil, sw_show); Не забудьте заюзать ShellAPI

25.02.2008, 22:52	#3
benjaminfran Пользователь Регистрация: 14.02.2008 Сообщений: 42	спс !!!!!!!!!!!!!!!!!!!!!!!!!!!!

28.03.2008, 05:14	#4
AngelOfDeath Delphi/C++/Asm Форумчанин Подтвердите свой е-майл Регистрация: 28.03.2008 Сообщений: 358	Или вот так WinExec('Путь к проге',SW_SHOW);

28.03.2008, 14:17	#5
Gorychev Участник клуба Регистрация: 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
FaTaL Участник клуба Регистрация: 09.11.2007 Сообщений: 1,761	Ну это уже исключительные ситуации. И они нужны для людей не знающих прогу.