E-COM-NET
首页
在线工具
Layui镜像站
SUI文档
联系我们
推荐频道
Java
PHP
C++
C
C#
Python
Ruby
go语言
Scala
Servlet
Vue
MySQL
NoSQL
Redis
CSS
Oracle
SQL Server
DB2
HBase
Http
HTML5
Spring
Ajax
Jquery
JavaScript
Json
XML
NodeJs
mybatis
Hibernate
算法
设计模式
shell
数据结构
大数据
JS
消息中间件
正则表达式
Tomcat
SQL
Nginx
Shiro
Maven
Linux
WinAPI
WinAPI
: LoadIcon - 从资源中载入图标
//声明: LoadIcon( hInstance: HINST; {EXE 或 DLL 的句柄, 0 表示载入系统资源} lpIconName: PChar {资源标识符} ): HICON; {返回图标句柄} 这里有示例 //调用系统图标的例子: unit Unit1; interface uses Wind
·
2015-11-02 12:50
load
WinAPI
: ExtractIcon - 获取 EXE、DLL 或 ICO 文件中的图标
//声明: ExtractIcon( hInst: HINST; {调用函数的程序实例} lpszExeFileName: PChar; {文件路径; 文件可以是 *.exe、*.dll、*.ico} nIconIndex: UINT {图标索引} ): HICON; {返回图标句柄; 索引为 0 时返回第一个图标句柄; 索引为 #FFF
·
2015-11-02 12:48
icon
WinAPI
: GetSystemPowerStatus - 获取系统电源状态的信息
//声明 GetSystemPowerStatus( var lpSystemPowerStatus: TSystemPowerStatus {TSystemPowerStatus 结构} ): BOOL; //TSystemPowerStatus 是 _SYSTEM_POWER_STATUS 结构的重定义: _SYSTEM_POWER_STATUS = packed rec
·
2015-11-02 12:42
System
WinAPI
: GetLocalTime、SetLocalTime、SetSystemTime - 获取与设置系统时间
//声明 GetLocalTime( var lpSystemTime: TSystemTime {TSystemTime 结构} ); {无返回值} //设置本地时间 SetLocalTime( const lpSystemTime: TSystemTime {TSystemTime 结构} ): BOOL;
·
2015-11-02 12:41
System
WinAPI
: MoveWindow - 改变窗口的位置与大小
//声明: MoveWindow( hWnd: HWND; {窗口句柄} X, Y: Integer; {位置} nWidth, nHeight: Integer; {大小} bRepaint: BOOL {是否重绘} ): BOOL; //举例: procedure TForm
·
2015-11-02 12:40
window
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
api
WinAPI
: GetFocus - 获取当前拥有焦点的窗口的句柄
//声明: GetFocus: HWND; {无参数; 返回当前拥有焦点窗口的句柄} //举例: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrl
·
2015-11-02 12:39
focus
WinAPI
: GetLogicalDriveStrings - 获取系统中存在的逻辑驱动器字符串
//声明: GetLogicalDriveStrings( nBufferLength: DWORD; {缓冲区大小} lpBuffer: PAnsiChar {缓冲区} ): DWORD; //缓冲区的结果是这样储存的: 譬如 A 驱动器会表示为 A:\ 后面隔一个空字符, 依次向后; //所以每个驱动器会占 4 字节. //举例: procedu
·
2015-11-02 12:38
String
WinAPI
: GetLogicalDrives - 判断系统中存在的逻辑驱动器
//声明: GetLogicalDrives: DWORD; {无参数} //返回值: 返回值的二进制右边第一位为 1 表示驱动器 A: 存在; 返回值的二进制右边第二位为 1 表示驱动器 B: 存在...以次类推. //举例: procedure TForm1.FormCreate(Sender: TObject); var Drives: DWord; i
·
2015-11-02 12:38
api
WinAPI
: GetVolumeInformation - 读取文件系统信息
//声明: GetVolumeInformation( lpRootPathName: PChar; {磁盘驱动器代码字符串} lpVolumeNameBuffer: PChar; {磁盘驱动器卷标名称} nVolumeNameSize: DWORD; {磁盘驱动器卷标名称长度} lpVolum
·
2015-11-02 12:37
format
WinAPI
: GetDiskFreeSpaceEx - 获取磁盘容量信息
//声明: GetDiskFreeSpaceEx( lpDirectoryName: PChar; {磁盘根路径} var lpFreeBytesAvailableToCaller: TLargeInteger; {可用空间} var lpTotalNumberOfBytes: TLargeInteger;
·
2015-11-02 12:36
free
WinAPI
: GetDiskFreeSpace - 获取磁盘组织与容量信息
//声明: GetDiskFreeSpace( lpRootPathName: PChar; {磁盘根路径} var lpSectorsPerCluster: DWORD; {一个簇内的扇区数} var lpBytesPerSector: DWORD; {一个扇区内的字节数} var lpNumberOfFreeCluster
·
2015-11-02 12:36
free
WinAPI
: GetSystemInfo - 获取系统信息
//声明: GetSystemInfo( var lpSystemInfo: TSystemInfo {} ); //TSystemInfo 是 _SYSTEM_INFO 结构的重定义: _SYSTEM_INFO = record case Integer of 0: ( dwOemId: DWORD); {返回计算机标识符, 已废弃}
·
2015-11-02 12:35
System
WinAPI
: DrawFrameControl - 绘制控件
//声明: DrawFrameControl( DC: HDC; {设备环境句柄} const Rect: TRect; {矩形} uType, uState: UINT {控件类型与控件状态} ): BOOL; //控件类型 uType 参数可选值: DFC_CAPTION = 1; {标题按钮} DFC_MENU =
·
2015-11-02 12:34
frame
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
set
WinAPI
: DrawCaption - 绘制标题栏
//声明: DrawCaption( p1: HWND; {窗口句柄} p2: HDC; {设备环境句柄} const p3: TRect; {矩形} p4: UINT {选项} ): BOOL; //p4 参数可选值: DC_ACTIVE = 1; {使用活动标题栏颜色} DC_SMALLCAP
·
2015-11-02 12:33
api
WinAPI
: CreateBrushIndirect - 根据画刷结构建立画刷
//声明: CreateBrushIndirect( const p1: TLogBrush {画刷结构} ): HBRUSH; {返回画刷句柄} //TLogBrush 是 tagLOGBRUSH 结构的重定义: tagLOGBRUSH = packed record lbStyle: UINT; {画刷风格} lbColor: C
·
2015-11-02 12:32
create
WinAPI
: CreatePatternBrush - 建立位图画刷
//声明: CreatePatternBrush( Bitmap: HBITMAP {位图句柄} ): HBRUSH; {返回画刷句柄} //举例: procedure TForm1.FormPaint(Sender: TObject); var Bitmap: TBitmap; BrushHandle: HBRUSH; begin
·
2015-11-02 12:30
Pattern
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
create
WinAPI
: CreateSolidBrush - 建立实心画刷
//声明: CreateSolidBrush( p1: COLORREF {颜色值} ): HBRUSH; {返回画刷句柄} //举例: procedure TForm1.FormPaint(Sender: TObject); var BrushHandle: HBRUSH; begin BrushHandle := CreateSolidBr
·
2015-11-02 12:29
create
WinAPI
: CreatePenIndirect - 根据笔的参数结构建立画笔
//声明: CreatePenIndirect( const LogPen: TLogPen {笔结构} ): HPEN; {返回笔句柄} //TLogPen 是 tagLOGPEN 结构的重定义: tagLOGPEN = packed record lopnStyle: UINT; {笔样式} lopnWidth: TPo
·
2015-11-02 12:28
create
WinAPI
: CreatePen - 建立画笔
//声明: CreatePen( Style, Width: Integer; {样式与笔宽} Color: COLORREF {颜色} ): HPEN; {返回笔句柄} //Style 参数可选值: PS_SOLID = 0; {实线} PS_DASH = 1; {段线; 要求笔宽<=1}
·
2015-11-02 12:27
create
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
api
WinAPI
: PolyPolyline - 绘制多组线段
//声明: PolyPolyline( DC: HDC; {设备环境句柄} var Points; {点数组} var nPoints;{数组, 数组元素是每个组的顶点数} p4: Integer {分组数, 也就是 nPoints 的元素数} ): BOOL; //举例: procedure TForm1.FormPaint(Sender:
·
2015-11-02 12:26
api
WinAPI
: PolyPolygon - 绘制一组多边形
//声明: PolyPolygon( DC: HDC; {设备环境句柄} var Points; {点数组} var nPoints;{数组, 数组元素是每个多边形的顶点数} p4: Integer {多边形数, 也就是 nPoints 的元素数} ): BOOL; //举例: procedure TForm1.FormPaint(Sender
·
2015-11-02 12:25
api
WinAPI
: PolylineTo - 绘制一组连续线段(更新当前位置)
//声明: PolylineTo( DC: HDC; {设备环境句柄} var Points; {点数组} Count: Integer {数组元素个数} ): BOOL; //如果不给 PolylineTo 指定起点, 将默认 0 点位起点 procedure TForm1.FormPaint(Sender: TObject); va
·
2015-11-02 12:25
api
WinAPI
: Polyline - 绘制一组连续线段
//声明: Polyline( DC: HDC; {设备环境句柄} var Points; {点数组} Count: Integer {数组元素个数} ): BOOL; {Polyline 与 Polygon 的参数一模一样, 但 Polygon 能自动闭合} //绘制连续直线 Polyline procedure TForm1.F
·
2015-11-02 12:24
api
WinAPI
: PolyBezierTo - 绘制贝塞尔线(更新当前位置)
//声明: PolyBezierTo( DC: HDC; {设备环境句柄} const Points; {点数组} Count: DWORD {数组元素个数} ): BOOL; //需要给 PolyBezierTo 指定起始点 procedure TForm1.FormPaint(Sender: TObject); var ps: ar
·
2015-11-02 12:23
api
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
api
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
api
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
focus
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
api
WinAPI
: Arc - 绘制弧线
//声明: Arc( DC: HDC; {设备环境句柄} X1, Y1, X2, Y2, X3, Y3, X4, Y4: Integer {四个坐标点} ): BOOL; //举例: procedure TForm1.FormPaint(Sender: TObject); const x1
·
2015-11-02 12:20
api
WinAPI
: RoundRect - 绘制圆角矩形
//声明: RoundRect( DC: HDC; {设备环境句柄} X1, Y1, X2, Y2, X3, Y3: Integer {点1、点2是构成矩形的坐标; X3是圆角宽度、Y3是圆角高度} ): BOOL; //举例: procedure TForm1.FormPaint(Sender: TObject);
·
2015-11-02 12:19
round
WinAPI
: Ellipse - 绘制椭圆
//声明: Ellipse( DC: HDC; {设备环境句柄} X1, Y1, X2, Y2: Integer {两个点的坐标} ): BOOL; //举例: procedure TForm1.FormPaint(Sender: TObject); const x1 = 20; y1 = 20; x2 = 20
·
2015-11-02 12:19
api
WinAPI
: Pie - 绘制饼图
//声明: Pie( DC: HDC; {设备环境句柄} X1, Y1, X2, Y2, X3, Y3, X4, Y4: Integer {四个坐标点} ): BOOL; //举例: procedure TForm1.FormPaint(Sender: TObject); const x1 =
·
2015-11-02 12:19
api
WinAPI
: Rectangle - 绘制矩形
//声明: Rectangle( DC: HDC; {设备环境句柄} X1, Y1, X2, Y2: Integer {两个点的坐标} ): BOOL; //举例: procedure TForm1.FormPaint(Sender: TObject); const x1 = 20; y1 = 20; x2 =
·
2015-11-02 12:18
api
WinAPI
: MoveToEx 与 LineTo - 绘制直线
//声明: MoveToEx( DC: HDC; {设备环境句柄} p2, p3: Integer; {坐标} p4: PPoint {用于保存 p2、p3 值的 TPoint 结构的指针} ): BOOL; LineTo( DC: HDC; {设备环境句柄} X, Y: Integer {直线终点坐标} ): B
·
2015-11-02 12:16
move
WinAPI
: CreateFontIndirect - 根据字体结构建立逻辑字体
//声明: CreateFontIndirect( const p1: TLogFont {字体结构} ): HFONT; {返回新字体指针} //TLogFont 是 tagLOGFONTA 结构的重定义: tagLOGFONTA = packed record lfHeight: Longint; {字体高度} lfWidth:
·
2015-11-02 12:16
create
WinAPI
: GetCharABCWidths - 获取 TrueType 字符的宽度信息
//声明: GetCharABCWidths( DC: HDC; {设备环境句柄} FirstChar, LastChar: UINT; {范围内的第一个和最后一个字符值} const ABCStructs {接受每个字符信息的 TABC 结构数组} ): BOOL; //TABC 类型是 _ABC 结构的重定
·
2015-11-02 12:15
width
WinAPI
: SetTextJustification - 设置两端对齐
//声明: SetTextJustification( DC: HDC; {设备环境句柄} BreakExtra, {宽度} BreakCount: Integer {被分成几份; 一般以空格为间隔} ): Integer; {成功返回非 0 值; 失败返回 0} //举例: procedure T
·
2015-11-02 12:14
text
WinAPI
: GetCharWidth 和 GetCharWidth32 - 获取字符宽度
//声明: GetCharWidth( DC: HDC; {设备环境句柄} FirstChar, LastChar: UINT; {范围内的第一个和最后一个字符值} const Widths {接受每个字符宽度值的整型数组} ): BOOL; GetCharWidth32( DC: HDC;
·
2015-11-02 12:14
width
WinAPI
: SetTextCharacterExtra - 设置字符间距
//声明: SetTextCharacterExtra( DC: HDC; {设备环境句柄} CharExtra: Integer {间距(按逻辑单位); 若映射模式不是 MM_TEXT, 则舍入到最接近的像素} ): Integer; {返回字符间隔的先前值; 调用失败返回 $80000000 } //举例: proced
·
2015-11-02 12:13
character
WinAPI
: ExtTextOut - 扩展的文本输出
//声明: ExtTextOut( DC: HDC; {设备环境句柄} X, Y: Integer; {起点坐标} Options: Longint; {选项} Rect: PRect; {指定显示范围; 0 表示限制范围} Str: PChar; {字符串指针} Count: Longint; {字符串长
·
2015-11-02 12:12
text
WinAPI
: SetTextAlign - 设置绘图环境的文本对齐方式
//声明: SetTextAlign( DC: HDC; {设备环境句柄} Flags: UINT {对齐选项} ): UINT; {返回对齐选项值; 如果返回 GDI_ERROR 表示设置失败} //Flags 参数的可选值: TA_NOUPDATECP = 0; {每一次文本输出后, 不更新当前位置} TA_UPDATECP = 1;
·
2015-11-02 12:12
text
WinAPI
: SetTextColor - 设置设备环境的文本颜色
//声明: SetTextColor( DC: HDC; {设备环境句柄} Color: COLORREF {颜色值} ): COLORREF; {返回指定的颜色值; 如果返回值是 CLR_INVALID 表示设置失败} //举例: procedure TForm1.Button1Click(Sender: TObject); begi
·
2015-11-02 12:10
color
WinAPI
: TextOut - 输出文本
//声明: TextOut( DC: HDC; {设备环境句柄} X, Y: Integer; {起点坐标} Str: PChar; {字符串指针} Count: Integer {字符串长度} ): BOOL; //举例: procedure TForm1.FormPaint(Sender: TObject); const
·
2015-11-02 12:10
text
WinAPI
: DrawText - 将文本绘制到指定的矩形中
//声明: DrawText( hDC: HDC; {设备句柄} lpString: PChar; {文本} nCount: Integer; {要绘制的字符个数; -1 表示全部} var lpRect: TRect; {矩形结构} uFormat: UINT {选项} ): Integer; {返回文本
·
2015-11-02 12:09
text
WinAPI
: GetVersionEx - 获取系统版本详细信息
//声明: GetVersionEx( var lpVersionInformation: TOSVersionInfo {参数是一个结构} ): BOOL; //结构 TOSVersionInfo 是 _OSVERSIONINFOA 的重命名 _OSVERSIONINFOA = record dwOSVersionInfoSize: DWORD;
·
2015-11-02 12:08
version
C# Read/Write another Process' Memory ZZ
This is a good way to learn a part of
WinAPI
and also understand the basics o
·
2015-11-02 11:43
process
上一页
32
33
34
35
36
37
38
39
下一页
按字母分类:
A
B
C
D
E
F
G
H
I
J
K
L
M
N
O
P
Q
R
S
T
U
V
W
X
Y
Z
其他