* РИСУЕМ ИКОНКУ tnIconId НА ФОРМЕ tnHWnd В КООРДИНАТАХ tnLeft, tnTop
* P.S. : СМ. WINAPI.H РАЗДЕЛ ICON
LPARAMETERS tnHWnd AS Integer, tnIconId AS Integer,;
    tnLeft AS Integer, tnTop AS Integer
LOCAL lnDCHandle AS Integer, lnIconHandle AS Integer, llSuccess AS Logical
llSuccess = .F.
lnDCHandle = This.GetDC(tnHWnd)
IF lnDCHandle # 0
    lnIconHandle = This.LoadIcon(tnIconId)
    IF lnIconHandle > 0
        llSuccess = This.DrawIcon(lnDCHandle, lnIconHandle, tnLeft, tnTop)
    ENDIF
    This.ReleaseDC(tnHWnd, lnDCHandle)
ENDIF
RETURN llSuccess
*!*   Удобно для самопального MESSAGEBOX() пользовать,a не грузить бээмпэшки,
*!* но видимо придется перерисовывать форму в ThisForm.Paint(), иначе исчезают,
*!* зато можно их накладывать друг на друга ;)))
*!*   w=CREATEOBJECT('Form')
*!*   w.Visible = .T.
*!*   o=NEWOBJECT('cntProc','c:\vfp\main\prog\custom')
*!*   o.Api.DrawIconResource(w.Hwnd, 32513, 40, 40)
*!*   MESSAGEBOX('')
*!*   RELEASE o, w

* РИСУЕМ ИКОНКУ tnIconHandle НА УСТРОЙСТВЕ tnDCHandle
* ИСПОЛЬЗОВАТЬ В СВЯЗКЕ GetDC->LoadIcon->DrawIcon->ReleaseDC
* This.DrawIcon(tnDCHandle, tnIconHandle, 40, 20)
LPARAMETERS tnDCHandle AS Integer, tnIconHandle AS Integer,;
    tnLeft AS Integer, tnTop AS Integer
DECLARE SHORT DrawIcon IN WIN32API INTEGER, INTEGER, INTEGER, INTEGER
DrawIcon(tnDCHandle, tnLeft, tnTop, tnIconHandle)
CLEAR DLLS 'DrawIcon'

* ЗАГРУЖАЕТ ФАЙЛ ИКОНКИ КАК РЕСУРС WINDOWS
* ВОЗВРАЩАЕТ RESOURCE HANDLE > 0
*  0    - ОШИБКА ПРИ ЗАГРУЗКЕ
* -1    - ФАЙЛ НЕ НАЙДЕН
LPARAMETERS tcIconFileName AS String
ASSERT FILE(tcIconFileName)
LOCAL lcTempFile AS String, lnHandle AS Integer
lnHandle = -1
DECLARE INTEGER LoadImage IN WIN32API;
        INTEGER, STRING, INTEGER, INTEGER, INTEGER, INTEGER
lcTempFile = This.TempFile()
COPY FILE (tcIconFileName) TO (lcTempFile)
lnHandle = LoadImage( 0, lcTempFile, 1, 0, 0, 0x0010)
ERASE (lcTempFile)
CLEAR DLLS 'LoadImage'
RETURN lnHandle

* ЗАГРУЗКА ИКОНКИ (ПАРАМЕТР СМ. В WINAPI.H РАЗДЕЛ ICON)
* РЕЗУЛЬТАТ : УСПЕШНО, ЕСЛИ lnHandle > 0
* This.LoadIcon(32516) && Information
LPARAMETERS tnIconId AS Integer
LOCAL lnHandle AS Integer
DECLARE INTEGER LoadIcon IN WIN32API INTEGER, INTEGER
lnHandle = LoadIcon(0, tnIconId)
CLEAR DLLS 'LoadIcon'
RETURN lnHandle

* RETRIEVES A HANDLE TO A DISPLAY DEVICE CONTEXT (DC)
* FOR THE CLIENT AREA OF THE SPECIFIED WINDOW
* РЕЗУЛЬТАТ : УСПЕШНО, ЕСЛИ DC # 0
* IF This.GetDC(ThisForm.Hwnd) # 0
LPARAMETERS tnHWnd AS Integer
DECLARE INTEGER GetDC IN WIN32API INTEGER
lnDCHandle = GetDC(tnHWnd)
CLEAR DLLS 'GetDC'
RETURN lnDCHandle

* RELEASES A DEVICE CONTEXT (DC), FREEING IT FOR USE BY OTHER APPLICATIONS
* This.ReleaseDC(ThisForm.Hwnd, This.GetDC(ThisForm.Hwnd))
LPARAMETERS tnHWnd AS Integer, tnDCHandle AS Integer
DECLARE INTEGER ReleaseDC IN WIN32API INTEGER, INTEGER
ReleaseDC(tnHWnd, tnDCHandle)
CLEAR DLLS 'ReleaseDC'