System Information Unit v5.32.0 released

This is a pretty big update to the System Information Unit: a piece of code I keep promising is on its way out!

Following a feature request on GitHub to provide access to the computer's UUID I hopped off down a rabbit hole BIOS related code and documentation. Once I discovered I needed to dig the UUID out of the BIOS I found a hole host of goodies sitting there.

So, instead of just adding a UUID method to TPJComputerInfo I ended up adding a whole new class, TPJBiosInfo, that gives access to some the the information stored in the BIOS. Well, providing your BIOS complies with the SMBIOS reference specification v2.0 or later it does. Otherwise the class does sweet FA.

Three of the methods of TPJBiosInfo duplicate (sort of) three methods of TPJComputerInfo. I say sort of because the TPJBiosInfo methods get their info directly from the BIOS, while TPJComputerInfo relies on the information being duplicated in the registry. In my case both approaches work, but I've read that the registry based method doesn't always deliver the goods. 

🠊 Anyhow, get the new version (5.32.0) from the GitHub release page.

The VCL & FMX versions of the demo program's have been updated, as have the docs.

Here's a screenshot of the VCL version of the demo program showing its shiny new TPJBiosInfo tab:



Comments

  1. Matjaz8:57 am

    Hello! Is this code compatible with Lazarus Pascal?

    ReplyDelete
    Replies
    1. Delphidabbler11:12 am

      Sorry, I don't know - I don't use it. The code doesn't use anything too fancy so Free Pascal / Lazarus might compile it OK.

      Please give it a try and let me know.

      Delete
    2. Delphidabbler11:15 am

      I don't know whether the demos will work in Lazarus though. It should be relatively simple to knock up something based on them though.

      Delete

Post a Comment

Comments are very welcome, but please be aware that I moderate all comments, so there will be a delay before your comment appears.

Advertising spam and the rare abusive, hateful or racist comments will be blocked and reported.

Finally, should you have a query about, or a bug report for, one of my programs or libraries please use the relevant issue tracker rather than posting a comment to report it.

Thanks

Popular posts from this blog

Initialising dynamic arrays

When writing some unit tests a while ago I found myself needing to initialise some dynamic arrays with test data. It would be nice if we could do something like this: var A : array of Integer ; begin A := ( 1 , 2 , 3 , 4 ) ; // !! WRONG end ; but we can't. So I decided to write some functions to initialise dynamic arrays to the contents of another array, be it a constant, a literal or another dynamic array. The result was a set of overloaded routines, one for each data type I needed to handle, for example for Integer and string arrays I had: function CloneArray ( const A : array of Integer ) : TIntegerDynArray ; overload ; var Idx : Integer ; begin SetLength ( Result , Length ( A ) ) ; for Idx := Low ( A ) to High ( A ) do Result [ Idx - Low ( A ) ] := A [ Idx ] ; end ; function CloneArray ( const A : array of string ) : TStringDynArray ; overload ; var Idx : Integer ; begin SetLength ( Result , Len...
Read more

Deleting elements from a dynamic array

In my blog " Initialising Dynamic Arrays " I mentioned I have been writing some unit tests that needed numerous repetative array initialisation operations. Well, one of the other common operations I found myself writing was the deletion of items from dynamic arrays. So I decided to find a generic way of doing this. Assuming we know the index of the item to be deleted we need the equivalent of Delphi's built-in Delete procedure for strings. If you read the previous post you won't be surprised to learn that I decided to further extend the Generics.Collections.TArray class by adding to the TArrayEx class I introduced there. My first attempt emulates Delphi's Delete procedure by deleting the array element in-place: i.e. it updates the array passed as a parameter. Unsurprisingly the method is called DeleteInPlace . Here's how it goes: type TArrayEx = class ( TArray ) public .. . class procedure DeleteInPlace < T > ( var A : ...
Read more

New Array Utilities Library Unit released

Image
Yesterday I added a shiny new unit to the DelphiDabbler Code Library - the Array Utilities Unit . It lives in the ddablib/arrayutils  repo on GitHub. This unit, named DelphiDabbler.Lib.ArrayUtils.pas ,   provides a single "Advanced" record, TArrayUtils , that contains static methods that perform common operations on generic arrays. There are numerous overloaded versions of many of the methods. Every method operates on a given generic array that is passed as a parameter, either as an array of T or a TArray<T> . The unit requires Delphi XE or later. It has been tested with Delphi XE and Delphi 12. The code depends only on the Delphi RTL, so it should work for any platform supported by Delphi and be both VCL and FireMonkey compatible. I've only tested Windows 32 bit and 64 bit targets. There are far too many methods to describe in here, but you can find them all listed and explained in the comprehensive  online documentation . As a taster you'll find Methods that ...
Read more