1 Konuyu açan Mehmet K

  • Mehmet K
  • Üye
  • Offline
  • Yer: İstanbul
  • Kayıt Tarihi: 02.01.2010
  • İleti: 212

Konu: Registry den Windows'un ProductId sini okumak

Windows'un lisans numarasına ulaşmak için:

Visual Fox Pro
1

2

3

4

5

6

7

8

9

#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.

Bir projenin bitmesi için 3 seçenek vardır: hızlı, ucuz, iyi. Bu seçeneklerden iki tane seçiniz.

2 Cevaplayan ugurlu2001

  • ugurlu2001
  • Üye
  • Offline
  • Yer: Istanbul
  • Kayıt Tarihi: 11.10.2006
  • İleti: 1,051

Re: Registry den Windows'un ProductId sini okumak

Merhaba Mehmet;

Kodlar ve paylaşımların için teşekkürler.

Aramıza hoşgeldin...

Uğur
-------------------------------------------------------------------------------------------------------------
Hayat bir bisiklete binmek gibidir. Pedalı çevirmeye devam ettiğiniz sürece düşmezsiniz. Claude Peppeer
Kusuru söylenmeyen adam, ayıbını hüner sanır.  Türk Atasözü

3 Cevaplayan Mehmet K

  • Mehmet K
  • Üye
  • Offline
  • Yer: İstanbul
  • Kayıt Tarihi: 02.01.2010
  • İleti: 212

Re: Registry den Windows'un ProductId sini okumak

Hoşbulduk.
Bugüne kadar yabancı sitelerde gezindiğim için, fox4um 'u yeni keşfetim sad

Mehmet

Bir projenin bitmesi için 3 seçenek vardır: hızlı, ucuz, iyi. Bu seçeneklerden iki tane seçiniz.

4 Cevaplayan ugurlu2001

  • ugurlu2001
  • Üye
  • Offline
  • Yer: Istanbul
  • Kayıt Tarihi: 11.10.2006
  • İleti: 1,051

Re: Registry den Windows'un ProductId sini okumak

Mehmet, buna gülünür mü? ağlanır mı?

smile

Uğur
-------------------------------------------------------------------------------------------------------------
Hayat bir bisiklete binmek gibidir. Pedalı çevirmeye devam ettiğiniz sürece düşmezsiniz. Claude Peppeer
Kusuru söylenmeyen adam, ayıbını hüner sanır.  Türk Atasözü