Results 1 to 3 of 3

Thread: GetSystemInfo API

  1. #1

    Thread Starter
    New Member
    Join Date
    Sep 1999
    Location
    MONTEVIDEO, URUGUAY
    Posts
    15

    Post

    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

  2. #2
    Former Admin/Moderator MartinLiss's Avatar
    Join Date
    Sep 1999
    Location
    San Jose, CA
    Posts
    33,175

    Post

    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

  3. #3
    Lively Member
    Join Date
    Feb 1999
    Location
    France
    Posts
    90

    Post

    Marty,

    Any way you can get the CPU serial number?

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  



Click Here to Expand Forum to Full Width