Fórum ico para bmp #154416

Há métodos mais otimizados, mas esse já quebra o galho...

Falow,
Suemar.

procedure TFPrincipal.Converter_ICO_BMP(Arquivo : String);
var Pic : TPicture;
Ico : TIcon;
Bmp : TBitmap;
begin
try
Ico := TIcon.Create;
Pic := TPicture.Create;
Bmp := TBitmap.Create;

Ico.Handle := ExtractIcon(HInstance, PChar(Arquivo), 0);
Pic.Icon := Ico;
Bmp.Width := Ico.Width;
Bmp.Height := Ico.Height;
Bmp.Canvas.Draw(0, 0, Pic.Icon);
Bmp.SaveToFile(ChangeFileExt(Arquivo,´.bmp´));

Ico.Free;
Pic.Free;
Bmp.Free;
except
MessageDlg(´Problemas encontrados durante a conversão do arquivo ´ + Arquivo,mtInformation,[mbOk],0);
end;
end;

http://superdownloads.ubbi.com.br/
Tem vários programas que fazem isso, inclusive tem uns programinhas que permite vc fazer seus próprios ícones.

Alguns são free.