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/