API 硬件与系统函数 - 随笔分类 - 万一

WinAPI: 输入光标相关的函数[4]

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormMouseDown(Sender: T... 阅读全文

posted @ 2008-11-04 16:28 万一阅读(2780) 评论(9) 推荐(0) 编辑

WinAPI: 输入光标相关的函数[3]

摘要：本例测试修改光标的形色, 效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Ra... 阅读全文

posted @ 2008-11-04 15:25 万一阅读(2127) 评论(0) 推荐(0) 编辑

WinAPI: 输入光标相关的函数[2]

摘要：本例测试修改光标的设置闪烁速度, 注意这会影响到其他程序, 退出时应恢复到系统默认的 530 毫秒. 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtr... 阅读全文

posted @ 2008-11-04 14:56 万一阅读(2057) 评论(0) 推荐(0) 编辑

WinAPI: 输入光标相关的函数[1]

摘要：CreateCaret {建立} DestroyCaret {释放} ShowCaret {显示} HideCaret {隐藏} SetCaretPos {设置位置} GetCaretPos {获取位置} SetCaretBlinkTime {设置间隔时间} GetCaretBlinkT... 阅读全文

posted @ 2008-11-04 14:09 万一阅读(3086) 评论(0) 推荐(1) 编辑

WinApi: SystemParametersInfo

摘要：举例: 更换桌面壁纸 var BmpPath: PChar; begin BmpPath := 'C:\Temp\Test.bmp'; SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, BmpPath, SPIF_UPDATEINIFILE); end; SystemParametersInfo 的参数实在太多了... SPI_GET... 阅读全文

posted @ 2008-11-04 11:03 万一阅读(4353) 评论(3) 推荐(0) 编辑

通过 SHGetSpecialFolderLocation、SHGetPathFromIDList 函数获取常用路径

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Memo1: TMemo; proce... 阅读全文

posted @ 2008-09-23 17:54 万一阅读(12407) 评论(15) 推荐(0) 编辑

一毫米等于多少像素? - GetDeviceCaps

摘要：这不是个确定的值, 它和设备的分辨率相关. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormCreate(Sende... 阅读全文

posted @ 2008-06-03 22:55 万一阅读(15316) 评论(1) 推荐(0) 编辑

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

摘要：本例效果图: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); ... 阅读全文

posted @ 2008-05-02 17:51 万一阅读(8807) 评论(18) 推荐(0) 编辑

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

摘要：声明: GetSystemMetrics( nIndex: Integer {参数, 详见下表} ): Integer; 举例 - 获取屏幕分辨率: var cx,cy: Integer; begin {通过 GetSystemMetrics 函数获取屏幕分辨率} cx := GetSystemMetrics(SM_CXSCREEN); cy := GetSystemM... 阅读全文

posted @ 2008-04-11 14:31 万一阅读(4211) 评论(7) 推荐(0) 编辑

WinAPI: SetTimer、KillTimer - 创建与移除高性能定时器

摘要：//创建定时器函数的声明: SetTimer( hWnd: HWND; {与定时器相关联的窗口句柄} nIDEvent: UINT; {指定一个非 0 的定时器标识符} uElapse: UINT; {指定间隔时间, 单位是毫秒} lpTimerFunc: TFNTimerProc {每到时间后, 要调用的函数... 阅读全文

posted @ 2008-02-16 14:51 万一阅读(7791) 评论(8) 推荐(1) 编辑

WinAPI: QueryPerformanceCounter - 获取高性能定时器的当前值

摘要：//声明: QueryPerformanceCounter( var lpPerformanceCount: TLargeInteger {获取定时器每秒的频率数; TLargeInteger = Int64} ): BOOL; {返回 False 表示调用失败, 或者是硬件不支持高性能定时器} //一个有趣的示例: 判断你的鼠标点击速度; 我的最快记录是 151 毫米 var n1... 阅读全文

posted @ 2008-02-16 14:24 万一阅读(3318) 评论(0) 推荐(0) 编辑

WinAPI: QueryPerformanceFrequency - 获取高性能定时器的每秒频率数

