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']);

end;//Afficher les informations du CPU dans Lbl_CPUName.