掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
アイコンについて教えてください (ID：14791)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
ファイルとかフォルダのアイコンを取得する一つの方法は， Shell関係の関数を使用することです． [例] usesにShellAPIが必要です．Form1にTImageを一つ配置します． //==================================================================== // 指定したフォルダやファイルのアイコンを取得 //==================================================================== procedure TForm1.Button1Click(Sender: TObject); var APath: String; Icon: TIcon; SHFileInfo: TSHFileInfo; begin //APathにフォルダ名またはファイル名を指定する APath:='C:\'; Icon:=TIcon.Create; try SHGetFileInfo(PChar(APath), 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.