掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ListViewにファイルに関連づけられたアイコンを付けるには？ (ID:14568)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
ついでなので，ファイルの情報も同時に取得したい場合など，以下の SHGetFileInfoもよく利用されているようです． procedure TForm1.Button1Click(Sender: TObject); var Icon : TIcon; FName: String; SHFileInfo: TSHFileInfo; begin Icon:= TIcon.Create; try FName :='C:\Program Files\Borland\Delphi5\Bin\delphi32.exe'; SHGetFileInfo(PChar(FName), 0, SHFileInfo, SizeOf(SHFileInfo), SHGFI_SMALLICON or SHGFI_ICON); Icon.Handle := SHFileInfo.hIcon; Image1.Picture.Icon.Assign(icon); finally icon.Free; end; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.