掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
画像ファイルのみ対応させるには？ (ID：10684)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
私は、Formに画像ファイルをドロップすると壁紙を変更するプログラムをつくっています。下記のソースコードに対応ファイルをBMPとJPEGだけにしてそれ以外のファイルがドロップされた場合、「対応していません。」と言うメッセージを表示させるコードを追加したいのですが、どのように対応ファイル制限のコードを書けばいいのでしょうか？ 下記がプログラムのソースコードになります。 procedure TForm1.FormCreate(Sender: TObject); begin DragAcceptFiles(Handle, True); end; procedure TForm1.WMDropFiles(var msg: TWMDropFiles); var FileName: array[0..255] of Char; total, i: Integer; hObj : IUnknown; ADesktop : IActiveDesktop; str : String; wstr : PWideChar; begin total := DragQueryFile(msg.Drop,$FFFFFFFF , nil, 0); for i := 0 to total-1 do begin DragQueryFile(msg.Drop, i, FileName, SizeOf(FileName)); hObj := CreateComObject(StringToGUID('{75048700-EF1F-11D0-9888-006097DEACF9}')); ADesktop := hObj as IActiveDesktop; wstr := AllocMem(MAX_PATH); StringToWideChar((FileName), wstr, MAX_PATH); ADesktop.SetWallpaper(wstr, 0); ADesktop.ApplyChanges(AD_APPLY_ALL); FreeMem(wstr); end; DragFinish(msg.Drop); end; end. 長文失礼しました。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.