哪位老师有运行软件时读取计算机硬件信息的代码，以防自己编写的程序被拷贝到别的计算机上运行。谢谢！哪位老师有运行软件时读取计算机硬件信息的代码，以防自己编写的程序被拷贝到别的计算机上运行。谢谢！

myfll.fll
https://down.bccn.net/1398.html

VFP获取Cpu的DeviceID.使用率.ProcessorId及Name

*--------------------------------------------
oWMI=Getobject("winmgmts://./root/cimv2")
oCpus=oWMI.InstancesOf("Win32_Processor")
For Each oCpu In oCpus
    ?oCpu.DeviceID
    ?oCpu.LoadPercentage,"%"
    ?oCpu.ProcessorId
    ?oCpu.Name
Endfor

下面程序是用来读取硬盘序列号，
通过gethddiskvolumeid("c:")就可以得到硬盘卷序列号。

func gethddiskvolumeid
PARAMETERS cDriver
**声明函数
DECLARE Long GetVolumeInformation In Win32API;
  STRING @lprootpathname,;
  string @lpvolumenamebuffer,;
  long nvolumenamesize,;
  long @lpvolumeserialnumber,;
  long @lpmaximumcomponentlength,;
  long @lpfilesystemflags,;
  string @lpfilesystemnamebuffer,;
  long nfilesystemnamesize
**要读取的驱动器的启始目录
  lcroot=cdriver
**初始化变量
  store 0 to lnserialnl,lncomplen,lnsysflags
  store space(260) to lcvolname,lcsysname
  store len(lcvolname) to lnvolsize,lnnamesize
**读取磁盘信息
  =getvolumeinformation(@lcroot,;
   @lcvolname,;
   @lnseralno,;
   @lncomplen,;
   @lnsysflags,;
   @lcsysname)
   dnumber=alltrim(str(lnserialno))
   return dnumber
endfunc

当然用木瓜的myfll最方便了。
函数名：GetDiskSerial([nDriveIndex])
缩写：GetD
读取指定硬盘的序列号。注意：部分硬盘可能没有序列号。支持Win95、98、Me、NT、2000、XP、2003，支持User权限，支持IDE、SATA、SCSI硬盘及部分移动硬盘。
返回值：
字符串，成功读取返回硬盘序列号，否则返空值。
参数：
[nDriveIndex]：可选。第x个硬盘，可用值为1-X，
默认值为1，即第一块硬盘。如果只有一块硬盘，即可省略此参数。
示例代码
Set Library To myFll

?"第一块硬盘序列号为："+GetDiskSerial()

?"第二块硬盘序列号为："+GetDiskSerial(2)

Set Library To

函数名：GetCpuId()
缩写：GetC
读取CPU的序列号，注意，部分CPU可能无法读取序列号
返回值：
字符型，CPU的序列号
参数：
无
示例代码
Set Library To myFll

?"你的CPU为："+GetCpuId()

Set Library To

月沐老师，您好！我再请教一下，具体到程序里，我该将你说的这段代码写但我的程序的哪里？我实在是不知道了该如何下手。再次谢谢您老师！

月沐老师，您好！我再请教一下，具体到程序里，我该将你说的这段代码写但我的程序的哪里？我实在是不知道了该如何下手。再次谢谢您老师！

将机器序列号读取出来后，用一定编码（代码1）转化为机器码，再用一定的编码方式（代码2）得到软件序列号。然后将机器码在软件一定位置表示出来，让别人在你处购买软件序列号。
注意：代码1和代码2，应该是你保密的代码，不能让别人知道的，别人知道你的代码了，或者是通用的代码，你的软件就很容易被破解，你也就得不到卖软件的钱了。
代码1和代码2，你自己去考虑吧，我的也不方便向你公开，在这里给你的代码你使用了，别人很容易破解，所以就不写代码了，只给你思路。
机器码注册，是一种过时的软件注册方式，即使你的代码很严密，也是会被破解的，还有好多软件注册方式，去学一下吧。

谢谢老师，我还是不懂啊，我就是想让安装程序在注册表中注册一下，如果单纯拷贝安装目录下的文件到别的计算机上就不能运行，就达到目的了。我的邮箱是nmgcfzw@,月沐老师你如果方便的话能把具体的代码给我吗？

呵呵，不太方便。你的问题让我为难呀。我已经回答过了，这牵扯到自己的保密问题。

改一下关键部分不就行了