获取主板BIOS的信息

【 tulaoshi.com - 编程语言 】

　　1、读取主板序列号

　　2、AWard Bios密码读取

　　3、读取BIOS信息

　　4、获取BIOS日期信息

　　＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

　　1、读取主板序列号

uses SHA1, Base64;function GetHashedBiosInfo: string;var　 SHA1Context: TSHA1Context;　 SHA1Digest: TSHA1Digest;begin　 // Get the BIOS data　 SetString(Result, PChar(Ptr($F0000)), $10000);　 // Hash the string　 SHA1Init(SHA1Context);　 SHA1Update(SHA1Context, PChar(Result), Length(Result));　 SHA1Final(SHA1Context, SHA1Digest);　 SetString(Result, PChar(@SHA1Digest), sizeof(SHA1Digest));　 // Return the hash string encoded in printable characters　 Result := B64Encode(Result);end;function GetBiosInfoAsText: string;var　 p, q: pchar;begin　 q := nil;　 p := PChar(Ptr($FE000));　 repeat　　 if q  nil then begin　　　 if not (p^ in [#10, #13, #32..#126, #169, #184]) then begin　　　　 if (p^ = #0) and (p - q = 8) then begin　　　　　 Result := Result + TrimRight(String(q)) + #13#10;　　　　 end;　　　　 q := nil;　　　 end;　　 end else　　　 if p^ in [#33..#126, #169, #184] then　　　　 q := p;　　 inc(p);　 until p  PChar(Ptr($FFFFF));　 Result := TrimRight(Result);end;procedure TForm1.FormCreate(Sender: TObject);begin　 Memo1.Lines.Text := GetBiosInfoAsText;end;

　　＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

　　2、AWard Bios密码读取(应该是jingtao的文章，但是ID没有记录)

Unit AwardBiosPas;//Write by lovejingtao//http://www.138soft.cominterfaceuses windows,SysUtils;function My_GetBiosPassword:String;implementationfunction CalcPossiblePassword(PasswordValue: WORD): string;varI: BYTE;C: CHAR;S: string[8];beginI := 0;while PasswordValue  0 do　 begin　　 Inc(I);　　 if $263  PasswordValue then　　　 begin　　　　 if $80  PasswordValue then　　　　　 S[I] := CHAR(PasswordValue)　　　　 else if $B0  PasswordValue then　　　　　 S[I] := CHAR(PasswordValue and $77)　　　　 else if $11D  PasswordValue then　　　　　 S[I] := CHAR($30 or (PasswordValue and $0F))　　　　 else if $114  PasswordValue then　　　　　 begin　　　　　　 S[I] := CHAR($64 or (PasswordValue and $0F));　　　　　　 if '0'  S[I] then　　　　　　　 S[I] := CHAR(BYTE(S[I]) + 8);　　　　　 end　　　　 else if $1C2  PasswordValue then　　　　　 S[I] := CHAR($70 or (PasswordValue and $03))　　　　 else if $1E4  PasswordValue then　　　　　 S[I] := CHAR($30 or (PasswordValue and $03))　　　　 else　　　　　 begin　　　　　　 S[I] := CHAR($70 or (PasswordValue and $0F));　　　　　　 if 'z'  S[I] then　　　　　　　 S[I] := CHAR(BYTE(S[I]) - 8);　　　　　 end;　　　 end　　 else　　　 S[I] := CHAR($30 or (PasswordValue and $3));　　 PasswordValue := (PasswordValue - BYTE(S[I])) shr 2;　 end;S[0] := CHAR(I);PasswordValue := I shr 1;while PasswordValue  I do　 begin {this is to do because award starts calculating with the last letter}　　 C := S[BYTE(S[0]) - I + 1];　　 S[BYTE(S[0]) - I + 1] := S[I];　　 S[I] := C;　　 Dec(I);　 end;CalcPossiblePassword := S;end;function readcmos(off: byte): byte;varvalue: byte;beginasm　　 xor ax, ax　　 mov al, off　　 out 70h, al　　 in　al, 71h　　 mov value, alend;readcmos := value;end;function My_GetBiosPassword:String;varsuperpw, userpw: word;S:String;beginif Win32Platform  VER_PLATFORM_WIN32_NT then //不是NTbeginpchar(@superpw)[0] := char(readcmos($1C));pchar(@superpw)[1] := char(readcmos($1D));pchar(@userpw)[0] := char(readcmos($64));pchar(@userpw)[1] := char(readcmos($65));S:='超级用户密码为:'+CalcPossiblePassword(superpw)+#13+'用户密码为:'+CalcPossiblePassword(userpw);Result:=S;endelseResult:='用户系统为NT,无法获取BISO密码!';end;end.

