Delphi学习之函数 ⑦硬件功能函数

//▎============================================================▎//
//▎=====================⑦硬件功能函数=========================▎//
//▎============================================================▎//

function GetClientGUID:string;
{ 功能描述：在本机上得到一个GUID.去掉两端的大括号和中间的横线
  返回值：去掉两端的大括号和中间的横线的一个GUID
  适用范围：windows
}

function SoundCardExist: Boolean;       {测试通过}
{* 声卡是否存在}

function GetDiskSerial(DiskChar: Char): string;
{* 获取磁盘序列号}

function DiskReady(Root: string) : Boolean;
{*检查磁盘准备是否就绪}

procedure WritePortB( wPort : Word; bValue : Byte );
{* 写串口}

function ReadPortB( wPort : Word ) : Byte;
{*读串口}

function CPUSpeed: Double;
{* 获知当前机器CPU的速率（MHz）}

type
    TCPUID    = array[1..4] of Longint;
function GetCPUID : TCPUID; assembler; register;
{*获取CPU的标识ID号*}

function GetMemoryTotalPhys : Dword;
{*获取计算机的物理内存}

type
   TDriveState = (DSNODISK, DSUNFORMATTEDDISK, DSEMPTYDISK, DSDISK_WITHFILES);
function DriveState (driveletter: Char) : TDriveState;
{* 检查驱动器A中磁盘是否有效}