Konu: Registry den Windows'un ProductId sini okumak
Windows'un lisans numarasına ulaşmak için:
#DEFINE HKLM -2147483646
LOCAL SoftwarePath, cValue, oReg
SoftwarePath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion"
cValue = SPACE(64)
oReg = NEWOBJECT("registry",HOME()+"samples\classes\registry.prg")
oreg.GetRegKey("ProductId", @cValue, SoftwarePath, HKLM )
MESSAGEBOX(cValue)
Masaüstünden Bilgisayarım -> sağ klik -> özellikler diyerek sonucu kontrol edebilirsiniz.