Windows-operativsystemet registeret er lagret i systemets maskinvare informasjon, applikasjoner, informasjon og bruker informasjon i en database, noe som gir programmet det beste stedet å lagre parameter innstillingene.I Windows-operativsystemet, når vi kjører "Regedit.exe" filer fra Registerredigering åpnes du kan se, registret fra venstre og høyre deler: det første laget kalles den venstre siden av registeret formålprimærnøkkel, dobbeltklikker du primærnøkkelen for hver tast kalles en utvidelse av sub-tasten, vinduet til høyre er nøkkelen til sub-tastene, har hver tast den tilsvarende sub-standard verdier og bruke ulike sentrale navn som nøkkelenverdi (standardverdien som er oppkalt en tom streng nøkler).
Les og skriv i VFP søknaden registret data krever bruk av WIN32API (dvs. Windows 32 bit Application Program Interface) funksjoner, for å fungere på samme måte som med de andre VFP samtalen WIN32API funksjonen, må du først bruke ERKLÆRER kommandoen for hver funksjon som skal kalles opp (i), formatet ERKLÆRER [cFunctionType] functionname IN Biblioteknavn [AS AliasName];
[CParamType1 [@ ParamName1], cParamType2 [@] ParamName2, ...]
Der betydningen av parametrene er: ① cFunctionType som returverdien type, men SHORT, INTEGER eller LONG, enkeltrom, dobbeltrom, en STRENG, hvis funksjonen har ingen returverdi, utelater cFunctionType; ② functionname som kalte WIN32API funksjonsnavn, merksak, eller i VFP DLL bibliotek (Biblioteknavn) mindre enn søkefunksjonen og feil, om funksjonen navnet med det samme navnet som en funksjon av VFP, kan AS klausulen også ta en juridisk VFP funksjon navnet;. ③ Biblioteknavn angi en ekstern Windows.DLL navn, som å ta WIN32API, det VFP i KERNEL32.DLL, Gdi32.dll, user32.dll, MPR.DLL og ADVAPI32.DLL søk functionname; ④ cParamType angir typen for hver parameter, kan INTEGER eller LONG, SINGLE,DOUBLE, STRING, en av VFP å sende parametre til funksjonen på to måter: i verdi og med navn (referanse) er passert, det tidligere bare variable (også konstant) verdi til funksjonen, så inne i funksjonenkan ikke endre verdien på variabelen, sistnevnte er den variable (ikke konstante) adressen til funksjonen, som kan endres i funksjonen verdien av variabelen for funksjonen behov for å endre variabelen verdien inne eller plassert i en variabelreturverdi av situasjonen.VFP foran variabelnavnet som "@" som sender parametere som referanse, uten "@" som sender parametere i verdi.For dette eksemplet, er parametere til programmet passerte ved henvisning eller verdi, kommandoer og funksjonskall fra ERKLÆRER uttalelsen, se på et øyeblikk.
Følgende eksempel program til å kjøre hver gang, vil det være i registerundernøkkelen TimesForUse HKEY_CURRENT_USERSOFTWARELYTAPP navn verdi pluss 1, inntil løpe 12 ganger så langt:
backup bin bin_old conf config crawler.tar.gz crawler_bin.tar.gz data eshow eshow_sitemap.html generate.sh google.html google.html.md5 logge maint nyheter: 10 nye: 11 news: 12 news: 13 news: 14 nyheter:15 news: 16 news: 17 news: 18 news: 2 news: 3 news: 4 news: 5 news: 6 nyheter: 7 nyheter: 8 news: 9 outboundLinksMgr.sql frø sitemap.html svn oppgaver tmp xml2dict-2008.6-tjære.gz xml2dict-les-bare primærnøkkel og et heltall (heltall) verdien tilsvarer, nemlig:
# DEFINE HKEY_CLASSES_ROOT bitset (0,31) & & -2147483648
# DEFINE HKEY_CURRENT_USER bitset (0,31) 1 & & -2147483647
# DEFINE HKEY_LOCAL_MACHINE bitset (0,31) 2 & & -2147483646
# DEFINE HKEY_USER bitset (0,31) 3 & & -2147483645
# DEFINE HKEY_CURRENT_CONFIG bitset (0,31) 5 & & -2147483643
# DEFINE HKEY_DYN_DATA bitset (0,31) 6 & & -2147483642
backup bin bin_old conf config crawler.tar.gz crawler_bin.tar.gz data eshow eshow_sitemap.html generate.sh google.html google.html.md5 logge maint nyheter: 10 nye: 11 news: 12 news: 13 news: 14 nyheter:15 news: 16 news: 17 news: 18 news: 2 news: 3 news: 4 news: 5 news: 6 nyheter: 7 nyheter: 8 news: 9 outboundLinksMgr.sql frø sitemap.html svn oppgaver tmp xml2dict-2008.6-tjære.gz xml2dict-les-eneste nøkkelen datatyper: 1 - string, 3 - binary, 4 - Heltall
# DEFINE REG_SZ 1
# DEFINE REG_BINARY 3
# DEFINE REG_DWORD 4
backup bin bin_old conf config crawler.tar.gz crawler_bin.tar.gz data eshow eshow_sitemap.html generate.sh google.html google.html.md5 logge maint nyheter: 10 nye: 11 news: 12 news: 13 news: 14 nyheter:15 news: 16 news: 17 news: 18 news: 2 news: 3 news: 4 news: 5 news: 6 nyheter: 7 nyheter: 8 news: 9 outboundLinksMgr.sql frø sitemap.html svn oppgaver tmp xml2dict-2008.6-tjære.gz xml2dict-les-bare når følgende API-funksjonen returnerer 0, operasjonen var vellykket.
ERKLÆRER Integer RegOpenKey IN Win32API;
Integer nHKey, String @ cSubKey, Heltall @ nResult
ERKLÆRER Integer RegCreateKey IN Win32API;
Integer nHKey, String @ cSubKey, Heltall @ nResult
ERKLÆRER Integer RegSetValueEx IN Win32API;
Integer HKEY, String lpszValueName, Heltall dwReserved,;
Integer fdwType, String lpbData, Heltall cbData
ERKLÆRER Integer RegQueryValueEx IN Win32API;
Integer nHKey, String lpszValueName, Heltall dwReserved,;
Integer @ lpdwType, streng @ lpbData, Heltall @ lpcbData
backup bin bin_old conf config crawler.tar.gz crawler_bin.tar.gz data eshow eshow_sitemap.html generate.sh google.html google.html.md5 logge maint nyheter: 10 nye: 11 news: 12 news: 13 news: 14 nyheter:15 news: 16 news: 17 news: 18 news: 2 news: 3 news: 4 news: 5 news: 6 nyheter: 7 nyheter: 8 news: 9 outboundLinksMgr.sql frø sitemap.html svn oppgaver tmp xml2dict-2008.6-tjære.gz xml2dict-read-only ERKLÆRER Integer RegDeleteKey IN Win32API;
backup bin bin_old conf config crawler.tar.gz crawler_bin.tar.gz data eshow eshow_sitemap.html generate.sh google.html google.html.md5 logge maint nyheter: 10 nye: 11 news: 12 news: 13 news: 14 nyheter:15 news: 16 news: 17 news: 18 news: 2 news: 3 news: 4 news: 5 news: 6 nyheter: 7 nyheter: 8 news: 9 outboundLinksMgr.sql frø sitemap.html svn oppgaver tmp xml2dict-2008.6-tjære.gz xml2dict-read-only Integer nHKey, String @ cSubKey
backup bin bin_old conf config crawler.tar.gz crawler_bin.tar.gz data eshow eshow_sitemap.html generate.sh google.html google.html.md5 logge maint nyheter: 10 nye: 11 news: 12 news: 13 news: 14 nyheter:15 news: 16 news: 17 news: 18 news: 2 news: 3 news: 4 news: 5 news: 6 nyheter: 7 nyheter: 8 news: 9 outboundLinksMgr.sql frø sitemap.html svn oppgaver tmp xml2dict-2008.6-tjære.gz xml2dict-read-only ERKLÆRER Integer RegDeleteValue IN Win32API;
backup bin bin_old conf config crawler.tar.gz crawler_bin.tar.gz data eshow eshow_sitemap.html generate.sh google.html google.html.md5 logge maint nyheter: 10 nye: 11 news: 12 news: 13 news: 14 nyheter:15 news: 16 news: 17 news: 18 news: 2 news: 3 news: 4 news: 5 news: 6 nyheter: 7 nyheter: 8 news: 9 outboundLinksMgr.sql frø sitemap.html svn oppgaver tmp xml2dict-2008.6-tjære.gz xml2dict-read-only Integer nHKey, String cSubKey
backup bin bin_old conf config crawler.tar.gz crawler_bin.tar.gz data eshow eshow_sitemap.html generate.sh google.html google.html.md5 logge maint nyheter: 10 nye: 11 news: 12 news: 13 news: 14 nyheter:15 news: 16 news: 17 news: 18 news: 2 news: 3 news: 4 news: 5 news: 6 nyheter: 7 nyheter: 8 news: 9 outboundLinksMgr.sql frø sitemap.html svn oppgaver tmp xml2dict-2008.6-tjære.gz xml2dict-read-only ERKLÆRER Integer RegCloseKey IN Win32API;
backup bin bin_old conf config crawler.tar.gz crawler_bin.tar.gz data eshow eshow_sitemap.html generate.sh google.html google.html.md5 logge maint nyheter: 10 nye: 11 news: 12 news: 13 news: 14 nyheter:15 news: 16 news: 17 news: 18 news: 2 news: 3 news: 4 news: 5 news: 6 nyheter: 7 nyheter: 8 news: 9 outboundLinksMgr.sql frø sitemap.html svn oppgaver tmp xml2dict-2008.6-tjære.gz xml2dict-read-only Integer nHKey
csubkey =''Softwarelytapp''
nresult = 0
hvis regopenkey (HKEY_CURRENT_USER, @ csubkey, @ nresult) # 0
RegCreateKey (HKEY_CURRENT_USER, csubkey, @ nresult)
endif
backup bin bin_old conf config crawler.tar.gz crawler_bin.tar.gz data eshow eshow_sitemap.html generate.sh google.html google.html.md5 logge maint nyheter: 10 nye: 11 news: 12 news: 13 news: 14 nyheter:15 news: 16 news: 17 news: 18 news: 2 news: 3 news: 4 news: 5 news: 6 nyheter: 7 nyheter: 8 news: 9 outboundLinksMgr.sql frø sitemap.html svn oppgaver tmp xml2dict-2008.6-tjære.gz xml2dict-les-eneste butikken i nresult et punkt i sub-key "HKEY_CURRENT_USERSoftwarelytapp" lange heltallsverdi
lpdwtype = 0
lpbdata = plass (256)
lpcbdata = len (lpbdata)
hvis RegQueryValueEx (nresult,''TimesForUse'', 0, @ lpdwtype, @ lpbdata, @ lpcbdata) = 0
do saken
Ved lpdwtype = REG_SZ
lpbdata = venstre (lpbdata, lpcbdata-1)
Dersom ANT (lpbdata) 12
lpbdata = alltrim (str (Val (lpbdata) +1))
! Meldingsboksen (''til programmet ikke er registrert kan bare bruke 12 ganger''+ CHR (13) +'''' Du er +;
lpbdata +''-bruk av denne prosedyren.'')
lpbdata = lpbdata + chr (0)
cbdata = len (lpbdata)
RegSetValueEx (nresult,''TimesForUse'', 0, REG_SZ, lpbdata, cbdata)
annet
meldingsboksen ("Programmet har utløpt!" + CHR (13) + "ta kontakt med registreringen.")
endif
Ved lpdwtype = REG_BINARY
meldingsboksen (''nøkkelen som binære data.'')
Ved lpdwtype = REG_DWORD
meldingsboksen (''Nøkkelen til et langt heltall data, kan du bruke NN = 0''+ CHR (13) +''for i = 1 til 4''+ CHR (13) +;
''NN = NN + VAL (SUBSTR (lpbdata, i, 1) * 16 ^ (2 * i-2)''+ CHR (13) +;
''Endfor leser denne verdien.'')
ellers
meldingsboksen (''Unknown data!'')
endcase
annet
lpbdata =''1''
meldingsboksen (''til programmet ikke er registrert kan bare bruke 12 ganger!''+ CHR (13) +''Du er den første''+ lpbdata +''-bruk av programmet.'')
lpbdata = lpbdata + chr (0)
RegSetValueEx (nresult,''TimesForUse'', 0, REG_SZ, lpbdata, 2)
endif
* Advarsel: når brukeren ikke er kjent med registeret er best å ikke endre innholdet, ellers kan resultere i systemet krasjer.Hvis brukeren ønsker å endre registret, anbefales det å endre registret backup før best.