Delphi 讀取硬體資訊

bestlong

取得 CPU 序號，不過在多核心環境會有多組序號

1. unit HardwareInfo;
   
2. 
   
3. interface
   
4. 
   
5. uses
   
6.   SysUtils;
   
7. 
   
8. {取得CPU序號(多核心會有多個序號)}
   
9. function GetCPUInfo: String;
   
10. 
    
11. implementation
    
12. 
    
13. function GetCPUInfo: String;
    
14. type
    
15.   TCPUID  = array[1..4] of Longint;
    
16.   TVendor = array[0..11] of Char;
    
17. 
    
18. var
    
19.   CPUID: TCPUID;
    
20.   I: Integer;
    
21.   S: TVendor;
    
22. 
    
23.   function GetCPUID: TCPUID; assembler; register;
    
24.   asm
    
25.     PUSH   EBX {Save affected register}
    
26.     PUSH   EDI
    
27.     MOV    EDI,EAX {@Resukt}
    
28.     MOV    EAX,1
    
29.     DW     $A20F {CPUID Command}
    
30.     STOSD {CPUID[1]}
    
31.     MOV    EAX,EBX
    
32.     STOSD {CPUID[2]}
    
33.     MOV    EAX,ECX
    
34.     STOSD {CPUID[3]}
    
35.     MOV    EAX,EDX
    
36.     STOSD {CPUID[4]}
    
37.     POP    EDI {Restore registers}
    
38.     POP    EBX
    
39.   end;
    
40. 
    
41.   function GetCPUVendor: TVendor; assembler; register;
    
42.   asm
    
43.     PUSH   EBX {Save affected register}
    
44.     PUSH   EDI
    
45.     MOV    EDI,EAX {@Result (TVendor)}
    
46.     MOV    EAX,0
    
47.     DW     $A20F {CPUID Command}
    
48.     MOV    EAX,EBX
    
49.     XCHG   EBX,ECX {save ECX result}
    
50.     MOV    ECX,4
    
51.     @1:
    
52.     STOSB
    
53.     SHR    EAX,8
    
54.     LOOP   @1
    
55.     MOV    EAX,EDX
    
56.     MOV    ECX,4
    
57.     @2:
    
58.     STOSB
    
59.     SHR    EAX,8
    
60.     LOOP   @2
    
61.     MOV    EAX,EBX
    
62.     MOV    ECX,4
    
63.     @3:
    
64.     STOSB
    
65.     SHR    EAX,8
    
66.     LOOP   @3
    
67.     POP    EDI {Restore registers}
    
68.     POP    EBX
    
69.   end;
    
70.   
    
71.   function IsCPUID_Available : Boolean; register;
    
72.   asm
    
73.     PUSHFD
    
74.     POP     EAX
    
75.     MOV     EDX,EAX
    
76.     XOR     EAX,$200000
    
77.     PUSH    EAX
    
78.     POPFD
    
79.     PUSHFD
    
80.     POP     EAX
    
81.     XOR     EAX,EDX
    
82.     JZ      @exit
    
83.     MOV     AL,True
    
84.     @exit:
    
85.   end;
    
86. 
    
87. begin
    
88.   for I := Low(CPUID) to High(CPUID) do
    
89.     CPUID[I] := -1;
    
90. 
    
91.   CPUID := GetCPUID;
    
92.   if IsCPUID_Available then
    
93.   begin
    
94.     S := GetCPUVendor;
    
95. 
    
96.     Result := S +
    
97.         IntToHex(CPUID[1], 8) +
    
98.         IntToHex(CPUID[2], 8) +
    
99.         IntToHex(CPUID[3], 8) +
    
100.         IntToHex(CPUID[4], 8);
     
101.   end else begin
     
102.     Result := '0';
     
103.   end;
     
104. end;
     
105. 
     
106. end.

複製代碼

bestlong

取得網路卡的 MAC Address 資訊

1. unit HardwareInfo;
   
2. 
   
3. interface
   
4. 
   
5. uses
   
6.   SysUtils, nb30;
   
7. 
   
8. function GetAdapterInfo(Lana: Char): String;
   
9. function GetMACAddress: string;
   
10. 
    
11. implementation
    
12. 
    
13. function GetAdapterInfo(Lana: Char): String;
    
14. var
    
15.   Adapter: TAdapterStatus;
    
16. 
    
17.   NCB: TNCB;
    
18. 
    
19. begin
    
20.   FillChar(NCB, SizeOf(NCB), 0);
    
21.   NCB.ncb_command := Char(NCBRESET);
    
22.   NCB.ncb_lana_num := Lana;
    
23.   if Netbios(@NCB) <> Char(NRC_GOODRET) then
    
24.   begin
    
25.     Result := 'mac not found';
    
26.     Exit;
    
27.   end;
    
28.   FillChar(NCB, SizeOf(NCB), 0);
    
29.   NCB.ncb_command := Char(NCBASTAT);
    
30.   NCB.ncb_lana_num := Lana;
    
31.   NCB.ncb_callname := '*';
    
32.   FillChar(Adapter, SizeOf(Adapter), 0);
    
33.   NCB.ncb_buffer := @Adapter;
    
34.   NCB.ncb_length := SizeOf(Adapter);
    
35.   if Netbios(@NCB) <> Char(NRC_GOODRET) then
    
36.   begin
    
37.     Result := 'mac not found';
    
38.     Exit;
    
39.   end;
    
40.   Result :=
    
41.       IntToHex(Byte(Adapter.adapter_address[0]), 2) + '-' +
    
42.       IntToHex(Byte(Adapter.adapter_address[1]), 2) + '-' +
    
43.       IntToHex(Byte(Adapter.adapter_address[2]), 2) + '-' +
    
44.       IntToHex(Byte(Adapter.adapter_address[3]), 2) + '-' +
    
45.       IntToHex(Byte(Adapter.adapter_address[4]), 2) + '-' +
    
46.       IntToHex(Byte(Adapter.adapter_address[5]), 2);
    
47. end;
    
48. 
    
49. function GetMACAddress: string;
    
50. var
    
51.   AdapterList: TLanaEnum;
    
52.   NCB: TNCB;
    
53. begin  
    
54.   FillChar(NCB, SizeOf(NCB), 0);
    
55.   NCB.ncb_command := Char(NCBENUM);
    
56.   NCB.ncb_buffer := @AdapterList;
    
57.   NCB.ncb_length := SizeOf(AdapterList);
    
58.   Netbios(@NCB);
    
59.   if Byte(AdapterList.length) > 0 then
    
60.     Result := GetAdapterInfo(AdapterList.lana[0])
    
61.   else
    
62.     Result := 'mac not found';
    
63. end;
    
64. 
    
65. end.

複製代碼