Zjištění aplikace přidružené k danému typu souboru

Pokud potřebujete zjistit jaká aplikace je přidružena k danému typu souboru (dokumentu), můžete to velmi snadno provést pomocí funkce FindExecutable. Ta je součástí knihovny ShellAPI a následující zdrojový kód ukazuje její použití:
procedure TForm1.Button1Click(Sender: TObject);
var app : PChar;
begin
GetMem(app, 255);
FindExecutable('test.txt','c:\', app);
Application.MessageBox(App, 'Informace o souboru', mb_ok + mb_iconinformation);
end;