- Код: Выделить всё
Sub GetDesktopSize()
mHdc = GetDC(0)
HSize = GetDeviceCaps(mHdc, HORZRES)
VSize = GetDeviceCaps(mHdc, VERTRES)
End Sub
Кто-нибудь знает, что освобождать здесь, чтобы этого не происходило?
Sub GetDesktopSize()
mHdc = GetDC(0)
HSize = GetDeviceCaps(mHdc, HORZRES)
VSize = GetDeviceCaps(mHdc, VERTRES)
End Sub
Сейчас этот форум просматривают: AhrefsBot и гости: 110