Dicas - Transformando ICO em BMP

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (0)  (0)

veja nesta dica, como transformar um arquivo .ico em .bmp.

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

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?