_winapi

WinAPI: SetBkMode - 设置背景模式

本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm)
·2015-11-02 12:00

WinAPI: GetPath - 获取路径中的点

本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm)
·2015-11-02 12:00

WinAPI: CloseFigure

本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm)
·2015-11-02 12:59

WinAPI: BeginPath、EndPath、StrokePath、FillPath、StrokeAndFillPath

BeginPath {路径开始} EndPath {路径结束} StrokePath {绘制路径} FillPath {填充路径} StrokeAndFillPath {绘制并填充路径} //在路径中可以使用的图形命令有: AngleArc Arc ArcTo Chord CloseFigure El
·2015-11-02 12:58

WinAPI: PtInRect - 判断点是否在矩形中

本例效果图: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TBut
·2015-11-02 12:57

WinAPI: InvertRect - 翻转矩形中像素的颜色

本例效果图: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TBut
·2015-11-02 12:57

WinAPI: OffsetRect - 移动矩形

本例效果图: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TBut
·2015-11-02 12:56

WinAPI: StrokePath - 描绘路径轮廓

本例效果图: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormPaint(Sen
·2015-11-02 12:55

WinAPI: IntersectRect、SubtractRect、UnionRect - 用两个矩形合成一个新的矩形

本例效果图: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TBut
·2015-11-02 12:55

WinAPI: GetRegionData

GetRegionData( RGN: HRGN; {区域句柄} p2: DWORD; {区域数据缓冲区大小} p3: PRgnData {区域数据结构 TRgnData 的指针, 见下表} ): DWORD; {成功返回 1} //TRgnData 是 _RGNDATA 结构的重命名: _RGNDATA = record rdh: TRgn
·2015-11-02 12:54

WinAPI: AlphaBlend - 图像透明度

AlphaBlend( DC: HDC; {目标设备环境句柄} p2, p3, p4, p5: Integer; {目标位置与宽高} DC6: HDC; {源设备环境句柄} p7, p8, p9, p10: Integer; {源位置与宽高} p11: TBlendFunction {
·2015-11-02 12:53

WinAPI: GetKeyNameText - 根据键盘消息获取按键名称

本例效果图: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormCreate(Se
·2015-11-02 12:49

WinAPI: GetSystemMetrics - 获取系统度量等数值信息

声明: GetSystemMetrics( nIndex: Integer {参数, 详见下表} ): Integer; 举例 - 获取屏幕分辨率: var cx,cy: Integer; begin {通过 GetSystemMetrics 函数获取屏幕分辨率} cx := GetSystemMetrics(SM_CXSCREEN);
·2015-11-02 12:26

WinAPI: GetCurrentThread、GetCurrentThreadId、GetCurrentProcess、GetCurrentProcessId

{返回当前线程的虚拟句柄} GetCurrentThread: THandle; {返回当前线程 ID} GetCurrentThreadId: DWORD; {返回当前进程的虚拟句柄} GetCurrentProcess: THandle; {返回当前进程 ID} GetCurrentProcessId: DWORD; 提示: ID 是系统唯一的标识
·2015-11-02 12:03

WinAPI: GetWindowRect、GetClientRect - 获取窗口的外部与内部矩形

提示: 1、其实用 Delphi 内部同类函数很方便的, 但系统函数是全局的; 2、使用 GetClientRect 时, 一般要 Windows.GetClientRect, 因为 TForm 的父类有同名函数. //声明: {获取窗口外部矩形(相对于屏幕)} GetWindowRect( hWnd: HWND; {窗口句柄} var lpRect
·2015-11-02 12:02

WinApi: GetParent、SetParent、MoveWindow - 获取、指定父窗口和移动窗口

提示: SetParent 应该 Windows.SetParent, 因为 TForm 的父类有同名方法. //声明: {获取父窗口句柄} GetParent(hWnd: HWND): HWND; {指定父窗口} SetParent( hWndChild: HWND; {子句柄} hWndNewParent: HWND {父句柄} ): HWND;
·2015-11-02 12:02

WinAPI: WindowFromPoint- 获取指定点所在窗口的句柄

//声明: WindowFromPoint(Point: TPoint): HWND; //举例: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtr
·2015-11-02 12:01

WinAPI: LoadCursor - 从资源中载入光标

//声明: LoadCursor( hInstance: HINST; {EXE 或 DLL 的句柄, 0 表示载入系统资源} lpCursorName: PChar {资源标识符} ): HCURSOR; {返回光标句柄} 这里有示例 //调用系统光标的例子: unit Unit1; interface uses
·2015-11-02 12:50

WinAPI: LoadIcon - 从资源中载入图标

//声明: LoadIcon( hInstance: HINST; {EXE 或 DLL 的句柄, 0 表示载入系统资源} lpIconName: PChar {资源标识符} ): HICON; {返回图标句柄} 这里有示例 //调用系统图标的例子: unit Unit1; interface uses Wind
·2015-11-02 12:50

WinAPI: ExtractIcon - 获取 EXE、DLL 或 ICO 文件中的图标

//声明: ExtractIcon( hInst: HINST; {调用函数的程序实例} lpszExeFileName: PChar; {文件路径; 文件可以是 *.exe、*.dll、*.ico} nIconIndex: UINT {图标索引} ): HICON; {返回图标句柄; 索引为 0 时返回第一个图标句柄; 索引为 #FFF
·2015-11-02 12:48

WinAPI: GetSystemPowerStatus - 获取系统电源状态的信息

//声明 GetSystemPowerStatus( var lpSystemPowerStatus: TSystemPowerStatus {TSystemPowerStatus 结构} ): BOOL; //TSystemPowerStatus 是 _SYSTEM_POWER_STATUS 结构的重定义: _SYSTEM_POWER_STATUS = packed rec
·2015-11-02 12:42

WinAPI: GetLocalTime、SetLocalTime、SetSystemTime - 获取与设置系统时间

//声明 GetLocalTime( var lpSystemTime: TSystemTime {TSystemTime 结构} ); {无返回值} //设置本地时间 SetLocalTime( const lpSystemTime: TSystemTime {TSystemTime 结构} ): BOOL;
·2015-11-02 12:41

WinAPI: MoveWindow - 改变窗口的位置与大小

//声明: MoveWindow( hWnd: HWND; {窗口句柄} X, Y: Integer; {位置} nWidth, nHeight: Integer; {大小} bRepaint: BOOL {是否重绘} ): BOOL; //举例: procedure TForm
·2015-11-02 12:40

WinAPI: GetParent - 获取指定窗口的父窗口句柄

//声明: GetParent( hWnd: HWND {窗口句柄} ): HWND; {返回父窗口句柄} //举例: procedure TForm1.Button1Click(Sender: TObject); var h1,h2: HWND; begin h1 := GetParent(Button1.Handle); h2 :=
·2015-11-02 12:40

WinAPI: GetFocus - 获取当前拥有焦点的窗口的句柄

//声明: GetFocus: HWND; {无参数; 返回当前拥有焦点窗口的句柄} //举例: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrl
·2015-11-02 12:39

WinAPI: GetLogicalDriveStrings - 获取系统中存在的逻辑驱动器字符串

//声明: GetLogicalDriveStrings( nBufferLength: DWORD; {缓冲区大小} lpBuffer: PAnsiChar {缓冲区} ): DWORD; //缓冲区的结果是这样储存的: 譬如 A 驱动器会表示为 A:\ 后面隔一个空字符, 依次向后; //所以每个驱动器会占 4 字节. //举例: procedu
·2015-11-02 12:38

WinAPI: GetLogicalDrives - 判断系统中存在的逻辑驱动器

//声明: GetLogicalDrives: DWORD; {无参数} //返回值: 返回值的二进制右边第一位为 1 表示驱动器 A: 存在; 返回值的二进制右边第二位为 1 表示驱动器 B: 存在...以次类推. //举例: procedure TForm1.FormCreate(Sender: TObject); var Drives: DWord; i
·2015-11-02 12:38

WinAPI: GetVolumeInformation - 读取文件系统信息

//声明: GetVolumeInformation( lpRootPathName: PChar; {磁盘驱动器代码字符串} lpVolumeNameBuffer: PChar; {磁盘驱动器卷标名称} nVolumeNameSize: DWORD; {磁盘驱动器卷标名称长度} lpVolum
·2015-11-02 12:37

WinAPI: GetDiskFreeSpaceEx - 获取磁盘容量信息

//声明: GetDiskFreeSpaceEx( lpDirectoryName: PChar; {磁盘根路径} var lpFreeBytesAvailableToCaller: TLargeInteger; {可用空间} var lpTotalNumberOfBytes: TLargeInteger;
·2015-11-02 12:36

WinAPI: GetDiskFreeSpace - 获取磁盘组织与容量信息

//声明: GetDiskFreeSpace( lpRootPathName: PChar; {磁盘根路径} var lpSectorsPerCluster: DWORD; {一个簇内的扇区数} var lpBytesPerSector: DWORD; {一个扇区内的字节数} var lpNumberOfFreeCluster
·2015-11-02 12:36

WinAPI: GetSystemInfo - 获取系统信息

//声明: GetSystemInfo( var lpSystemInfo: TSystemInfo {} ); //TSystemInfo 是 _SYSTEM_INFO 结构的重定义: _SYSTEM_INFO = record case Integer of 0: ( dwOemId: DWORD); {返回计算机标识符, 已废弃}
·2015-11-02 12:35

WinAPI: DrawFrameControl - 绘制控件

//声明: DrawFrameControl( DC: HDC; {设备环境句柄} const Rect: TRect; {矩形} uType, uState: UINT {控件类型与控件状态} ): BOOL; //控件类型 uType 参数可选值: DFC_CAPTION = 1; {标题按钮} DFC_MENU =
·2015-11-02 12:34

WinAPI: SetPixel 和 SetPixelV - 设置设备环境中指定位置的颜色

//声明: SetPixel( DC: HDC; {设备环境句柄} X, Y: Integer; {坐标} Color: COLORREF {颜色值} ): COLORREF; {返回颜色值} SetPixelV( DC: HDC; {设备环境句柄} X, Y: Integer; {坐标} Color: C
·2015-11-02 12:33

WinAPI: DrawCaption - 绘制标题栏

//声明: DrawCaption( p1: HWND; {窗口句柄} p2: HDC; {设备环境句柄} const p3: TRect; {矩形} p4: UINT {选项} ): BOOL; //p4 参数可选值: DC_ACTIVE = 1; {使用活动标题栏颜色} DC_SMALLCAP
·2015-11-02 12:33

WinAPI: CreateBrushIndirect - 根据画刷结构建立画刷

//声明: CreateBrushIndirect( const p1: TLogBrush {画刷结构} ): HBRUSH; {返回画刷句柄} //TLogBrush 是 tagLOGBRUSH 结构的重定义: tagLOGBRUSH = packed record lbStyle: UINT; {画刷风格} lbColor: C
·2015-11-02 12:32

WinAPI: CreatePatternBrush - 建立位图画刷

//声明: CreatePatternBrush( Bitmap: HBITMAP {位图句柄} ): HBRUSH; {返回画刷句柄} //举例: procedure TForm1.FormPaint(Sender: TObject); var Bitmap: TBitmap; BrushHandle: HBRUSH; begin
·2015-11-02 12:30

WinAPI: CreateHatchBrush - 建立阴影画刷

//声明: CreateHatchBrush( p1: Integer; {阴影样式} p2: COLORREF {颜色值} ): HBRUSH; {返回画刷句柄} //p1 参数可选值: HS_HORIZONTAL = 0; HS_VERTICAL = 1; HS_FDIAGONAL = 2; HS_BDIAGONAL = 3; HS_C
·2015-11-02 12:30

WinAPI: CreateSolidBrush - 建立实心画刷

//声明: CreateSolidBrush( p1: COLORREF {颜色值} ): HBRUSH; {返回画刷句柄} //举例: procedure TForm1.FormPaint(Sender: TObject); var BrushHandle: HBRUSH; begin BrushHandle := CreateSolidBr
·2015-11-02 12:29

WinAPI: CreatePenIndirect - 根据笔的参数结构建立画笔

//声明: CreatePenIndirect( const LogPen: TLogPen {笔结构} ): HPEN; {返回笔句柄} //TLogPen 是 tagLOGPEN 结构的重定义: tagLOGPEN = packed record lopnStyle: UINT; {笔样式} lopnWidth: TPo
·2015-11-02 12:28

WinAPI: CreatePen - 建立画笔

//声明: CreatePen( Style, Width: Integer; {样式与笔宽} Color: COLORREF {颜色} ): HPEN; {返回笔句柄} //Style 参数可选值: PS_SOLID = 0; {实线} PS_DASH = 1; {段线; 要求笔宽<=1}
·2015-11-02 12:27

WinAPI: InflateRect - 改变矩形大小

//声明: InflateRect( var lprc: TRect; {要修改的矩形} dx, dy: Integer {变化值} ): BOOL; //举例: procedure TForm1.FormPaint(Sender: TObject); var R: TRect; const s = '%d,%d,%d,%d'; begin
·2015-11-02 12:27

WinAPI: PolyPolyline - 绘制多组线段

//声明: PolyPolyline( DC: HDC; {设备环境句柄} var Points; {点数组} var nPoints;{数组, 数组元素是每个组的顶点数} p4: Integer {分组数, 也就是 nPoints 的元素数} ): BOOL; //举例: procedure TForm1.FormPaint(Sender:
·2015-11-02 12:26

WinAPI: PolyPolygon - 绘制一组多边形

//声明: PolyPolygon( DC: HDC; {设备环境句柄} var Points; {点数组} var nPoints;{数组, 数组元素是每个多边形的顶点数} p4: Integer {多边形数, 也就是 nPoints 的元素数} ): BOOL; //举例: procedure TForm1.FormPaint(Sender
·2015-11-02 12:25

WinAPI: PolylineTo - 绘制一组连续线段(更新当前位置)

//声明: PolylineTo( DC: HDC; {设备环境句柄} var Points; {点数组} Count: Integer {数组元素个数} ): BOOL; //如果不给 PolylineTo 指定起点, 将默认 0 点位起点 procedure TForm1.FormPaint(Sender: TObject); va
·2015-11-02 12:25

WinAPI: Polyline - 绘制一组连续线段

//声明: Polyline( DC: HDC; {设备环境句柄} var Points; {点数组} Count: Integer {数组元素个数} ): BOOL; {Polyline 与 Polygon 的参数一模一样, 但 Polygon 能自动闭合} //绘制连续直线 Polyline procedure TForm1.F
·2015-11-02 12:24

WinAPI: PolyBezierTo - 绘制贝塞尔线(更新当前位置)

//声明: PolyBezierTo( DC: HDC; {设备环境句柄} const Points; {点数组} Count: DWORD {数组元素个数} ): BOOL; //需要给 PolyBezierTo 指定起始点 procedure TForm1.FormPaint(Sender: TObject); var ps: ar
·2015-11-02 12:23

WinAPI: Polygon - 绘制多边形

//声明: Polygon( DC: HDC; {设备环境句柄} var Points; {点数组} Count: Integer {数组元素个数} ): BOOL; //举例: procedure TForm1.FormPaint(Sender: TObject); var ps: array[0..5] of TPoint;
·2015-11-02 12:23

WinAPI: PolyBezier - 绘制贝塞尔线

//声明: PolyBezier( DC: HDC; {设备环境句柄} const Points; {点数组} Count: DWORD {数组元素个数} ): BOOL; //一条贝塞尔线最少要有 4 个点 procedure TForm1.FormPaint(Sender: TObject); var ps: array[0..3]
·2015-11-02 12:22

WinAPI: DrawFocusRect - 绘制焦点矩形

//声明: DrawFocusRect( hDC: HDC; {设备环境句柄} const lprc: TRect {矩形结构} ): BOOL; //举例: procedure TForm1.FormPaint(Sender: TObject); var MyRect: TRect; begin MyRect := Rect(2
·2015-11-02 12:21

WinAPI: Chord - 绘制弦

//声明: Chord( DC: HDC; {设备环境句柄} X1, Y1, X2, Y2, X3, Y3, X4, Y4: Integer {四个坐标点} ): BOOL; //举例: procedure TForm1.FormPaint(Sender: TObject); const
·2015-11-02 12:21
上一页 32 33 34 35 36 37 38 39 下一页
按字母分类： ABCDEFGHIJKLMNOPQRSTUVWXYZ其他