FiveTech Software tech support forums

Code: Select all

// Serial number

#include "FWCE.ch"

function Main()

   local oWnd

   DEFINE WINDOW oWnd TITLE "Serial Nº"

   @ 2, 2 BUTTON "Serial Nº" SIZE 80, 25 ACTION MsgInfo( SerialNumber() )

   ACTIVATE WINDOW oWnd

return nil

#pragma BEGINDUMP 

#include <hbapi.h> 
#include <windows.h> 
#include <uniqueid.h> 

HB_FUNC( SERIALNUMBER ) 
{ 
	DWORD dwOutBytes;
	const int nBuffSize = 4096;
	byte arrOutBuff[ nBuffSize ];
	BOOL bResult = KernelIoControl( IOCTL_HAL_GET_DEVICEID, 0, 0, 
	                                arrOutBuff, nBuffSize, &dwOutBytes);
	char strDeviceId[ 18 ];
	char hex[ 17 ] = "0123456789ABCDEF";                              
	                                
	if( bResult == FALSE )
	{
		 hb_retc( "0" );
	}
	else
	{
	   strDeviceId[ 0 ] = hex[ arrOutBuff[ 40 ] ];	
	   strDeviceId[ 1 ] = hex[ arrOutBuff[ 41 ] ];	

	   strDeviceId[ 2 ] = hex[ arrOutBuff[ 45 ] ];	
	   strDeviceId[ 3 ] = hex[ arrOutBuff[ 46 ] ];	
	   strDeviceId[ 4 ] = hex[ arrOutBuff[ 47 ] ];	
	   strDeviceId[ 5 ] = hex[ arrOutBuff[ 48 ] ];	
	   strDeviceId[ 6 ] = hex[ arrOutBuff[ 49 ] ];	
	   strDeviceId[ 7 ] = hex[ arrOutBuff[ 50 ] ];	
	   strDeviceId[ 8 ] = hex[ arrOutBuff[ 51 ] ];	
	   strDeviceId[ 9 ] = hex[ arrOutBuff[ 52 ] ];	
	   strDeviceId[ 10 ] = hex[ arrOutBuff[ 53 ] ];	

	   strDeviceId[ 11 ] = hex[ arrOutBuff[ 70 ] ];	
	   strDeviceId[ 12 ] = hex[ arrOutBuff[ 71 ] ];	
	   strDeviceId[ 13 ] = hex[ arrOutBuff[ 72 ] ];	
	   strDeviceId[ 14 ] = hex[ arrOutBuff[ 73 ] ];	
	   strDeviceId[ 15 ] = hex[ arrOutBuff[ 74 ] ];	
	   strDeviceId[ 16 ] = hex[ arrOutBuff[ 75 ] ];	

	   strDeviceId[ 17 ] = 0;	
	   
	   hb_retc( strDeviceId );
	}   
} 

#pragma ENDDUMP 

Code: Select all

#include <uniqueid.h>
CString GetDeviceSerialNumber()
{
	DWORD dwOutBytes;
	const int nBuffSize = 4096;
	byte arrOutBuff[nBuffSize];
	BOOL bResult = ::KernelIoControl(IOCTL_HAL_GET_DEVICEID,
		0, 0, arrOutBuff, nBuffSize, &dwOutBytes);
	if (bResult == FALSE)
	{
		return _T("");
	}
	CString strDeviceInfo;
	for (unsigned int i = 0; i<dwOutBytes; i++) 
	{
		CString strNextChar;
		strNextChar.Format(L"%02X", arrOutBuff[i]);
		strDeviceInfo += strNextChar;
	}
	CString strDeviceId =
		strDeviceInfo.Mid(40,2) +
		strDeviceInfo.Mid(45,9) +
		strDeviceInfo.Mid(70,6);
	return strDeviceId;
}