Analitcs

Pesquisar no conteúdo do blog.atlabs.com.br

terça-feira, 2 de julho de 2013

DELPHI - Icon to BMP / Extract icon windows shell - Icone para Bitmap - Extraindo icone do shell do windows

Reações: 


// troque o valor de '#4' para o que precisar.
Procedure ExtractIconShell;
var
  _H    : THandle;
  _Pic  : TPicture;
  _Icon : TIcon;
  _BMP  : TBitMap;
begin
  _H := LoadLibrary('shell32.dll');
  _Icon:= TIcon.Create;
  _Pic := TPicture.Create;
  _BMP := TBitmap.Create;
  try
    _Icon.Handle := LoadIcon(_H, '#4');
//  _Icon.LoadFromFile(ArquivoIco);
    _Pic.Icon    := _Icon;
    _BMP.Width   := _Icon.Width;
    _BMP.Height  := _Icon.Height;
    _BMP.Canvas.Draw(0, 0, _Pic.Icon);
    _BMP.SaveToFile('C:\Test.BMP');
  finally
    FreeAndNil(_Pic);
    FreeAndNil(_Icon);
    FreeAndNil(_BMP);
    FreeLibrary(_H);
  end;
End;

Nenhum comentário:

Postar um comentário

Observação: somente um membro deste blog pode postar um comentário.

Max Gehringer