Как запустить из Delphi exe файл

[Makxim]

Мне надо чтобы при нажатии кнопки на форме,запускался exeшник.Подскажите что-нибудь.

[Alex21]

Фраза для поиска по форуму: Shellexecute

[execom]

function ShellExecute(hWnd: HWND; Operation, FileName, Parameters,
Directory: PChar; ShowCmd: Integer): HINST;

пример:

procedure TForm1.Button7Click(Sender: TObject);
begin
ShellExecute
(0,           //Хендл родительского окна
'',            //Операция (open,print,explore) - по дефалту open
'cmd.exe', //Путь к файлу
' exit',      //Командная строка
'%tmp%',  //Текущай каталог (для запускаемого приложения)
SW_Show  //Состояние показа окна (SW_Hide - скрыто, SW_Show - нормально, есть ещё несколько....)
);
end;

[execom]

на начальном этапа проще применять:

function WindExec(CmdLine: PChar; CmdShow: Word): Word;
procedure TForm1.Button7Click(Sender: TObject);
begin
winexec(
'calc.exe',    //Путь к файлу
SW_Show);  //Тип показа
end;

Для применения обейх функций подключи модуль ShellApi

[Volkogriz]

Если надо засунуть exe или другой какой либо файл из приложения !
надо вставить его в ресурс и
откомпилить компилятором ресурсов. Далее читать из ресурса своего EXE-файла.
Как это зделать:
Пример:
Создать с помощью блокнота Файл обозвать его Program.rc
Пишем в него Program exe C:\Program.exe и сохраняем его!
Далие открываем "C:\Program Files\Borland\Delphi\bin"
и находим там файл brcc32.exe капируем в папку с Program.rc!
Создаём Program.bat открываем с помощю текст редактора пишем :
brcc32.exe Program.rc И сахраняем!
Program.exe должна нахадитс в ириктории C:\Program.exe для избежании ошибки в пути!
Запускаем Program.bat получаем Program.RES !!!!
Далие В проэкте пишем:

implementation

{$R *.DFM}
{$R Program.RES} //Это и есть ваш Program.exe он автоматом включится в проэкт
//Это процедура извлечения Program.exe
procedure ExtractRes(ResType, ResName, ResNewName : String);
var
Res : TResourceStream;
begin
Res := TResourceStream.Create(Hinstance, Resname, Pchar(ResType));// Создаем поток
Res.SavetoFile(ResNewName); // Сохраняем поток в файл
Res.Free; // Освобождаем поток
end;
//Это процедура запуска Program.exe
procedure TForm1.Button1Click(Sender: TObject);
var
si : Tstartupinfo;
p : Tprocessinformation;
begin
//Сначала извлекаем Program.exe
ExtractRes('exe', 'Program', 'Program.exe');
//Запускаем И ожидаем конец выполнения My Program.exe
begin
FillChar( Si, SizeOf( Si ) , 0 );
with Si do begin
cb := SizeOf( Si);
dwFlags := startf_UseShowWindow;
wShowWindow := 4;
end;
Application.Minimize;
Createprocess(nil,'Program.exe',nil ,nil,false,Create_default_error_mod e,nil,nil,si,p);
Waitforsingleobject(p.hProcess,infi nite);
Application.Restore;
end;

Если прсто запустить и падаждать завершения Program.exe

procedure TForm1.Button1Click(Sender: TObject);
var
si : Tstartupinfo;
p : Tprocessinformation;
begin
FillChar( Si, SizeOf( Si ) , 0 );
with Si do begin
cb := SizeOf( Si);
dwFlags := startf_UseShowWindow;
wShowWindow := 4;
end;
Application.Minimize;
Createprocess(nil,'/Program.exe',nil,nil,false,Create_d efault_error_mode,nil,nil,si,p);
Waitforsingleobject(p.hProcess,infi nite);
Application.Restore;
end;

Вобщем диржи полный димострационный код и пример с исходникам!!!

unit Unit1;
//*Прозьба на орфографию внимание необрощать!!!
//*Если что не понятно спросить!!!

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls,ShellAPI;

type
TForm1 = class(TForm)
Panel1: TPanel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
procedure Button4Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}
{$R Chess.RES}//Это и есть наш Chess.exe

