请问谁知道用delphi怎样获取主板的序列号需要源码

黄田心 2019-12-21 17:41:00

推荐回答

可能通过获取网卡的MAC码,或获得硬盘的序列号,但序列号有两种,一种是物理序列号,另一种是逻辑序列号,物理序列号是不可更改的,但逻辑序列号FORMAT之后就会改变,我上次见到一个人,他不肯给我,要我MONEY,我目前不需要就没有和他谈,不过网卡那一块是可行,只要他的机子上有网卡就行!答案>>。
齐方杰2019-12-21 17:56:21

提示您:回答为网友贡献,仅供参考。

其他回答

  • 如果他干了,我为什么不能?死亡像一个梦那样开始了,用深沉的感情倾听。声音墨水从我的嘴角流出悟语三两倾,哈哈。
    齐晓斋2019-12-21 18:19:26
  • 给你这个这个是我用的你看看好使不functionGetVolumeID:string;varvVolumeNameBuffer:arrayofChar;beginifGetVolumeInformation''C:\'',vVolumeNameBuffer,SizeOfvVolumeNameBuffer,@vVolumeSerialNumber,vMaximumComponentLength,vFileSystemFlags,vFileSystemNameBuffer,SizeOfvFileSystemNameBufferthenbeginResult:=IntToHexvVolumeSerialNumber,8;end;end。
    黄盛波2019-12-21 18:09:08
  • 用API函数。自己去网上下载一个API函数速查手册,查一查就知道用哪个函数获取了。
    管火金2019-12-21 18:02:04

相关问答

1、取得磁盘序列号、卷标和文件系统类型磁盘序列号在每次软盘或硬盘格式化后都重新生成,并且不回重复。许多程序员用此加密。其实也可以修改该函数,可以得到磁盘卷标和文件系统类型信息。声明:PrivateDeclareFunctionGetVolumeInformationLib"kernel32.dll"Alias"GetVolumeInformationA"ByVallpRootPathNameAsString,ByVallpVolumeNameBufferAsString,ByValnVolumeNameSizeAsInteger,lpVolumeSerialNumberAsLong,lpMaximumComponentLengthAsLong,lpFileSystemFlagsAsLong,ByVallpFileSystemNameBufferAsString,ByValnFileSystemNameSizeAsLongAsLong代码:FunctionGetSerialNumbersRootAsStringAsLongDimlSerialNumAsLongDimRAsLongDimsTemp1AsString,sTemp2AsStringstrLabel=String$255,Chr$0注释:磁盘卷标strType=String$255,Chr$0注释:文件系统类型一般为FATR=GetVolumeInformationsRoot,strLabel,LenstrLabel,lSerialNum,0,0,strType,LenstrTypeGetSerialNumber=lSerialNum注释:在strLabel中为磁盘卷标注释:在strType中为文件系统类型EndFunction用法:当驱动器不存在时,函数返回0。如果是个非根目录,也将返回0:lSerial=GetSerialNumber"c:\"2、大家只需将以下代码拈贴到VB的工程中,并以类的模式保存即可使用。所有的代码我都已经测试过,并曾在多次开发项目中使用过。使用方法:dimoHardasnewCGetHardInfo''您可将CGetHardInfo替换成您保存的类读取硬盘的序列号:HDDSR=CGetHardInfo.HardDiskID''读取C盘的串号可利用LASTERROR返回产生的最后一个错误ERRORs为产生的错误集合以下为获取硬件信息的完整代码''=================================================================''获取相关的硬件信息硬盘ID/网卡ID/主机名称/IP地址''文件名称:GetHardInfo.cls''开发时间:2001.10.30''=================================================================OptionExplicitPrivateConstNCBASTAT=&H33PrivateConstNCBNAMSZ=16PrivateConstHEAP_ZERO_MEMORY=&H8PrivateConstHEAP_GENERATE_EXCEPTIONS=&H4PrivateConstNCBRESET=&H32PrivateTypeNCBncb_commandAsBytencb_retcodeAsBytencb_lsnAsBytencb_numAsBytencb_bufferAsLongncb_lengthAsIntegerncb_callnameAsString*NCBNAMSZncb_nameAsString*NCBNAMSZncb_rtoAsBytencb_stoAsBytencb_postAsLongncb_lana_numAsBytencb_cmd_cpltAsBytencb_reserve9AsByte''Reserved,mustbe0ncb_eventAsLongEndTypePrivateTypeADAPTER_STATUSadapter_address5AsByte''AsString*6rev_majorAsBytereserved0AsByteadapter_typeAsByterev_minorAsBytedurationAsIntegerfrmr_recvAsIntegerfrmr_xmitAsIntegeriframe_recv_errAsIntegerxmit_abortsAsIntegerxmit_successAsLongrecv_successAsLongiframe_xmit_errAsIntegerrecv_buff_unavailAsIntegert1_timeoutsAsIntegerti_timeoutsAsIntegerReserved1AsLongfree_ncbsAsIntegermax_cfg_ncbsAsIntegermax_ncbsAsIntegerxmit_buf_unavailAsIntegermax_dgram_sizeAsIntegerpending_sessAsIntegermax_cfg_sessAsIntegermax_sessAsIntegermax_sess_pkt_sizeAsIntegername_countAsIntegerEndTypePrivateTypeNAME_BUFFERNameAsString*NCBNAMSZname_numAsIntegername_flagsAsIntegerEndTypePrivateTypeASTATadaptAsADAPTER_STATUSNameBuff30AsNAME_BUFFEREndTypePrivateDeclareFunctionNetbiosLib"netapi32.dll"pncbAsNCBAsBytePrivateDeclareSubCopyMemoryLib"kernel32"Alias"RtlMoveMemory"hpvDestAsAny,ByValhpvSourceAsLong,ByValcbCopyAsLongPrivateDeclareFunctionGetProcessHeapLib"kernel32"AsLongPrivateDeclareFunctionHeapAllocLib"kernel32"ByValhHeapAsLong,ByValdwFlagsAsLong,ByValdwBytesAsLongAsLongPrivateDeclareFunctionHeapFreeLib"kernel32"ByValhHeapAsLong,ByValdwFlagsAsLong,lpMemAsAnyAsLong3、磁盘序列号在每次软盘或硬盘格式化后都重新生成,并且不回重复。许多程序员用此加密。其实也可以修改该函数,可以得到磁盘卷标和文件系统类型信息。声明:PrivateDeclareFunctionGetVolumeInformationLib"kernel32.dll"Alias_"GetVolumeInformationA"ByVallpRootPathNameAsString,ByVal_lpVolumeNameBufferAsString,ByValnVolumeNameSizeAsInteger,_lpVolumeSerialNumberAsLong,lpMaximumComponentLengthAsLong,_lpFileSystemFlagsAsLong,ByVallpFileSystemNameBufferAsString,_ByValnFileSystemNameSizeAsLongAsLong代码:FunctionGetSerialNumbersRootAsStringAsLongDimlSerialNumAsLongDimRAsLongDimstrLabelAsString,strTypeAsStringstrLabel=String$255,Chr$0''磁盘卷标strType=String$255,Chr$0''文件系统类型一般为FATR=GetVolumeInformationsRoot,strLabel,LenstrLabel,_lSerialNum,0,0,strType,LenstrTypeGetSerialNumber=lSerialNum''在strLabel中为磁盘卷标''在strType中为文件系统类型EndFunction用法:当驱动器不存在时,函数返回0。如果是个非根目录,也将返回0:lSerial=GetSerialNumber"c:\。