---

procedure TForm1.Button1Click(Sender: TObject);
var
Icono:TIcon;
Bitmap:TBitmap;
begin
Icono:=TIcon.create;
Bitmap:=TBitmap.create;

Icono.LoadFromFile('c:\Chip.ico');
Bitmap.Height := Icono.Height;
Bitmap.Width := Icono.Width;
Bitmap.Canvas.Draw(0, 0, Icono);

Bitmap.SaveToFile('c:\Chip.bmp');
Icono.Free;
Bitmap.Free;
end;

Eftersom du ikke er logget ind i systemet, kan du ikke lave en bedømmelse til dette tip.

Hvis du ikke allerede er registreret, kan du gratis blive medlem, ved at trykke på "Bliv medlem" ude i menuen.