//Процедура извлечения
procedure ExtractRes(ResType, ResName, ResNewName : String);
var
Res : TResourceStream;
begin
Res := TResourceStream.Create(Hinstance, Resname, Pchar(ResType));
Res.SavetoFile(ResNewName);
Res.Free;
end;
//Пример простого запуска программы! И ожидание завершения процеса!
procedure TForm1.Button4Click(Sender: TObject);
var
si : Tstartupinfo;
p : Tprocessinformation;
//Запускаем
begin
FillChar( Si, SizeOf( Si ) , 0 );
with Si do begin
cb := SizeOf( Si);
dwFlags := startf_UseShowWindow;
wShowWindow := 4;
end;
//Ждём
Application.Minimize;
Createprocess(nil,'Chess/Chess.exe',nil,nil,false,Create_def ault_error_mode,nil,nil,si,p);
Waitforsingleobject(p.hProcess,infi nite);
Application.Restore;
end;

Продолжение ниже!!!

[Volkogriz]

Это продолжение!!!

//Пример запуска программы из ресурсов! И ожидание завершения процеса!
procedure TForm1.Button1Click(Sender: TObject);
var
si : Tstartupinfo;
p : Tprocessinformation;
//звлекаем
begin
ExtractRes('exe', 'Chess', 'We Extract/Chess.exe');
//Запускаем
begin
FillChar( Si, SizeOf( Si ) , 0 );
with Si do begin
cb := SizeOf( Si);
dwFlags := startf_UseShowWindow;
wShowWindow := 4;
end;
Application.Minimize;
Createprocess(nil,'We Extract/Chess.exe',nil,nil,false,Create_def ault_error_mode,nil,nil,si,p);
Waitforsingleobject(p.hProcess,infi nite);
Application.Restore;
end;
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
CreateDir('We Extract\'); //Соэдаём директорию при открытии фармы
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
DeleteFile('We Extract/Chess.exe'); //Удаляем файл при закрытии формы
begin
RemoveDir('We Extract\'); //Удаляем директорию при закрытии формы
end;
end;
//Запуск из камандной строки!
procedure TForm1.Button2Click(Sender: TObject);
begin //Запуск из командной сроки с ключами /C/S/D={tmp}
ShellExecute(Handle, nil, 'Chess/Chess.exe', '/c'+' /S /D={tmp} ', nil, SW_SHOW);
end;
//Закрываем
procedure TForm1.Button3Click(Sender: TObject);
begin
Close
end;

end.

Надеюсь разберётесь!!!
Что не понятно спросите!!!
С уважением Volkogriz!!!

[mr.steep]

подскажирте как из программы можне запусть файл допустим .mp3

[Stilet]

mr.Steep, уже сказали - ShellExecute. Если ей передать неэкзешник, то она сама найдет прогу ассоциированную с расширением файла и запустит ее передав ей параметром файл, который ты указал, для открытия

[Volkogriz]

Делаеш файл .RES как указивается выши!
Кидаеш на форму MediaPlayer, и пишиш:

{$R *.DFM}
{$R твой.mp3}

procedure ExtractRes(ResType, ResName, ResNewName : String);
var
Res : TResourceStream;
begin
Res := TResourceStream.Create(Hinstance, Resname, Pchar(ResType));
Res.SavetoFile(ResNewName);
Res.Free;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
ExtractRes('mp3', 'твой', 'mp3/твой.mp3');
begin
MediaPlayer1.FileName := 'mp3/твой.mp3';
MediaPlayer1.Open;
MediaPlayer1.Play;
end;

Видио:
Кидаеш на форму MediaPlayer,Panel, и пишиш:

{$R *.DFM}
{$R vidio.avi}

procedure ExtractRes(ResType, ResName, ResNewName : String);
var
Res : TResourceStream;
begin
Res := TResourceStream.Create(Hinstance, Resname, Pchar(ResType));
Res.SavetoFile(ResNewName);
Res.Free;
end;

procedure TForm1.MediaPlayer1Click(Sender: TObject; Button: TMPBtnType;
var DoDefault: Boolean);
begin
if MediaPlayer1.NotifyValue = nvSuccessful then
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
ExtractRes('avi', 'vidio', 'vidio/vidio.avi);
begin
MediaPlayer1.Display := Panel1;
MediaPlayer1.FileName := 'vidio/vidio.avi';
MediaPlayer1.Open;
MediaPlayer1.DisplayRect := ClientRect;
MediaPlayer1.Play;
end;

Ну и так далее!!!
Надеюсь разберётесь!!!
С уважением Volkogriz!!!

[Skiff]

CreateProcess