Borland C Builder 6. Захват курсора

[antidote]

Как в Borland C Builder 6 можно получить иконку/битмап курсора мыши? В интернетах нашел пример для Delphi

Icon cursor = Icon.FromHandle(Cursor.Current.Handle);
g.DrawIcon(cursor, new Rectangle(Cursor.Position, cursor.Size));
cursor.Dispose();

и С#

Для просмотра скрытого содержимого вы должны войти или зарегистрироваться.

Но в Борланде нет такого метода FromHandle. Ума не приложу что делать. Подскажите, а? Очень надо

 

[ZCFD]

Метод TIcon::LoadFromResourceID загружает иконку из указанного ресурса, определяемого по его идентификатору.

 

[antidote]

Все равно не понял. Забил и пошел по аналогии со вторым примером - через API

        HICON hico;
        Graphics::TIcon *tico = new Graphics::TIcon;
        ICONINFO *icInfo;
        CURSORINFO *ci = new CURSORINFO();
        ci->cbSize = sizeof(ci);
        hico = CopyIcon(ci->hCursor);
        tico->Handle = hico;
        Canvas->Draw(10,10,tico);

Но не работает!


UPD. А вот так да))))

CURSORINFO pci;
pci.cbSize = sizeof(CURSORINFO);
GetCursorInfo(&pci);
DrawIcon(GetDC(Form1->Handle), 0, 0, pci.hCursor);