GetSystemInfo API

I use GetSystemInfo API to read disk serial number and protect my aplication. But it does not work in NT!!!

Somebody knows which API to use ?

Thanks in advance

Ruben
Montevideo, Uruguay

I use GetSystemInfo under NT without any problem although I don't use it for the same purpose as you. Here is what I do:

Code:

---

Declare Sub GetSystemInfo Lib "Kernel32" (lpSystemInfo As SystemInfo)

Public Type SystemInfo
    dwOemId As Long
    dwPageSize As Long
    lpMinimumApplicationAddress As Long
    lpMaximumApplicationAddress As Long
    dwActiveProcessorMask As Long
    dwNumberOfProcessors As Long
    dwProcessorType As Long
    dwAllocationGranularity As Long
    dwReserved As Long
End Type

' And then in a subroutine
    Dim YourSystem As SystemInfo
    GetSystemInfo YourSystem
   
    lblPCPU.Caption = "CPU: " & YourSystem.dwProcessorType

---

------------------
Marty

Marty,

Any way you can get the CPU serial number?