ドラッグされたファイルの判別

解決

bluf 2005-11-11 07:59:40 No: 18607

以前質問させていただいた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されたファイルの種類(拡張子)を知りたいと思ったのですが、書き方が・・・^^;
質問ばかりで駄目駄目なのはわかりますが、教えて下さい＞＜
宜しくお願いします〜；；

bluf 2005-11-11 08:22:48 No: 18608

すいません、自己解決しました^^;
一回Stringに入れて、後ろから3文字引っ張ればいけますね
他にもあるのかな・・・？^^;

Mr.XRAY URL 2005-11-11 08:37:59 No: 18609

>後ろから3文字引っ張ればいけますね

拡張子は必ずしも3文字とは限らない場合があります．そんな場合は
ExtractFileExt
という関数を使用すると便利かも知れません．
Delphi5,6,7には間違いなくあります．