Featured Posts

WP Comments Manager Today we are very proud to announce the release of our first Windows Phone 7 application that binds your Wordpress based blogs with your Windows Phone. Now you can manage your blog comments directly...

Readmore

Using IssProc with NSIS to detect files in use Although IssProc was specially designed for Inno Setup scripts, you can also use it with other setup scripts like NSIS (Nullsoft Scriptable Install System) Here is a few steps you need to do in order...

Readmore

Using IssProc with NSIS to detect files in use Although IssProc was specially designed for Inno Setup scripts, you can also use it with other setup scripts like NSIS (Nullsoft Scriptable Install System) Here is a few steps you need to do in order...

Readmore

IssProc (DLL Component) Launched IssProc is a user friendly "file in use" extension for Inno Setup (or other setup builder application like NSIS) that can be used to detect if a certain application (exe, dll module, ocx and so on) or...

Readmore

HDDPhysic v1.1.0 is released! Today we've released a new updated version of HDDPhysic (v1.1.0) Here is what’s new in this version: improved hardware serial extraction in Vista and Windows 7. you don' t need ...

Readmore

  • Prev
  • Next

USBPhysic FoxPro example (source code sample)

Posted By : rlByte Team | In : USBPhysic

0

 In order to get the USB storage device serial number and other manufacturer information (NOT volume serial, only the unique one, the one that will not change after a format, physical one) using USBPhysic library and FoxPro you need to do the following 3 easy steps:

(1) Load USBPhysic library and declare the imported library functions:
Object: Form1 ; Procedure: Load ;

DECLARE INTEGER Init IN "USBPhysic.dll" AS USB_Init STRING sRegUser, STRING sRegCode
DECLARE INTEGER GetUSBPhysicInfo IN "USBPhysic.dll" AS USB_Info INTEGER diskIndex, INTEGER InfoType, STRING pHddInfo

(2) Call the Init function to initialize the user computer USB storage devices and get their total count:
Object: Form1 ; Procedure: Show ;

tDiscs = USB_Init ('your-registration-info-here', 'your-registration-info-here') && Init and get number of usb devices available

IF tDiscs > 0 THEN
 FOR i=0 TO tDiscs-1 STEP 1
  This.Combo1.AddItem (ALLTRIM(STR(i)))
 NEXT
ENDIF

(3) Now that you have the total USB devices count you can query for the manufacturer information passing the disk index to the GetUSBPhysicInfo function:
Objec: Command1 ; Procedure: Show ;

sBuffer = SPACE(500) && make some room in the buffer
iDiskNo = Form1.Combo1.ListIndex-1


    iReturn = USB_Info(iDiskNo, 0, @sBuffer)    && 0 = serial number
    Form1.Text2.Value=sBuffer
   
    iReturn = USB_Info(iDiskNo, 1, @sBuffer)    && 1 = product name
    Form1.Text1.Value=sBuffer
   
    iReturn = USB_Info(iDiskNo, 2, @sBuffer)    && 2 = manufacturer
    Form1.Text3.Value=sBuffer
   
    iReturn = USB_Info(iDiskNo, 3, @sBuffer)    && 3 = drive letter mapped on Windows
    Form1.Text4.Value=sBuffer

A complete Visual FoxPro 9.0 project is available for download in the resource area of the project here


Tags: , , ,


Write a comment

CAPTCHA Image
*