прога и чюжая прога

[benjaminfran]

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

[FaTaL]

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

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

[benjaminfran]

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

[AngelOfDeath]

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

[Gorychev]

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

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