When I tried to read the guid it shows NIL
This is a 10-64 bit version
Do you do this program to you?
It should return the windows uuid number, I wanted to use it to protect the program, it's a unique number for every windows installation
Code: Select all
/*
* HMG - Harbour Win32 GUI library Demo
*
* Copyright 2002-2008 Roberto Lopez <mail.box.hmg@gmail.com>
* http://www.hmgforum.com//
* Based on HBW32 samples included in Harbour distribution
*/
#include "hmg.ch"
PROCEDURE Main()
DEFINE WINDOW form_1 ;
AT 114,218 ;
WIDTH 334 ;
HEIGHT 276 ;
TITLE 'REGISTRY TEST' ;
MAIN
DEFINE MAIN MENU
DEFINE POPUP "Test"
MENUITEM 'Read Registry' ACTION ReadRegistryTest()
END POPUP
END MENU
END WINDOW
form_1.center
form_1.activate
Return NIL
Procedure ReadRegistryTest()
private reg_key := ''
reg_key := hb_ValToStr ( RegistryRead( 'HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Cryptography\MachineGuid' ))
MsgInfo ( reg_key, 'UUID' )
Return