Информация о процессоре
Код
Dim As ZString*5 iBuf0 ,iBuf1 , ibuf2, ibuf3
For i As Integer = &h80000002 To &h80000004
Asm
pushad
mov eax, [i]
cpuid
mov [iBuf0] , Eax
mov [iBuf1] , Ebx
mov [iBuf2] , Ecx
mov [iBuf3] , Edx
popad
End Asm
? iBuf0;iBuf1;iBuf2;iBuf3;
Next
Sleep