Screen Cam Component (recording screen activity to video) I developed this screen cam component with delphi (captures the activity on a screen or delphi form and writes it into an AVI file; it supports all compressors; the program contains code deri
用vb制作时钟，简单易懂，容易制作// 声明常量，指定时钟的大小 Public Const ClockSize = 30 // 时钟颜色，角度换算 Public Const Pclor = &H33FF, Tmp = 3.14 / 180 // 定义常量，指明指针长度 Public Const Slen = 120, Mlen = 90, Hlen = 70 // 指针的偏转角度 Public Sg As Single, Mg As Single, Hg As Single // 指针的末端坐
Screen Cam Component (recording screen activity to video) I developed this screen cam component with delphi (captures the activity on a screen or delphi form and writes it into an AVI file; it supports all compressors; the program contains code deri
Option Explicit '函数声明 Private Declare Function GetPixel Lib "gdi32" (ByVal hDC As Long, ByVal X As Long, _ ByVal Y As Long) As Long Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, _ ByVal hRgn As Long, ByVal bRedraw As Boolea
由于使用了一些新的函数，本程序必须在Windows2000下运行。 Option Explicit Public Declare Function GetObjectAPI Lib "gdi32" Alias "GetObjectA" (ByVal hObject As Long, ByVal nCount As Long, lpObject As Any) As Long Public Declare Function DeleteObject Lib "gdi32" (ByVal hObj
