Solved

retrieve bios date using delphi

Posted on 2015-02-17
3
406 Views
Last Modified: 2015-02-17
Hi,

I use Delphi 6.
Under WinXP I used following code to retrieve bios information

Function GetBIosInfo: string;
var
BiosDate, BiosName, BiosVersion, BiosNum: String;
begin
try
    BiosDate:=string(pchar(ptr($ffff5)));
    BiosName:=string(pchar(ptr($ffa68)));
    BiosVersion:=string(pchar(ptr($fe061)));
    BiosNum:=string(pchar(ptr($fec71)));
    Result := BiosDate; //BiosName, BiosVersion etc
except
    Result := 'no result';
end;
end;

Moved to Win 7 I noticed that there is no result. Code withing try is not ecexuted.

I also noticed answerID=1215430. Trying it was ineffective too, giving a compiling error in the line
  Selector := AllocSelector(DSeg);  // undeclared identifier: AllocSelector
(Might be more compiling errors in later laines)

Could you please propose something?

Best regards
Nikiforos
0
Comment
Question by:nikif
3 Comments
 
LVL 33

Accepted Solution

by:
ste5an earned 300 total points
ID: 40613951
I'm surprised that this really worked on all machines. Did this really work on NT windows? Cause the only direct available BIOS I know where addressable in DOS.

Newer computers don't have a BIOS anymore, they have UEFI. So you should explain why you want to interact with the hardware.

Maybe this is what you're looking for: ...read the ROM-BIOS?
0
 
LVL 19

Assisted Solution

by:MerijnB
MerijnB earned 200 total points
ID: 40613998
I agree with ste5an, besides, this is tricky stuff and might be different for different bioses and operating systems.

I would either use something commercial like:
http://www.mitec.cz/msics.html

Or try to get this info through WMI:
https://msdn.microsoft.com/en-us/library/aa394077%28v=vs.85%29.aspx
http://delphi.xcjc.net/viewthread.php?tid=46207
http://stackoverflow.com/questions/9939725/get-bios-uuid-from-c-or-delphi-from-win32
0
 

Author Closing Comment

by:nikif
ID: 40614307
Thank you both. I really ignored the status of new machines. I recently went to Win7, so I tried to have some of my applications in the the W7 environment
nikif
0

Featured Post

Netscaler Common Configuration How To guides

If you use NetScaler you will want to see these guides. The NetScaler How To Guides show administrators how to get NetScaler up and configured by providing instructions for common scenarios and some not so common ones.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.
While rebooting windows server 2003 server , it's showing "active directory rebuilding indices please wait" at startup. It took a little while for this process to complete and once we logged on not all the services were started so another reboot is …
This video Micro Tutorial explains how to clone a hard drive using a commercial software product for Windows systems called Casper from Future Systems Solutions (FSS). Cloning makes an exact, complete copy of one hard disk drive (HDD) onto another d…
Windows 10 is mostly good. However the one thing that annoys me is how many clicks you have to do to dial a VPN connection. You have to go to settings from the start menu, (2 clicks), Network and Internet (1 click), Click VPN (another click) then fi…

803 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question