DELPHI DATASNAP 2010入门操作（2）不写一行代码，绿色三层我也行

2016年07月27日 50 阅读

DELPHI DATASNAP 2010入门操作（2）不写一行代码，绿色三层我也行2012-04-02 博客园 周黔没有一行代码的三层，功能肯定非常的简单，但是，再简单，我们也三层了，学习一 个东西，需要从入门开始就有兴趣，如果入门就给吓怕了，哪么后来何来信心学习呢？ 现在就让我们开始吧，不只是没有华丽的词语，而是连用词都不专业，因为，我也只是 一个入门者。我所用的版本为：Embarcadero® Delphi® 2010 Version ...

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

2016年07月27日 52 阅读

WinAPI: GetLogicalDriveStrings - 获取系统中存在的逻辑驱动器字符串2012-04-04 cnblogs 万一//声明:GetLogicalDriveStrings（ nBufferLength: DWORD; {缓冲区大小} lpBuffer: PAnsiChar {缓冲区}）: DWORD;//缓冲区的结果是这样储存的: 譬如 A 驱动器会表示为 A: 后面 隔一个空字符, 依次向后;//所以每个驱动器会占 4 字节./...

Delphi调用WinAPI: GetSystemInfo - 获取系统信息

2016年07月27日 51 阅读

Delphi调用WinAPI: GetSystemInfo - 获取系统信息2012-04-04 cnblogs 万一//声明:GetSystemInfo（ var lpSystemInfo: TSystemInfo {}）;//TSystemInfo 是 _SYSTEM_INFO 结构的重定义:_SYSTEM_INFO = record case Integer of 0: （ dwOemId: DWORD）; {返回计算机标识符, 已废弃} 1...

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

2016年07月27日 48 阅读

Delphi调用WinAPI: GetSystemMetrics - 获取系统度量等数值信息2012-04-04 cnblogs 万一声明:GetSystemMetrics（ nIndex: Integer {参数, 详见下表}）: Integer;举例 - 获取屏幕分辨率:var cx,cy: Integer;begin {通过 GetSystemMetrics 函数获取屏幕分辨率} cx := GetSystemMetrics（SM_CXSCREEN）...

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

2016年07月27日 52 阅读

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

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

2016年07月27日 50 阅读

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 - 获取系统版本详细信息

2016年07月27日 44 阅读

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

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

2016年07月27日 47 阅读

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

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

2016年07月27日 47 阅读

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 - 获取高性能定时器的当前值

2016年07月27日 47 阅读

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

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

2016年07月27日 53 阅读

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

2016年07月27日 48 阅读

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]

2016年07月27日 46 阅读

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

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

2016年07月27日 48 阅读

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

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

2016年07月27日 47 阅读

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]

2016年07月27日 49 阅读

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）

2016年07月27日 50 阅读

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）

2016年07月27日 49 阅读

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）

2016年07月27日 48 阅读

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）

2016年07月27日 52 阅读

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...