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

2017年02月06日 60 阅读

Delphi调用WinAPI: GetSystemPowerStatus - 获取系统电源状态的信息2012-04-04 cnblogs 万一//声明GetSystemPowerStatus（ var lpSystemPowerStatus: TSystemPowerStatus {TSystemPowerStatus 结构}）: BOOL;//TSystemPowerStatus 是 _SYSTEM_POWER_STATUS 结构的重定义:_SYSTEM...

Delphi调用WinAPI: GetUserName - 获取当前用户名

2017年02月06日 57 阅读

Delphi调用WinAPI: GetUserName - 获取当前用户名2012-04-04 cnblogs 万一//声明:GetUserName（ lpBuffer: PChar; {缓冲区} var nSize: DWORD {缓冲区大小}）: BOOL;//举例:var arr: array[0..254] of Char; d: DWORD;begin d := SizeOf（arr）; GetUserName（arr, d）; ShowMess...

Delphi调用WinAPI: GetVersionEx - 获取系统版本详细信息

2017年02月06日 61 阅读

Delphi调用WinAPI: GetVersionEx - 获取系统版本详细信息2012-04-04 cnblogs 万一//声明:GetVersionEx（ var lpVersionInformation: TOSVersionInfo {参数是一个结构}）: BOOL;//结构 TOSVersionInfo 是 _OSVERSIONINFOA 的重命名_OSVERSIONINFOA = record dwOSVersionInfoSize: DWO...

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

2017年02月06日 65 阅读

Delphi调用WinAPI: GetVolumeInformation - 读取文件系统信息2012-04-04 cnblogs 万一//声明:GetVolumeInformation（ lpRootPathName: PChar; {磁盘驱动器代码字符串} lpVolumeNameBuffer: PChar; {磁盘驱动器卷标名称} nVolumeNameSize: DWORD; {磁盘驱动器卷标名称长度} lpVo...

Delphi调用WinAPI: MessageBeep - 播放一个系统声音

2017年02月06日 55 阅读

Delphi调用WinAPI: MessageBeep - 播放一个系统声音2012-04-04 cnblogs 万一//声明:MessageBeep（ uType: UINT {参数是个常数; 根据不同的常数发出不同的声音, 也就是调用了不同的 wav}）: BOOL;//参数 uType 可选值:MB_OK = 0;MB_ICONHAND = 16;MB_ICONQUESTION = 32;MB_ICONEXCLAMATION = ...

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

2017年02月06日 58 阅读

Delphi调用WinAPI: QueryPerformanceCounter - 获取高性能定时器的当前值2012-04-04 cnblogs 万一//声明:QueryPerformanceCounter（ var lpPerformanceCount: TLargeInteger {获取定时器每秒的频率数; TLargeInteger = Int64}）: BOOL; {返回 False 表示调用失败, 或者是硬件不支持高性能定时器}// 一个有趣的示...

Delphi调用WinAPI: SetComputerName - 更改计算机名称

2017年02月06日 59 阅读

Delphi调用WinAPI: SetComputerName - 更改计算机名称2012-04-04 cnblogs 万一//声明:SetComputerName（ lpComputerName: PChar {新名称串指针}）: BOOL;//举例:var s: string;begin s := "NewName"; if SetComputerName（PAnsiChar（s）） then ShowMessage（s） else ShowMes...

Delphi调用WinApi: SystemParametersInfo

2017年02月06日 56 阅读

Delphi调用WinApi: SystemParametersInfo2012-04-04 cnblogs 万一举例: 更换桌面壁纸var BmpPath: PChar;begin BmpPath := "C:TempTest.bmp"; SystemParametersInfo（SPI_SETDESKWALLPAPER, 0, BmpPath, SPIF_UPDATEINIFILE）;end;SystemParametersInfo 的参数实在太多了....

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

2017年02月06日 61 阅读

Delphi调用WinAPI: 输入光标相关的函数[1]2012-04-06 cnblogs 万一CreateCaret {建立}DestroyCaret {释放}ShowCaret {显示}HideCaret {隐藏}SetCaretPos {设置位置}GetCaretPos {获取位置}SetCaretBlinkTime {设置间隔时间}GetCaretBlinkTime {获取间隔时间}简单测试, 效果图:代码文...

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

2017年02月06日 58 阅读

Delphi调用WinAPI: 输入光标相关的函数[2]2012-04-06 cnblogs 万一本例测试修改光标的设置闪烁速度, 注意这会影响到其他程序, 退出时应恢复到系统 默认的 530 毫秒.本例效果图:代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ...

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

2017年02月06日 67 阅读

Delphi调用WinAPI: 输入光标相关的函数[3]2012-04-06 cnblogs 万一本例测试修改光标的形色, 效果图:代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;type TForm1 = class（TForm） Rad...

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

2017年02月06日 63 阅读

Delphi调用WinAPI: 输入光标相关的函数[4]2012-04-06 cnblogs 万一本例效果图:代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;type TForm1 = class（TForm） procedure FormMouseDown（Sender: TO...

Delphi调用WinAPI 字符及字符串函数（1）

2017年02月06日 60 阅读

Delphi调用WinAPI 字符及字符串函数（1）2012-04-07 cnblogs 万一CharLower - 字符或字符串转小写unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class（TForm） Button1: TButton...

Delphi调用WinAPI 字符及字符串函数（2）

2017年02月06日 64 阅读

Delphi调用WinAPI 字符及字符串函数（2）2012-04-07 cnblogs 万一CharLowerBuff - 把缓冲区中指定数目的字符转小写unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class（TForm） Button...

Delphi调用WinAPI 字符及字符串函数（3）

2017年02月06日 58 阅读

Delphi调用WinAPI 字符及字符串函数（3）2012-04-07 cnblogs 万一CharUpper - 字符或字符串转大写unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class（TForm） Button1: TButton...

Delphi调用WinAPI 字符及字符串函数（4）

2017年02月06日 62 阅读

Delphi调用WinAPI 字符及字符串函数（4）2012-04-07 cnblogs 万一CharLowerBuff - 把缓冲区中指定数目的字符转大写unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class（TForm） Button...

Delphi调用WinAPI 字符及字符串函数（5）: IsCharAlpha - 是否是个字母

2017年02月06日 59 阅读

Delphi调用WinAPI 字符及字符串函数（5）: IsCharAlpha - 是否是个字母2012-04-07 cnblogs 万一unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class（TForm） Button1: TButto...

Delphi调用WinAPI 字符及字符串函数（6）

2017年02月06日 60 阅读

Delphi调用WinAPI 字符及字符串函数（6）2012-04-08delIsCharAlphaNumeric - 是否是个文字（字母或数字）unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class（TForm） Button1: TB...

Delphi调用WinAPI 字符及字符串函数（7）

2017年02月06日 57 阅读

Delphi调用WinAPI 字符及字符串函数（7）2012-04-08 cnblogs 万一IsCharLower - 是否是个小写字母interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class（TForm） Button1: TButton; Button2...

Delphi调用WinAPI 字符及字符串函数（8）

2017年02月06日 61 阅读

Delphi调用WinAPI 字符及字符串函数（8）2012-04-08 cnblogs 万一IsCharUpper - 是否是个大写字母unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class（TForm） Button1: TButto...