Delphi Tips & Tricks

uses ShellAPI;
-------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
var
  Fname :array [0..MAX_PATH-1] of Char;
begin
  if Opendialog1.Execute then
  begin
     FindExecutable(PChar(Opendialog1.FileName), nil, Fname);
     ShowMessage('関連つけられているプログラムは' +#10#13+ Fname);    
  end;
end;

function FindExecutable(FileName, Directory: PChar;
                         Result: PChar): HINST; stdcall;