파일 아이콘 가져오기

// 파일 선택해서 아이콘 가져오기.
function GetFileIcon(sFileName: String; IsSmall: Boolean) : HIcon;
var
   SHFileInfo: TSHFileInfo;
   vFlag     : Cardinal;
begin
   vFlag := SHGFI_USEFILEATTRIBUTES or SHGFI_ICON or SHGFI_EXETYPE;
   if IsSmall then
      vFlag := vFlag or SHGFI_SMALLICON; 
   ShGetFileInfo( PChar( sFileName ), 0, SHFileInfo, SizeOf( TSHFileInfo ), vFlag );
   Result := SHFileInfo.hIcon;
end;

해당 파일의 full path를 포함한 이름을 넘기면 아이콘 핸들을 넘겨받아서 처리한다.

여러가지 응용도 할 수 있겠다.