Transformando um arquivo .ico em .bmp

 

Adicione num formulário: um Button , um OpenDialog e um Image . No OnClick do botão adicione o seguinte código:

 

var

  Pic: TPicture;

  TI: TIcon;

begin

  if OpenDialog1.Execute then

  begin

    TI := TIcon.Create;

    TI.Handle := ExtractIcon(HInstance, PChar(OpenDialog1.FileName), 0);

    Pic := TPicture.Create;

    Pic.Icon := TI;

    Image1.Picture := Pic;

  end;

end;

 

No código anterior, extraímos o ícone do arquivo, salvamos em uma variável do tipo TPicture e depois carregamos no Image . Caso deseje salvar o arquivo no formato BMP em disco utilize o seguinte código:

 

Image1.Picture.SaveToFile('C:\Icone.bmp');

 

por Luciano Pimenta