Some system stuff

How can I obtain the machine name (in Network Identification) and the BIOS version?
BocianAsked:
Who is Participating?
 
BoRiSCommented:
Bocian

You can use the GetComputerName API call

procedure Tform1.Button1Click(Sender: TObject);
var
 Name: array [0..80] of Char;
 Size: Cardinal;
begin
Size := SizeOf(Name); //You don't really need this
 GetComputerName(Name, Size);
   Label1.Caption := Name;
end;

To get the Bois Version is a bit more difficult...

      Function MyGetExt: Integer; Assembler;
      asm
        Mov  AX,$3031;
        Out  $70,AL;
        NOP;
        IN   AL,$71;
        XCHG AH,AL;
        Out  $70,AL;
        NOP;
        IN   AL,$71;
      end;

    Then as needed call the function....

I don't remeber the rest of the addresses etc. but I must warn you don't play around with the CMOS to much as certain function etc. can
cause system crashes.

    the port to read in is $71
    and out is $70

You need to find out the port/s the version sits on
Hope this helps...

Later

BoRiS
0
 
BocianAuthor Commented:
I would appreciate more info about getting the Bios version. Thanx
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.