想给程序加个注册功能,谁能给我读网卡真实MAC地址的代码,谢谢! - C++ Builder / Windows SDK/API
本来打算用硬盘序列号的,结果发现有些硬盘是没序列号的,又想用CUPID,结果有些CUP也没有ID,有些同一批生产的CUP的资料都一样!没办法,只能用网卡的MAC地址了,虽然MAC也能改,不过加密这东西只是防君子不防小人的.那位大侠有相应的代码就麻烦给我一下.
[解决办法]
参考：http://topic.csdn.net/u/20090211/09/121aac4a-a30b-44e5-a44e-232dfb6d5215.html
[解决办法]
function GetNetCardMac(NetCardName: string; Current: Boolean): string; inline;const OID_802_3_PERMANENT_ADDRESS: Integer = $01010101; OID_802_3_CURRENT_ADDRESS: Integer = $01010102; IOCTL_NDIS_QUERY_GLOBAL_STATS: Integer = $00170002;var hDevice: THandle; inBuf: Integer; outBuf: array[1..256] of Byte; BytesReturned: DWORD; MacAddr: string; i: integer;begin if Current then inBuf := OID_802_3_CURRENT_ADDRESS else inBuf := OID_802_3_PERMANENT_ADDRESS; hDevice := 0; Result := ''; try hDevice := CreateFile(PChar('\\.\' + NetCardName), GENERIC_READ or GENERIC_WRITE, FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING, 0, 0); if hDevice <> INVALID_HANDLE_VALUE then begin if DeviceIoControl(hDevice, IOCTL_NDIS_QUERY_GLOBAL_STATS, @inBuf, 4, @outBuf, 256, BytesReturned, nil) then begin MacAddr := ''; for i := 1 to BytesReturned do begin MacAddr := MacAddr + IntToHex(outbuf[i], 2); end; Result := MacAddr; end; end; finally if not hDevice <> INVALID_HANDLE_VALUE then CloseHandle(hDevice); end;end;function GetNetCardVendor(NetCardName: string): string; inline;const OID_GEN_VENDOR_DESCRIPTION : Integer = $0001010D; IOCTL_NDIS_QUERY_GLOBAL_STATS: Integer = $00170002;var hDevice: THandle; inBuf: Integer; outBuf: array[1..256] of AnsiChar; BytesReturned: DWORD;begin inBuf := OID_GEN_VENDOR_DESCRIPTION; hDevice := 0; Result := ''; try hDevice := CreateFile(PChar('\\.\' + NetCardName), GENERIC_READ or GENERIC_WRITE, FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING, 0, 0); if hDevice <> INVALID_HANDLE_VALUE then begin if DeviceIoControl(hDevice, IOCTL_NDIS_QUERY_GLOBAL_STATS, @inBuf, 4, @outBuf, 256, BytesReturned, nil) then Result := string(AnsiString(outBuf)); end; finally if not hDevice <> INVALID_HANDLE_VALUE then CloseHandle(hDevice); end;end;procedure TMainForm.GetMacClick(Sender: TObject);const REG_NWC = '\SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkCards';var NetWorkCards: TStringList; ServiceName: string; i: Integer;begin Memo.Clear; with TRegistry.Create do begin RootKey := HKEY_LOCAL_MACHINE; NetWorkCards := TStringList.Create; try if OpenKeyReadOnly(REG_NWC) then GetKeyNames(NetWorkCards); for i := 0 to NetWorkCards.Count - 1 do begin if OpenKeyReadOnly(REG_NWC + '\' + NetWorkCards[i]) then begin ServiceName := ReadString('ServiceName'); Memo.Lines.Add('描述: ' + ReadString('Description')); Memo.Lines.Add('永久地址: ' + GetNetCardMac(ServiceName, False)); Memo.Lines.Add('当前地址: ' + GetNetCardMac(ServiceName, True)); Memo.Lines.Add('厂商: ' + GetNetCardVendor(ServiceName)); Memo.Lines.Add(''); Memo.Lines.Add(''); Memo.Lines.Add(''); end; end; finally NetWorkCards.Free; end; end;end;