Delphi は、その優れたビジュアル プログラミング、柔軟な Windows API インターフェイス、および基盤となる豊富な操作により、プログラミング愛好家の間でますます支持されています。
Delphi では、Windows API を呼び出すことでシステム情報を簡単に取得でき、より良い Windows アプリケーションを作成するのに役立ちます。次のプログラムはコンパイルされ、Delphi3.0 For Windows 9x で渡されます。
1. GetDriveType 関数を使用してディスク情報を取得します
Lbl_DriveType:ラベル;
DriveType:Word //ドライブの種類の変数を定義します。
DriveType:=GetDriveType(RootPathName); //RootPathNameに対応するディスクドライブ情報を取得します。
ケースのドライブの種類
DRIVE_REMOVABLE:Lbl_DriveType.Caption:= 'フロッピー ディスク ドライブ';
DRIVE_FIXED : Lbl_DriveType.Caption:= 'ハードドライブ';
DRIVE_REMOTE: Lbl_DriveType.Caption:= 'ネットワーク ドライブ';
DRIVE_CDROM: Lbl_DriveType.Caption:= 'CD ドライブ';
DRIVE_RAMDISK: Lbl_DriveType.Caption:= 'メモリ仮想ディスク';
end; //Lbl_DriveType にディスク情報を表示します。
2. GlobalMemoryStatus 関数を使用してメモリ使用量情報を取得します。
MemStatus: TMEMORYSTATUS; //メモリ構造変数を定義します。
Lbl_メモリ:ラベル;
MemStatus.dwLength := サイズ (TMEMORYSTATU??
S);
GlobalMemoryStatus(MemStatus); //メモリ使用量情報を返します。
Lbl_Memory.Caption := format('総メモリ: %d KB 使用可能なメモリ: %dKB',[MemStatus.dwAvailPhys div 1024,MemStatus.dwTotalPhys div 1024]);
//Lbl_Memoryにメモリ情報を表示
3. GetSystemInfo 関数を使用して CPU 情報を取得する
SysInfo: TSYSTEMINFO;
Lbl_CPU名:ラベル;
GetSystemInfo(SysInfo);//CPU 情報を取得する
SysInfo.dwPROcessorType の場合
PROCESSOR_INTEL_386:Lbl_CPUName.Caption:=format('%d%s',[SysInfo.dwプロセッサ数,'Intel80386']);
PROCESSOR_INTEL_486:Lbl_CPUName.Caption:=format('%d%s',[SysInfo.dwプロセッサ数, 'Intel 80486']);
PROCESSOR_INTEL_PENTIUM:Lbl_CPUName.Caption:=format('%d%s',[SysInfo.dwNum]
berOfProcessors、「インテル Pentium」]);
PROCESSOR_MipS_R4000:Lbl_CPUName.Caption:=format('%d%s',[SysInfo.dwNumberOfProcessors, 'MIPS R4000']);
PROCESSOR_ALPHA_21064:Lbl_CPUName.Caption:=format('%d%s',[SysInfo.dwNumberOfProcessors, 'ALPHA 21064']);
end;//Lbl_CPUName に CPU 情報を表示します。