Wednesday, February 15, 2006

.

.
.
uses ShellApi;
.
.
.
procedure Spust(soubor,param,defaultdir:string);
begin
ShellExecute(0,nil,soubor,param,defaultdir, SW_SHOWNORMAL);
end;
Parametry jsou myslím jasné – aplikace včetně cesty, případné parametry (můžete nechat prázdné) a "pracovní" adresář (obvykle taktéž můžete ponechat prázdné). Kvůli zjednodušení není prováděna žádná kontrola úspěšnosti pokusu spustit aplikaci (tj. jestli vůbec aplikace existuje).
Pokud již aplikace splnila náš požadavek nebo ji už z jiného důvodu dále nepotřebujeme, můžeme ji jednoduše ukončit. Jeden z jednoduchých způsobů si teď ukážeme. Jediné, co potřebujeme vědět, je titulek okna aplikace, kterou chceme ukončit. Poté jí "pošleme zprávu" o našem požadavku na ukončení. Jednoduchá procedura může vypadat například takto: