一、GetLogicalDriveStrings-获取系统中存在的逻辑驱动器字符串
//声明:GetLogicalDriveStrings(
nBufferLength: DWORD; {缓冲区大小}
lpBuffer: PAnsiChar {缓冲区}
): DWORD;//缓冲区的结果是这样储存的: 譬如 A 驱动器会表示为 A: 后面隔一个空字符, 依次向后;
//所以每个驱动器会占 4 字节.
//举例:procedure TForm1.FormCreate(Sender: TObject);
var
PStr: PChar;
DriveArr: array[0..4*26] of Char; {每个驱动器 4 字节, 最多 26 个驱动器}
begin
GetLogicalDriveStrings(SizeOf(DriveArr), DriveArr); {函数调用就这么简单}
PStr := DriveArr; {因为 PStr 是 #0 结尾的, 所以现在它指向的是前 4 个字节}
Memo1.Clear; {清空 Memo}
While PStr<>nil do
begin
Memo1.Lines.Add(PStr);
Inc(PStr,StrLen(PStr)+1); {字符串指针是可以运算的, 这里相当于指针移动 4 个位置, 而指向下一个}
if(Byte(PStr[0]) = 0) then PStr := nil; {如果下一个的第一个字符就是空, 就是没有了, While 等着 nil 终止呢}
end;
end;
二、GetSystemPowerStatus-获取系统电源状态的信息
//声明GetSystemPowerStatus(
var lpSystemPowerStatus: TSystemPowerStatus {TSystemPowerStatus 结构}
): BOOL;
//TSystemPowerStatus 是 _SYSTEM_POWER_STATUS 结构的重定义:
_SYSTEM_POWER_STATUS = packed record
ACLineStatus : Byte; {0:电源断电; 1:电源正常; 255:电源状态未知}
BatteryFlag : Byte; {1:电量充足; 2:电量低; 4:电池基本耗尽; 8:充电; 128:没有电池; 255:电池状态未知}
BatteryLifePercent : Byte; {0..100:所剩电量百分数; 255:未知}
Reserved1 : Byte; {保留, 须为 0}
BatteryLifeTime : DWORD; {电池剩余能量; -1 表示未知}
BatteryFullLifeTime : DWORD; {电池总能量; -1 表示未知}
end;//举例:procedure TForm1.FormCreate(Sender: TObject);
var
Power: TSystemPowerStatus;
begin
GetSystemPowerStatus(Power);
Memo1.Clear;
with Memo1.Lines do
begin
Add(Format('电源状态: %d',[Power.ACLineStatus]));
Add(Format('电池状态: %d',[Power.BatteryFlag]));
Add(Format('电量百分比: %d',[Power.BatteryLifePercent]));
Add(Format('剩余能量: %d',[Power.BatteryLifeTime]));
Add(Format('总能量: %d',[Power.BatteryFullLifeTime]));
end;
end;//效果图:
3COME考试频道为您精心整理，希望对您有所帮助，更多信息在http://www.reader8.com/exam/
