CUR ---> BMP

Previous  Top  Next

    
 

 

 

Code:

procedure TForm1.Button1Click(Sender: TObject);

var

hCursor: LongInt;

Bitmap: TBitmap;

begin

Bitmap := TBitmap.Create;

Bitmap.Width := 32;

Bitmap.Height := 32;

hCursor := LoadCursorFromFile('test.cur');

DrawIcon(Bitmap.Canvas.Handle, 0, 0, hCursor);

Bitmap.SaveToFile('test.bmp');

Bitmap.Free;

end;

©Drkb::04274

Âçÿòî ñ Delphi Knowledge Base: http://www.baltsoft.com/