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

Mindegyik programhoz be kell írni
uses shellapi, ...
különben nem működik
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;