[태그:] System icon
System ICon을 ImageList에 가져오고 파일에 따라 보여주기
Published Date: 2008년 9월 24일
자신의 컴퓨터에 확장자에 맞는 아이콘을 가져 와서 ImageList에 넣어 줄때 사용하는 함수이다. Uses문에 ShellAPI, ShlObj를 추가한뒤에 사용한다. 전에 만들어 두었던것이 사라져서 다시 만들었다.
Delphi/Pascal
|
1 2 3 4 5 6 7 8 9 10 11 12 13 |
procedure GetSysstemICon(sImageList, lImageList: TImageList); var sfi: TShFileInfo; begin // ImageList에 파일의 내용을 넣는다. // get access to the shell imagelist... sImageList.handle := shgetfileinfo('', 0, sfi, sizeof(TShFileInfo), SHGFI_SYSICONINDEX or SHGFI_SMALLICON); sImageList.shareimages := true; sImageList.BlendColor := clHighlight; lImageList.handle := shgetfileinfo('', 0, sfi, sizeof(TShFileInfo), SHGFI_SYSICONINDEX or SHGFI_LARGEICON); lImageList.shareimages := true; lImageList.BlendColor := clHighlight; end; |
아래…
최신 댓글