Welcome To The Home Of The Visual FoxPro Experts  
home. signup. forum. archives. search. google. articles. downloads. faq. members. weblogs. file info. rss.
 From: Karben Selim Mejia
  Where is Karben Selim Mejia?
 San Pedro Sula
 Karben Selim Mejia
 To: john satellite
  Where is john satellite?
 john satellite
Subject: RE: get hard disk and CPU infomation
Thread ID: 15823 Message ID: 15828 # Views: 2 # Ratings: 0
Version: Unknown Category: General VFP Topics
Date: Tuesday, October 01, 2002 7:52:26 PM         

> Dear experts:
> Is there anyway to get hard disk and CPU information in VFP 7? thanks.
> John Satellite

There is a command to get the type of procesor you're using


don't know if it helps

and for the serial number of your harddisk you can use this code
LOCAL lcRootPathName , lcVolumeNameBuffer , lnVolumeNameSize , ;
lnVolumeSerialNumber , lnMaximumComponentLength, lnFileSystemFlags , ;
lcFileSystemNameBuffer, lnFileSystemNameSize , lcVolname

DECLARE SHORT GetVolumeInformation IN kernel32 ;
   STRING lpRootPathName,;
   STRING @lpVolumeNameBuffer,;
   INTEGER nVolumeNameSize,;
   INTEGER @lpVolumeSerialNumber,;
   INTEGER @lpMaximumComponentLength,;
   INTEGER @lpFlags,;
   STRING @lpFileSystemNameBuffer,;
   INTEGER nFileSystemNameSize

lcRootPathName = "K:\" && you can replace this with your drive letter
lcVolumeNameBuffer = SPACE(256)
lnVolumeNameSize = 256
lnVolumeSerialNumber = 0
lnMaximumComponentLength = 256
lnFileSystemFlags = 0
lcFileSystemNameBuffer = SPACE(256)
lnFileSystemNameSize = 256

=GetVolumeInformation(@lcRootPathName , @lcVolumeNameBuffer , ;
            lnVolumeNameSize , @lnVolumeSerialNumber, ;
            @lnMaximumComponentLength, @lnFileSystemFlags , ;
            @lcFileSystemNameBuffer , lnFileSystemNameSize )

lcMess = "Volume Name: " + LEFT(ALLTRIM(lcVolumeNameBuffer),LEN(lcVolumeNameBuffer)-1) + CHR(13) + ;
"Serial No : " + TRANSFORM(lnVolumeSerialNumber)
? lcMess

this above code was shared by Eric den in this site

Karben Selim Mejia (Mejiaks)

I used to think that my life was complete. it was until my (by now) Two-years-old child was born that I realized how wrong I was!
Honduras, Central America
The very center of the world


get hard disk and CPU infomation Posted by john satellite @ 10/1/2002 6:52:03 PM
RE: get hard disk and CPU infomation Posted by Karben Selim Mejia @ 10/1/2002 7:52:26 PM
RE: get hard disk and CPU infomation Posted by john satellite @ 10/1/2002 8:19:59 PM