　　＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

　　3、读取BIOS信息

　　{程序使用Windows 95/2000平台，自动检测系统类型，然后进行不同调用}

uses BiosHelp;procedure TForm1.Button1Click(Sender: TObject);varDump: TRomBiosDump;i: Integer;beginReadRomBios(Dump, rrbmAutomatic);for i := 1 to $000FFFFF - $000F0000 - 1 do　 Memo1.Lines.Add(IntToHex(Dump[i + $000FFFFF], 2));end;(********************************************************************************　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　** BIOS Help - read ROM BIOS on Windows 95/98/SE/ME/NT/2K/XP　　　　　　　　　　**　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　** Copyright (C) 2001, Nico Bendlin (nico@bendlin.de)　　　　　　　　　　　　　 **　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　** Compiler: Delphi 4.03/5.01/6.00　　　　　　　　　　　　　　　　　　　　　　　** Version: 1.03, 2001-09-02　　　　　　　　　　　　　　　　　　　　　　　　　　**　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　********************************************************************************){ postum scriptum: sorry for the bad english, i wrote it in a hurry }unit BiosHelp;{$ALIGN ON}{$MINENUMSIZE 4}interfaceusesWindows;typePRomBiosDump = ^TRomBiosDump;TRomBiosDump = array[$000F0000..$000FFFFF] of Byte;typeTReadRomBiosMethod = (　 rrbmAutomatic,　　　　　　　　　　　　　　　　　　　　　{ Autodetect OS type and use proper method }　 rrbmGeneric,　　　　　　　　　　　　　　　　　　　　　　{ Use 16-bit COM program to dump the BIOS　}　 rrbmMemory,　　　　　　　　　　　　　　　　　　　　　　 { Read from memory (Win9x)　　　　　　　　 }　 rrbmPhysical　　　　　　　　　　　　　　　　　　　　　　{ Read from physical memory object (WinNT) }　 );function ReadRomBios(var Dump: TRomBiosDump; Method: TReadRomBiosMethod;Timeout: DWORD = INFINITE): Boolean;function GetRomBiosBuffer(const Dump: TRomBiosDump; Address: Pointer;var Buffer; BufferSize: Cardinal): Cardinal;function GetRomBiosString(const Dump: TRomBiosDump; Address: Pointer): string;function GetRomBiosLongLong(const Dump: TRomBiosDump; Address: Pointer): LONGLONG;function GetRomBiosDWord(const Dump: TRomBiosDump; Address: Pointer): DWORD;function GetRomBiosWord(const Dump: TRomBiosDump; Address: Pointer): Word;function GetRomBiosByte(const Dump: TRomBiosDump; Address: Pointer): Byte;implementation{################################################################################　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　##　　　　　　　　　　　　　　 GENERIC METHOD　　　　　　　　　　　　　　　　　 ##　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　## Create an temporary folder, save an 16bit COM program (RomDump.com) into it, ## execute program redirected to an file (Rom.dmp, RomDump.com simply dumps the ## memory range F000:0000-F000:FFFF to STDOUT), read dump file into the buffer, ## and finally cleanup all temporary files and directories.　　　　　　　　　　 ##　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　## (the function RomDumpCode is x86 specific, which i wrote to generate 16-bit　##　code with the help of the 23-bit Delphi compiler, never try to execute the　##　pseudo-code in your program! it will not work in 32-bit protected mode)　　 ##　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　################################################################################}{ *INTERNAL* - Pseudo 16-bit code }typePRomDumpCodeInfo = ^TRomDumpCodeInfo;TRomDumpCodeInfo = (rdciStart, rdciEnd, rdciSize);function _RomDumpCode(Info: TRomDumpCodeInfo): Pointer;varCodeStart: Pointer;CodeEnd: Pointer;beginasm　　　　 JMP　　 @@End　　　　 { *BEGIN* 16-bit code　}　　　　 { -- never use it in your program! -- }　　　　 { COM which writes ROM-BIOS to StdOut }@@Start:　　　　 { Dump F000:0000-F000:FFFE }　　　　 XOR　　 eDX, eDX　// DS = 0xF000　 ; Data segment　　　　 MOV　　 DH, 0F0h　　　　 MOV　　 DS, eDX　　　　 XOR　　 eDX, eDX　// DX = 0x0000　 ; Data offset　　　　 XOR　　 eCX, eCX　// CX = 0xFFFF　 ; Data length　　　　 DEC　　 eCX　　　　 XOR　　 eBX, eBX　// BX = 0x0001　 ; STDOUT (file handle)　　　　 INC　　 eBX　　　　 MOV　　 AH, 40h　 // DosCall(0x40) ; INT21, DOS_WRITE_TO_HANDLE　　　　 INT　　 21h　　　　 JC　　　@@Exit　　// On error exit ; AL = Error code　　　　 { Dump F000:FFFF }　　　　 XOR　　 eDX, eDX　// DS = 0xF000　 ; Data segment　　　　 MOV　　 DH, 0F0h　　　　 MOV　　 DS, eDX　　　　 XOR　　 eDX, eDX　// DX = 0xFFFF　 ; Data offset　　　　 DEC　　 eDX　　　　 XOR　　 eCX, eCX　// CX = 0x0001　 ; Data length　　　　 INC　　 eCX　　　　 MOV　　 eBX, eCX　// BX = 0x0001　 ; STDOUT (file handle)　　　　 MOV　　 AH, 40h　 // DosCall(0x40) ; INT21, DOS_WRITE_TO_HANDLE　　　　 INT　　 21h　　　　 JC　　　@@Exit　　// On error exit ; AL = Error code　　　　 MOV　　 AL, 0　　 // no error　　　; AL = 0@@Exit:　　　　 MOV　　 AH, 4Ch　 // DosCall(0x4C) ; INT21, DOS_TERMINATE_EXE　　　　 INT　　 21h@@End:　　　　 { *END* 16-bit code　}　　　　 MOV　　 CodeStart, OFFSET @@Start　　　　 MOV　　 CodeEnd, OFFSET @@Endend;case Info of　 rdciStart:　　 Result := CodeStart;　 rdciEnd:　　 Result := CodeEnd;　 rdciSize:　　 Result := Pointer(Cardinal(CodeEnd) - Cardinal(CodeStart));else　 Result := nil;end;end;{ *INTERNAL* - Save 16-bit code to file }function _RomDumpCodeToFile(const Filename: string): Boolean;varComFile: THandle;Size: Cardinal;beginResult := False;ComFile := CreateFile(PChar(Filename), GENERIC_WRITE, FILE_SHARE_READ, nil,　 CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0);if ComFile  INVALID_HANDLE_VALUE thentry　 Result := WriteFile(ComFile, _RomDumpCode(rdciStart)^,　　 Cardinal(_RomDumpCode(rdciSize)), Size, nil) and　　 (Size = Cardinal(_RomDumpCode(rdciSize)));　 if not Result then　　 DeleteFile(PChar(Filename));finally　 CloseHandle(ComFile);end;end;{ *INTERNAL* - Execute 16-bit code redirected to file }function _RomDumpCodeExecute(const Com, Dmp: string; Timeout: DWORD): Boolean;varComSpec: string;si: TStartupInfo;pi: TProcessInformation;beginResult := False;SetLength(ComSpec, MAX_PATH);SetLength(ComSpec,　 GetEnvironmentVariable('ComSpec', PChar(@ComSpec[1]), MAX_PATH));if Length(ComSpec)  0 thenbegin　 FillChar(si, SizeOf(TStartupInfo), 0);　 si.cb := SizeOf(TStartupInfo);　 si.dwFlags := STARTF_USESHOWWINDOW;　 si.wShowWindow := SW_HIDE;　 if CreateProcess(nil, PChar(ComSpec + ' /C ' + Com + '  ' + Dmp),　　 nil, nil, False, CREATE_NEW_CONSOLE or CREATE_NEW_PROCESS_GROUP, nil,　　 nil, si, pi) then　 try　　 Result := WaitForSingleObject(pi.hProcess, Timeout)  WAIT_TIMEOUT;　 finally　　 CloseHandle(pi.hProcess);　　 CloseHandle(pi.hThread);　 end;end;end;function DirectoryExists(const Dir: string): Boolean;varAttr: DWORD;beginAttr := GetFileAttributes(PChar(Dir));Result := (Attr  $FFFFFFFF) and　 (Attr and FILE_ATTRIBUTE_DIRECTORY = FILE_ATTRIBUTE_DIRECTORY);end;{ Get BIOS dump the generic way }function ReadRomBios16(var Buffer: TRomBiosDump; Timeout: DWORD): Boolean;constTempSub = '~RomDmp';ComName = 'RomDump.com';DmpName = 'Rom.dmp';varTempPath: string;TempDir: string;TempIdx: Integer;TempIdxStr: string;ComFile: string;DmpFile: string;DmpHandle: THandle;Written: DWORD;beginResult := False;SetLength(TempPath, MAX_PATH);SetLength(TempPath, GetTempPath(MAX_PATH, PChar(@TempPath[1])));if Length(TempPath)  0 thenbegin　 if (TempPath[Length(TempPath)]  '') then　　 TempPath := TempPath + '';　 TempIdx := 0;　 repeat　　 Inc(TempIdx);　　 Str(TempIdx, TempIdxStr);　　 TempDir := TempPath + TempSub + TempIdxStr;　 until not DirectoryExists(TempDir);　 if CreateDirectory(PChar(TempDir), nil) then　 try　　 TempDir := TempDir + '';　　 ComFile := TempDir + ComName;　　 DmpFile := TempDir + DmpName;　　 if _RomDumpCodeToFile(ComFile) then　　 try　　　 if _RomDumpCodeExecute(ComFile, DmpFile, Timeout) then　　　 begin　　　　 DmpHandle := CreateFile(PChar(DmpFile), GENERIC_READ,　　　　　 FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING, 0, 0);　　　　 if DmpHandle  INVALID_HANDLE_VALUE then　　　　 try　　　　　 FillChar(Buffer, SizeOf(TRomBiosDump), 0);　　　　　 Result := ReadFile(DmpHandle, Buffer, SizeOf(TRomBiosDump),　　　　　　 Written, nil) and (Written = SizeOf(TRomBiosDump));　　　　 finally　　　　　 CloseHandle(DmpHandle);　　　　 end;　　　 end;　　 finally　　　 DeleteFile(PChar(DmpFile));　　　 DeleteFile(PChar(ComFile));　　 end;　 finally　　 RemoveDirectory(PChar(TempDir));　 end;end;end;{################################################################################　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　##　　　　　　　　　　　　　 DIRECT METHOD (Win9x)　　　　　　　　　　　　　　　##　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　## Due to the fact that Windows 95/98/ME maps the BIOS into every Win32 process ## for read access it is very simple to fill the buffer from memory.　　　　　　##　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　################################################################################}function ReadRomBios9x(var Buffer: TRomBiosDump): Boolean;beginResult := False;try　 FillChar(Buffer, SizeOf(TRomBiosDump), 0);　 Move(Pointer(Low(TRomBiosDump))^, Buffer, SizeOf(TRomBiosDump));　 Result := True;except　 // ignore exceptionsendend;{################################################################################　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　##　　　　　　　　　　　 PHYSICAL MEMORY METHOD (WinNT)　　　　　　　　　　　　 ##　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　## On Windows NT the ROM BIOS is only available through the named kernel object ## 'DevicePhysicalMemory'. Because it is impossible to open kernel objects in ## user mode with standard Win32 API functions we make use of NT's nativeAPI in ## NtDll.dll ("NT-Layer") namely ZwOpenSection.　　　　　　　　　　　　　　　　 ##　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　## (note: mostly there are two versions of every function ZwXxx and NtXxx. The　##　only difference in kernel mode is that the NtXxx version works in conside-　##　ration to security while ZwXxx not. But in user mode both work like NtXxx.) ##　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　## At first the section is opened with ZwOpenSection. Normally we would proceed ## ZwMapViewOfSection, ZwUnmapViewOfSection, and NtClose. But the functions are ## more complex and there is no needing for it. With the handle (because we are ## in the "very simple" user mode =) we now use MapViewOfFile, UnmapViewOfFile, ## and CloseHandle to map an memory window (the ROM BIOS) into our process.　　 ##　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　## Due to the fact that ZwOpenSection returns NT error-codes in case of failure ## we have to translate it to an Win32 error-code (RtlNtStatusToDosError).　　　## All NT specific functions are dynamically loaded -- because the applications ## should start on Win9x systems =)　　　　　　　　　　　　　　　　　　　　　　 ##　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　################################################################################}{ For more information see Windows 2000/XP DDK　}{ It works on Windows NT 4.0 too, use NtDll.dll }typeNTSTATUS = Integer;constSTATUS_SUCCESS = NTSTATUS(0);STATUS_INVALID_HANDLE = NTSTATUS($C0000008);STATUS_ACCESS_DENIED = NTSTATUS($C0000022);typePUnicodeString = ^TUnicodeString;TUnicodeString = packed record　 Length: Word;　 MaximumLength: Word;　 Buffer: PWideChar;end;constOBJ_INHERIT = $00000002;OBJ_PERMANENT = $00000010;OBJ_EXCLUSIVE = $00000020;OBJ_CASE_INSENSITIVE = $00000040;OBJ_OPENIF = $00000080;OBJ_OPENLINK = $00000100;OBJ_KERNEL_HANDLE = $00000200;OBJ_VALID_ATTRIBUTES = $000003F2;typePObjectAttributes = ^TObjectAttributes;TObjectAttributes = record　 Length: ULONG;　 RootDirectory: THandle;　 ObjectName: PUnicodeString;　 Attributes: ULONG;　 SecurityDescriptor: PSecurityDescriptor;　 SecurityQualityOfService: PSecurityQualityOfService;end;constObjectPhysicalMemoryDeviceName = 'DevicePhysicalMemory';ObjectPhysicalMemoryName: TUnicodeString = (　 Length: Length(ObjectPhysicalMemoryDeviceName) * 2;　 MaximumLength: Length(ObjectPhysicalMemoryDeviceName) * 2 + 2;　 Buffer: ObjectPhysicalMemoryDeviceName;　 );ObjectPhysicalMemoryAccessMask: ACCESS_MASK = SECTION_MAP_READ;ObjectPhysicalMemoryAttributes: TObjectAttributes = (　 Length: SizeOf(TObjectAttributes);　 RootDirectory: 0;　 ObjectName: @ObjectPhysicalMemoryName;　 Attributes: OBJ_CASE_INSENSITIVE;　 SecurityDescriptor: nil;　 SecurityQualityOfService: nil;　 );typeTFNZwOpenSection = function(out SectionHandle: THandle;　 DesiredAccess: ACCESS_MASK; ObjectAttributes: PObjectAttributes): NTSTATUS;stdcall;TFNRtlNtStatusToDosError = function(Status: NTSTATUS): DWORD; stdcall;constntdll = 'ntdll.dll';varZwOpenSection: TFNZwOpenSection;RtlNtStatusToDosError: TFNRtlNtStatusToDosError;function ReadRomBiosNt(var Buffer: TRomBiosDump; Timeout: DWORD): Boolean;varNtLayer: HMODULE;Status: NTSTATUS;Section: THandle;View: Pointer;beginResult := False;NtLayer := GetModuleHandle(ntdll);if NtLayer = 0 then　 SetLastError(ERROR_CALL_NOT_IMPLEMENTED)elsebegin　 if not Assigned(ZwOpenSection) then　　 ZwOpenSection := GetProcAddress(NtLayer, 'ZwOpenSection');　 if not Assigned(RtlNtStatusToDosError) then　　 RtlNtStatusToDosError := GetProcAddress(NtLayer, 'RtlNtStatusToDosError');　 if not (Assigned(ZwOpenSection) and Assigned(RtlNtStatusToDosError)) then　　 SetLastError(ERROR_CALL_NOT_IMPLEMENTED)　 else　 begin　　 Status := ZwOpenSection(Section, ObjectPhysicalMemoryAccessMask,　　　 @ObjectPhysicalMemoryAttributes);　　 case Status of　　　 STATUS_SUCCESS:　　　　 try　　　　　 View := MapViewOfFile(Section, ObjectPhysicalMemoryAccessMask, 0,　　　　　　 Low(TRomBiosDump), SizeOf(TRomBiosDump));　　　　　 if Assigned(View) then　　　　　 try　　　　　　 FillChar(Buffer, SizeOf(TRomBiosDump), 0);　　　　　　 Move(View^, Buffer, SizeOf(TRomBiosDump));　　　　　　 Result := True;　　　　　 finally　　　　　　 UnmapViewOfFile(View);　　　　　 end;　　　　 finally　　　　　 CloseHandle(Section);　　　　 end;　　　 STATUS_ACCESS_DENIED:　　　　 Result := ReadRomBios16(Buffer, Timeout);　　 else　　　 SetLastError(RtlNtStatusToDosError(Status))　　 end;　 end;end;end;{################################################################################　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　##　　　　　　　　　　　　　　　 ReadRomBios　　　　　　　　　　　　　　　　　　##　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　################################################################################}function ReadRomBios(var Dump: TRomBiosDump; Method: TReadRomBiosMethod;Timeout: DWORD = INFINITE): Boolean;beginResult := False;case Method of　 rrbmAutomatic:　　 if (Integer(GetVersion)  0) then　　 try　　　 Result := ReadRomBios9x(Dump);　　 except　　　 Result := ReadRomBios16(Dump, Timeout);　　 end　　 else　　　 Result := ReadRomBiosNt(Dump, Timeout);　 rrbmGeneric:　　 Result := ReadRomBios16(Dump, Timeout);　 rrbmMemory:　　 Result := ReadRomBios9x(Dump);　 rrbmPhysical:　　 Result := ReadRomBiosNt(Dump, Timeout);else　 SetLastError(ERROR_INVALID_PARAMETER);end;end;{################################################################################　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　##　　 Utilities to simplify the access to data as generic standard types　　　 ##　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　################################################################################}function GetRomBiosBuffer(const Dump: TRomBiosDump; Address: Pointer;var Buffer; BufferSize: Cardinal): Cardinal;beginResult := 0;if (Cardinal(Address) = Low(TRomBiosDump)) and　 (Cardinal(Address) = High(TRomBiosDump)) thenbegin　 Result := BufferSize;　 if (Cardinal(Address) + BufferSize  High(TRomBiosDump)) then　　 Result := High(TRomBiosDump) - Cardinal(Address) + 1;　 Move(Dump[Cardinal(Address)], Buffer, Result);end;end;function GetRomBiosString(const Dump: TRomBiosDump; Address: Pointer): string;beginResult := '';if (Cardinal(Address) = Low(TRomBiosDump)) and　 (Cardinal(Address) = High(TRomBiosDump)) then　 Result := string(PChar(@Dump[Cardinal(Address)]));end;function GetRomBiosLongLong(const Dump: TRomBiosDump; Address: Pointer): LONGLONG;typePLongLong = ^LONGLONG;beginResult := 0;if (Cardinal(Address) = Low(TRomBiosDump)) and　 (Cardinal(Address) = High(TRomBiosDump) - SizeOf(LONGLONG) + 1) then　 Result := PLongLong(@Dump[Cardinal(Address)])^;end;function GetRomBiosDWord(const Dump: TRomBiosDump; Address: Pointer): DWORD;beginResult := 0;if (Cardinal(Address) = Low(TRomBiosDump)) and　 (Cardinal(Address) = High(TRomBiosDump) - SizeOf(DWORD) + 1) then　 Result := PDWORD(@Dump[Cardinal(Address)])^;end;function GetRomBiosWord(const Dump: TRomBiosDump; Address: Pointer): Word;beginResult := 0;if (Cardinal(Address) = Low(TRomBiosDump)) and　 (Cardinal(Address) = High(TRomBiosDump) - SizeOf(Word) + 1) then　 Result := PWord(@Dump[Cardinal(Address)])^;end;function GetRomBiosByte(const Dump: TRomBiosDump; Address: Pointer): Byte;beginResult := 0;if (Cardinal(Address) = Low(TRomBiosDump)) and　 (Cardinal(Address) = High(TRomBiosDump) - SizeOf(Byte) + 1) then　 Result := PByte(@Dump[Cardinal(Address)])^;end;end.

　　＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

　　4、获取BIOS日期信息

{--------------------------------------------------------------------------}{获取BIOS的日期信息，估计可能在2000下适用，但是可能需要获取权限}function GetBiosDate1: String;varBuffer: Array[0..8] Of Char;N: DWORD;beginReadProcessMemory(GetCurrentProcess,　 Ptr($FFFF5),　 @Buffer,　 8,　 N);Buffer[8] := #0;result := StrPas(Buffer)end;function GetBiosDate2: String;beginresult := string(pchar(ptr($FFFF5)));end;