Delphi는 탁월한 시각적 프로그래밍, 유연한 Windows API 인터페이스 및 풍부한 기본 작업으로 인해 프로그래밍 애호가들의 선호를 점점 더 많이 받고 있습니다.
Delphi에서는 Windows API를 호출하면 더 나은 Windows 애플리케이션을 작성하는 데 도움이 되는 시스템 정보를 쉽게 얻을 수 있습니다. 다음 프로그램은 Windows 9x용 Delphi3.0에서 컴파일되어 전달됩니다.
1. GetDriveType 함수를 사용하여 디스크 정보를 얻습니다.
Lbl_DriveType:T라벨;
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_Memory:T라벨;
MemStatus.dwLength := 크기(TMEMORYSTATU??
에스);
GlobalMemoryStatus(MemStatus); //메모리 사용량 정보를 반환합니다.
Lbl_Memory.Caption := format('총 메모리: %dKB 사용 가능한 메모리: %dKB',[MemStatus.dwAvailPhys div 1024,MemStatus.dwTotalPhys div 1024]);
//Lbl_Memory에 메모리 정보를 표시합니다.
3. GetSystemInfo 함수를 사용하여 CPU 정보 얻기
SysInfo: TSYSTEMINFO;
Lbl_CPU이름:T라벨;
GetSystemInfo(SysInfo);//CPU 정보 가져오기
사례 SysInfo.dwPROcessorType of
PROCESSOR_INTEL_386:Lbl_CPUName.Caption:=format('%d%s',[SysInfo.dw프로세서 수,'Intel80386']);
PROCESSOR_INTEL_486:Lbl_CPUName.Caption:=format('%d%s',[SysInfo.dw프로세서 수, '인텔 80486']);
PROCESSOR_INTEL_PENTIUM:Lbl_CPUName.Caption:=format('%d%s',[SysInfo.dwNum
berOfProcessors, '인텔 펜티엄']);
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 정보를 표시합니다.