Program indítása programból

3 példa bemutatása a shellexecute használatával, saját applikációnkból való külső program elindításához.

Az első példa egy weblapot nyit meg,:
procedure TForm1.Button1Click(Sender: TObject);
begin
shellexecute(handle,'open','http://ize.com',nil,nil,sw_shownormal);
end;
A másodikban a Winampot idítom el, egy mp3 hozzárendelésével:
procedure TForm1.Button1Click(Sender: TObject);
begin
shellexecute(handle,'open','C:\Program Files\Winamp\winamp.exe',
'D:\Mp3\Five.mp3',nil,sw_shownormal);
end;
A harmadikban több mp3-at rendelek a winamphoz, itt érdemes megfigyelni, hogy az mp3-ak között egy szóközt kell hagyni.
procedure TForm1.Button1Click(Sender: TObject);
begin
shellexecute(handle,'open','C:\Program Files\Winamp\winamp.exe',
'D:\Mp3\Five.mp3 D:\Mp3\Floorfilla.exe',nil,sw_shownormal);
end;