안녕하세요? 누리빛 입니다.

다음의 함수를 이용해 보세요...

// 파일의 아이콘을 얻어내는 함수.
// IconID = SHGFI_LARGEICON : 32X32, SHGFI_SMALLICON : 16X16
function IconOfFile(const FileName : String; IconID : Integer) : THandle;
var
  SHFileInfo : TSHFileInfo;
begin
  SHGetFileInfo(PChar(FileName), 0, SHFileInfo,
                SizeOf(SHFileInfo), IconID or SHGFI_ICON);
  Result := SHFileInfo.hIcon;
end;