函数功能：
GetDC 函数用户获得指定窗口的客户区或整个屏幕的设备环境句柄，随后，你可以在 GDI 函数中使用该句柄在设备环境中绘图。
设备环境是一个不公开的数据结构，它的值供 GDI 函数内部使用。
获取设备的句柄调用GetDC，首先申明
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
参数解析：
| 参数 | 含义 |
| hWnd | 1. 指定的窗口句柄 2. 如果该值是 NULL，获得整个屏幕的设备环境 |
返回值：
1. 如果函数调用成功，返回值是指定窗口的客户区的设备环境句柄；
2. 如果函数调用失败，返回值是 NULL。
示例
获取窗体的设备句柄
Option Explicit
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Sub Command1_Click()
Dim formhdc As Long
formhdc = GetDC(Form1.hwnd)
Print formhdc
End Sub
就这么简单！继续更新中。。。
原文：http://www.cnblogs.com/delphi2014/p/4006158.html