摘要：//声明: QueryPerformanceFrequency( var lpFrequency: TLargeInteger {此参数获取定时器每秒的频率数; TLargeInteger = Int64} ): BOOL; {返回 False 表示硬件不支持高性能定时器} //举例: var i: Int64; begin if ... 阅读全文

posted @ 2008-02-16 13:56 万一阅读(6109) 评论(7) 推荐(0) 编辑

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

摘要：//声明 GetSystemPowerStatus( var lpSystemPowerStatus: TSystemPowerStatus {TSystemPowerStatus 结构} ): BOOL; //TSystemPowerStatus 是 _SYSTEM_POWER_STATUS 结构的重定义: _SYSTEM_POWER_STATUS = packed record A... 阅读全文

posted @ 2008-02-13 13:37 万一阅读(5428) 评论(2) 推荐(1) 编辑

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

摘要：//声明 GetLocalTime( var lpSystemTime: TSystemTime {TSystemTime 结构} ); {无返回值} //设置本地时间 SetLocalTime( const lpSystemTime: TSystemTime {TSystemTime 结构} ): BOOL; //SetSy... 阅读全文

posted @ 2008-02-13 11:31 万一阅读(8327) 评论(0) 推荐(0) 编辑

WinAPI: SwapMouseButton - 交换鼠标左右键的功能

摘要：//声明 SwapMouseButton( fSwap: BOOL {True: 交换; False: 恢复} ): BOOL; 阅读全文

posted @ 2008-02-13 08:49 万一阅读(2123) 评论(0) 推荐(0) 编辑

WinAPI: GetDoubleClickTime、SetDoubleClickTime - 获取与设置鼠标双击间隔时间

摘要：//声明 GetDoubleClickTime: UINT; {无参数; 返回鼠标双击间隔时间, 单位是毫秒} SetDoubleClickTime( Interval: UINT {依毫秒为单位的时间数} ): BOOL; //举例: var c: Cardinal; begin c := GetDoubleClickTime; ShowMessage(... 阅读全文

posted @ 2008-02-13 08:38 万一阅读(3640) 评论(0) 推荐(0) 编辑

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

摘要：//声明: GetLogicalDriveStrings( nBufferLength: DWORD; {缓冲区大小} lpBuffer: PAnsiChar {缓冲区} ): DWORD; //缓冲区的结果是这样储存的: 譬如 A 驱动器会表示为 A:\ 后面隔一个空字符, 依次向后; //所以每个驱动器会占 4 字节. //举例: procedure TForm1.Form... 阅读全文

posted @ 2008-02-11 20:11 万一阅读(5108) 评论(1) 推荐(0) 编辑

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

摘要：//声明: GetLogicalDrives: DWORD; {无参数} //返回值: 返回值的二进制右边第一位为 1 表示驱动器 A: 存在; 返回值的二进制右边第二位为 1 表示驱动器 B: 存在...以次类推. //举例: procedure TForm1.FormCreate(Sender: TObject); var Drives: DWord; i: Integer; b... 阅读全文

posted @ 2008-02-11 17:21 万一阅读(4210) 评论(1) 推荐(0) 编辑

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

摘要：//声明: GetVolumeInformation( lpRootPathName: PChar; {磁盘驱动器代码字符串} lpVolumeNameBuffer: PChar; {磁盘驱动器卷标名称} nVolumeNameSize: DWORD; {磁盘驱动器卷标名称长度} lpVolumeSeria... 阅读全文

posted @ 2008-02-11 16:26 万一阅读(15116) 评论(1) 推荐(0) 编辑

WinAPI: GetDriveType - 获取磁盘类型

摘要：//声明: GetDriveType( lpRootPathName: PChar {磁盘根目录} ): UINT; //返回值: DRIVE_UNKNOWN = 0; {未知} DRIVE_NO_ROOT_DIR = 1; {可移动磁盘} DRIVE_REMOVABLE = 2; {软盘} DRIVE_FIXED = 3; {本地硬盘} DRIVE_REMOTE ... 阅读全文

posted @ 2008-02-11 15:33 万一阅读(10845) 评论(13) 推荐(0) 编辑

积分与排名

随笔分类 (2445)

随笔档案 (2145)

最新评论

随笔分类 - API 硬件与系统函数