ドラッグされたファイルの判別 (ID:18607)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 以前質問させていただいたblufと申します https://www.petitmonte.com/bbs/answers?question_id=3368 上記のような回答を得て、このような記述をしました procedure form1.DropFiles(var Msg: TWMDROPFILES); var WinHnd: HWND; fn: array [0..MAX_PATH] of Char; begin WinHnd := FindWindow('form1', nil); SetForegroundWindow(WinHnd); DragQueryFile(Msg.Drop, 0, fn, MAX_PATH); image1.Picture.LoadFromFile(fn); end; そこで、 DragQueryFile(Msg.Drop, 0, fn, MAX_PATH); ↑の行の次に、D&Dされたファイルの種類(拡張子)を知りたいと思ったのですが、書き方が・・・^^; 質問ばかりで駄目駄目なのはわかりますが、教えて下さい＞＜ 宜しくお願いします〜；；