SHGetFileInfo가 검은 색 배경의 아이콘을 생성합니다.

Question

SHGetFileInfo에 문제가 있습니다.

procedure x; 
var 
    FI: SHFILEINFO; 
    icon: ticon; 
begin 
    SHGetFileInfo('app.exe', 0, FI, SizeOf(FI), SHGFI_SYSICONINDEX or SHGFI_ICON or SHGFI_LARGEICON); 

    icon := TIcon.Create; 
    icon.Handle := FI.hIcon; 
    icon.SaveToFile('extracted.ico'); 
end; 

문제는 대신 투명 중독 검정색 배경 아이콘 파일을 생성이다 : 나는 나사로 1.0.14와 FPC 2.6.2를 사용하고, 여기에 코드입니다. 다음은이 같은 모습입니다 :

http://i.imgur.com/5BF3xbT.jpg

내가 델파이에서 동일한 코드를 컴파일 할 때, 그것은 완벽하게 작동합니다. 아이콘에는 투명 한 배경이 있습니다. 사람이 제가 같은 문제가 시간 전에이

Answer 1

:-)이 문제를 해결하는 데 도움 수 있다면

나는 감사하겠습니다. LCL은 TIcon에 완전한 알파 지원을 할 수 없으므로 다른 유사한 구성 요소를 사용해야합니다. 나는 TKIcon을 시도하고 작동한다. 여기에서 찾을 수 있습니다 http://www.tkweb.eu/en/delphicomp/kicon.html

아이콘을 추출하는 샘플 절차를 게시합니다. 그것은 매우 간단합니다.

procedure ExtractIconAndSave(xpath: string); 
var 
    FileInfo: SHFILEINFO; 
    Icon: KIcon.TIcon; //Don't confused with Graphics.TIcon 
begin 
    //Get icon handle 
    SHGetFileInfo(PChar(xpath), 0, FileInfo, SizeOf(FileInfo), SHGFI_SYSICONINDEX or SHGFI_ICON or SHGFI_LARGEICON); 
    //Check if SHGetFileInfo get the icon handle 
    if FileInfo.hIcon <> 0 then 
    begin 
    //Use kIcon's TIcon - It supports alpha 32bpp 
    Icon := KIcon.TIcon.Create; 
    try 
     //Load icon handle in TKIcon and save it in a file 
     Icon.LoadFromHandle(FileInfo.hIcon); 
     Icon.SaveToFile('extracted.ico'); 
    finally 
     DestroyIcon(FileInfo.hIcon); 
     FreeAndNil(Icon); 
    end; 
    end; 
end; 

Answer 2

해결책은 아이콘을 비트 맵에 그립니다. 여기에 설명되어 있습니다 : http://pontusmunck.com/2007/02/01/preserving-transparency-when-converting-icon-to-bitmap/

나는 이것을 시도하고 이것이 잘 작동하는지 확인합니다.