Zobrazení dialogu "Otevřít v programu"

Tento tip je ze stejného soudku jako ten předchozí a vlastně i princip je stejný. Otevře známé dialogové okno se seznamem aplikací nainstalovaných v systému, ze kterých si můžete vybrat tu, pomocí které se otevře dosud neasociovaný (což nemusí nutně znamenat že neznámý) typ souboru. Parametrem procedury je soubor, který chceme otevřít.
procedure Otevrit(Soubor: String);
begin
ShellExecute(Application.Handle, 'open', PChar('rundll32.exe'), PChar('shell32.dll,OpenAs_RunDLL ' + Soubor), nil, SW_SHOWNORMAL);
end;