Utiliser Delphi pour obtenir des informations sur les séries
Delphi est de plus en plus apprécié par les passionnés de programmation pour son excellente programmation visuelle, son interface API Windows flexible et ses opérations sous-jacentes riches.
Dans Delphi, en appelant l'API Windows, vous pouvez facilement obtenir des informations système, ce qui nous aide à écrire de meilleures applications Windows. Le programme suivant est compilé et passé sous Delphi3.0 pour Windows 9x.
1. Utilisez la fonction GetDriveType pour obtenir des informations sur le disque
Lbl_DriveType:Tlabel;
DriveType:Word; //Définir la variable de type de lecteur
DriveType:=GetDriveType(RootPathName); //Obtenir les informations sur le lecteur de disque correspondant à RootPathName
cas DriveType de
DRIVE_REMOVABLE:Lbl_DriveType.Caption:= 'Lecteur de disquette';
DRIVE_FIXED : Lbl_DriveType.Caption:= 'Disque dur';
DRIVE_REMOTE : Lbl_DriveType.Caption:= 'Lecteur réseau' ;
DRIVE_CDROM : Lbl_DriveType.Caption:= 'Lecteur de CD' ;
DRIVE_RAMDISK : Lbl_DriveType.Caption:= 'Disque virtuel mémoire' ;
end; //Affiche les informations du disque dans Lbl_DriveType
2. Utilisez la fonction GlobalMemoryStatus pour obtenir des informations sur l'utilisation de la mémoire
MemStatus : TMEMORYSTATUS ; //Définir les variables de structure de mémoire
Lbl_Memory:Tlabel;
MemStatus.dwLength := taille de (TMEMORYSTATU ??
S);
GlobalMemoryStatus(MemStatus); //Renvoyer les informations sur l'utilisation de la mémoire
Lbl_Memory.Caption := format('Mémoire totale : %d Ko Mémoire disponible : %dKB',[MemStatus.dwAvailPhys div 1024,MemStatus.dwTotalPhys div 1024]);
//Afficher les informations sur la mémoire dans Lbl_Memory
3. Utilisez la fonction GetSystemInfo pour obtenir des informations sur le processeur
SysInfo : TSYSTEMINFO ;
Lbl_CPUName:Tlabel;
GetSystemInfo(SysInfo);//Obtenir des informations sur le processeur
cas SysInfo.dwPRocessorType de
PROCESSOR_INTEL_386:Lbl_CPUName.Caption:=format('%d%s',[SysInfo.dwNumber Of Processors,'Intel80386']);
PROCESSOR_INTEL_486:Lbl_CPUName.Caption:=format('%d%s',[SysInfo.dwNumber Of Processors, 'Intel 80486']);
PROCESSOR_INTEL_PENTIUM:Lbl_CPUName.Caption:=format('%d%s',[SysInfo.dwNum
berOfProcessors, 'Intel 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']);