Перевод с Delphi на C++ Builder

[Олегус]

Всем привет, помогите перевести с Делфи на Си такой вот код

Преобразование курсора в bitmap:

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;

заранее ОГРОМНОЕ СПАСИБО

[mirso]

Файл "test.cur" помести в папку с проектом.

void __fastcall TForm1::Button1Click(TObject *Sender)
{
HCURSOR hCursor;
Graphics::TBitmap *Bitmap = new Graphics::TBitmap();

    Bitmap->Width = 32;
    Bitmap->Height = 32;
    hCursor = LoadCursorFromFile( "test.cur" );
    DrawIcon(Bitmap->Canvas->Handle, 0 , 0 , hCursor);
    Bitmap->SaveToFile( "test.bmp" );

Bitmap->Graphics::~TBitmap();
}

[Олегус]

спасибущщще огроменное!!