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