//聲明:GetSystemInfo(　var lpSystemInfo: TSystemInfo {});//TSystemInfo 是 _SY

聲明:GetSystemMetrics(　nIndex: Integer {參數, 詳見下表}): Integer;舉例 - 獲取屏幕分辨率:va

//聲明GetSystemPowerStatus(　var lpSystemPowerStatus: TSystemPowerStatus {TS

//聲明:GetUserName(　lpBuffer: PChar;　{緩沖區}　var nSize: DWORD　{緩沖區大小}): BOOL;

//聲明:GetVersionEx(　var lpVersionInformation: TOSVersionInfo {參數是一個結構}): B

//聲明:GetVolumeInformation(　lpRootPathName: PChar;　　　　　　　 {磁盤驅動器代碼字符串}　lpV

//聲明:MessageBeep(　uType: UINT {參數是個常數; 根據不同的常數發出不同的聲音, 也就是調用了不同的 wav}): B

//聲明:QueryPerformanceCounter(　var lpPerformanceCount: TLargeInteger {獲取定時

//聲明:SetComputerName(　lpComputerName: PChar {新名稱串指針}): BOOL;//舉例:var　s: s

舉例: 更換桌面壁紙var　BmpPath: PChar;begin　BmpPath := C:\Temp\Test.bmp;　SystemPar

CreateCaret　　　 {建立}DestroyCaret　　　{釋放}ShowCaret　　　　 {顯示}HideCaret　　　　 {隱藏

本例測試修改光標的設置閃爍速度, 注意這會影響到其他程序, 退出時應恢復到系統 默認的 530 毫秒.本例效果圖:代碼文件:unit Unit1;

本例測試修改光標的形色, 效果圖:代碼文件:unit Unit1;interfaceuses　Windows, Messages, SysUtil

本例效果圖:代碼文件:unit Unit1;interfaceuses　Windows, Messages, SysUtils, Variants

CharLower - 字符或字符串轉小寫unit Unit1;interfaceuses　Windows, Messages, SysUtils

CharLowerBuff - 把緩沖區中指定數目的字符轉小寫unit Unit1;interfaceuses　Windows, Messages

CharUpper - 字符或字符串轉大寫unit Unit1;interfaceuses　Windows, Messages, SysUtils

CharLowerBuff - 把緩沖區中指定數目的字符轉大寫unit Unit1;interfaceuses　Windows, Messages

unit Unit1;interfaceuses　Windows, Messages, SysUtils, Variants, Classes,

IsCharAlphaNumeric - 是否是個文字(字母或數字)unit Unit1;interfaceuses　Windows, Messa