bekomm ich das Irgendwie Kleiner geregelt?
DecodeTableX sind dabei Funktionen in verschiedenen Units
Delphi-Quellcode:
case Dmi0.Header.Type_ of
// BIOS Information (Type 0)
0:
DecodeTable0(Dump);
// System Information (Type 1)
1:
DecodeTable1(Dump);
// Baseboard (or Module) Information (Type 2)
2:
DecodeTable2(Dump);
// System Enclosure or Chassis (Type 3)
3:
DecodeTable3(Dump);
// Processor Information (Type 4)
4:
DecodeTable4(Dump);
// Cache Information (Type 7)
7:
DecodeTable7(Dump);
// Port Connector Information (Type 8)
8:
DecodeTable8(Dump);
// System Slots (Type 9)
9:
DecodeTable9(Dump);
// BIOS Language Information (Type 10)
10:
DecodeTable9(Dump);
// OEM Strings (Type 11)
11:
DecodeTable11(Dump);
// BIOS Language Information (Type 13)
13:
DecodeTable13(Dump);
// Memory Device (Type 17)
17:
DecodeTable17(Dump);
// 32-Bit Memory Error Information (Type 18)
18:
DecodeTable18(Dump);
// Portable Battery (Type 22)
22:
DecodeTable22(Dump);
// Hardware Security (Type 24)
24:
DecodeTable24(Dump);
// Cooling Device (Type 26)
26:
DecodeTable26(Dump);
// Cooling Device (Type 27)
27:
DecodeTable27(Dump);
// Cooling Device (Type 28)
28:
DecodeTable28(Dump);
// Electrical Current Probe (Type 29)
29:
DecodeTable29(Dump);
// System Boot Information (Type 32)
32:
DecodeTable32(Dump);
// 64-Bit Memory Error Information (Type 33)
33:
DecodeTable33(Dump);
// Management Device (Type 34)
34:
DecodeTable34(Dump);
// Management Device (Type 39)
39:
DecodeTable39(Dump);
// Onboard Devices Extended Information (Type 41)
41:
DecodeTable41(Dump);
// Inactive (Type 126) Structure
126:
//ShowMessage('Inactive Table ' + IntToStr(Dmi0.Header.Length))
end;