|hkResult dwType lSize|
hkResult := Handle new.   
(WINAPI RegOpenKeyEx: HKEY_LOCAL_MACHINE 
		with: 'HARDWARE\\DESCRIPTION\\System\\CentralProcessor\\0'
		with: NULL		
		with: KEY_QUERY_VALUE
		with: hkResult basicAddress).
dwType  := LONG new.
lSize := LONG new.	
WINAPI RegQueryValueEx: hkResult
		with: 'VendorIdentifier' 
		with: NULL
		with: dwType basicAddress
		with: NULL
		with: lSize basicAddress