📄 windows注册表的使用技巧.htm
字号:
<html><head><style type="text/css"><!--.p9 { font-family: "宋体"; font-size: 9pt}a {text-transform: none; text-decoration: none;}a:hover {text-decoration: underline; color: #FF0000;}--></style><title></title></head><body background="di2001.jpg"><h3 align="center"><font COLOR="#AOAO99">Windows注册表的使用技巧</font></h3><table width="100%"> <tr> <td><font color="0000FF"><a name="1">如何将你的程序放在Windows启动中:</a></font></td> </tr> <tr> <td> 有时需要让Windows在启动时自动运行你的程序,如何在程序中实现呢?<br> 使用Regedit查找HKEY_LOCALMACHINE\Sodtware\Microsoft\Windows\CurrentVersion\Run,你会发现所有的Windows启动时调用的程序都在这里,于是你将你的程序增加在这里就可以了.名称为你的程序的标题,其值为你的程序的执行路径和文件名称.<br> 如Interbase:<br> Interbase Server"D:\Program Files\Borland\IntrBase\BIN\ibserver.exe"<br> <br> 在程序中实现可以使用TRegIniFile或者使用TRegistry都可以.<br> User Registry;<br> Var<br> RegF:TRegistry;<br> begin<br> RegF:=TRegistry.Create;<br> RegF.RootKey:=HKEY_LOCAL_MACHINE;<br> try<br> RegF.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',True);<br> RegF.WriteString('Interbase Server',<br> '"D:\Program Files\Borland\IntrBase\BIN\ibserver.exe"');<br> except<br> ...<br> End;<br> RegF.Close;<br> RegF.Free;<br> end;<br> </td> </tr> <tr> <td><font color="0000FF"><a name="2">得到Windows用户名和序列号</a></font></td> </tr> <tr> <td>如何得到Windows的用户名称和产品序列号呢？<br> 1. 可以用 WNetGetUser() 这个函数来得到 user name;<br> 2. Windows 95 的产品序号可以用 TRegistry 到 Registry Database 中找出来;<br> // 取得用户名称<br> function GetUserName: AnsiString;<br> var<br> lpName: PAnsiChar;<br> lpUserName: PAnsiChar;<br> lpnLength: DWORD;<br> begin<br> Result := '';<br> lpnLength := 0;<br> WNetGetUser(nil, nil, lpnLength); // 取得字串长度<br> if lpnLength > 0 then<br> begin<br> GetMem(lpUserName, lpnLength);<br> if WNetGetUser(lpName, lpUserName, lpnLength) = NO_ERROR then<br> Result := lpUserName;<br> FreeMem(lpUserName, lpnLength);<br> end;<br> end; { GetUserName }<br> // 取得 Windows 产品序号<br> function GetWindowsProductID: string;<br> var<br> reg: TRegistry;<br> begin<br> Result := '';<br> reg := TRegistry.Create;<br> with reg do<br> begin<br> RootKey := HKEY_LOCAL_MACHINE;<br> OpenKey('Software\Microsoft\Windows\CurrentVersion', False);<br> Result := ReadString('ProductID');<br> end;<br> reg.Free;<br> end;<br> </td> </tr> <tr> <td><font color="0000FF"><a name="3">如何在注册表中注册BDE</a></font></td> </tr> <tr> <td>只拷贝BDE文件是不行的，还要写注册表：<br> 必需的注册表项目包括：<br> 1. BDE动态连接库文件位置设置<br> Key : "HKEY_LOCAL_MACHINE\Software\Borland\Database Engine"<br> Item : "DLLPATH"<br> Value : BDE动态连接库文件所在位置，如"C:\Program Files\Borland\Common Files\BDE"<br> (打开"C:\Program Files\Borland\Common Files\BDE\BDE32.hlp"，<br> 查找"Core Files"即可了解BDE各动态连接库文件的作用)<br> 2. BDE语言驱动文件路径设置<br> Key : "HKEY_LOCAL_MACHINE\Software\Borland\BLW32"<br> Item : "BLAPIPATH"<br> Value : BDE语言驱动文件所在路径，如"C:\Program Files\Borland\Common Files\BDE"<br> (BDE语言驱动就是那些*.BLL文件)<br> 3. 指定可用的BDE语言驱动文件<br> Key : "HKEY_LOCAL_MACHINE\Software\Borland\BLW32"<br> Item : "LOCALE_LIB#" (#表示数字, 如"LOCALE_LIB1"、"LOCALE_LIB3"等)<br> Value : 指定各BDE语言驱动文件，如"C:\Program Files\Borland\Common Files\BDE\USA.BLL"<br> (一般必需的语言驱动文件有"USA.BLL","EUROPE.BLL"和"FAREAST.BLL"，为保险起见，建议将所有语言驱动都设置上。在安装了Delphi3的机器上，用Regedit打开注册表，一看你就明白了怎么设了)<br> </td> </tr></table></body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -