掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ListViewにファイルに関連づけられたアイコンを付けるには？ (ID：14567)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
ExtractAssociatedIconのヘルプを読むと， >アイコン ハンドルが実行可能ファイルから取得された場合、 関数は、 >lpIconPathが指す文字列に、 その実行可能フルパスとファイル名を >格納します。 とありますから，この引数には，例えば以下の様に変数を渡す必要があります． procedure TForm1.Button1Click(Sender: TObject); var icoData : TIcon; wrdIdx : word; FName: array[0..MAX_PATH] of char; begin wrdIdx := 0; //アイコンのインデックス icoData := TIcon.Create; try FName :='delphi32.exe'; icoData.Handle := ExtractAssociatedIcon(hInstance, FName, wrdIdx); Image1.Picture.Icon.Assign (icoData); finally icoData.Free; end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.