関連付けられているアプリを調べる

あるファイルに関連付けられているアプリケーションを調べるには FindExecutable APIを使用します。以下の例は 〜html に関連付けられているアプリケーションを調べます。(uses節に ShellApiを追加してください。)

■ 関連付けられているアプリを調べる例 
  procedure TForm1.Button10Click(Sender: TObject);
  var
    AppName   : array [0..MAX_PATH] of Char;
    AppHandle : THandle;
  begin
    FindExecutable('c:\daf\index.html',PChar(ExtractFilePath(Application.Exename)),AppName);
    ShowMessage(AppName);
    CloseHandle(AppHandle);
  end;

この関数はアプリケーションのハンドルを返します。このハンドルは DDEに使用できるそうです。