拡張子に関連付けて実行する ■使用するコンポーネント
■使用するAPI関数
■その他
■ソースは下記のようになります。
procedure
TForm1.Button1Click(Sender: TObject); begin ShellExecute(Form1.Handle, 'Open',PChar('C:\Windows\雲.bmp') ,nil, nil, SW_SHOW) end;