DECLARE INTEGER HashData IN shlwapi;
	STRING @pbData, INTEGER cbData,;
	STRING @pbHash, INTEGER cbHash

? GetHash('001BT007')

FUNCTION GetHash(lcName)
#DEFINE HashSize 4  && DWORD
	LOCAL lcHash
	lcHash = Repli(Chr(0), HashSize)
	IF HashData(@lcName, Len(lcName), @lcHash, HashSize) = 0
		RETURN buf2dword (lcHash)
	ELSE
		RETURN 0
	ENDIF

FUNCTION buf2dword(lcBuffer)
RETURN Asc(SUBSTR(lcBuffer, 1,1)) + ;
	Asc(SUBSTR(lcBuffer, 2,1)) * 256 +;
	Asc(SUBSTR(lcBuffer, 3,1)) * 65536 +;
	Asc(SUBSTR(lcBuffer, 4,1)) * 16777216