@all
Is it somehow possible in BlitzPlus to display the CPU installed (brand and speed) and which Windows version?
Look at the 'GetEnv$' command in the docs.
I think you can get quite a lot of info with this command now, can't remember where I saw the full list though.
@VIP3R
Thanks for the tip, but the latest online docs only supply these:
Print "PROCESSOR_ARCHITECTURE: "+GetEnv$("PROCESSOR_ARCHITECTURE")
Print "ProgramFiles: "+GetEnv$("ProgramFiles")
Print "SystemDrive: "+GetEnv$("SystemDrive")
Print "TEMP: "+GetEnv$("TEMP")
WaitKey() There is bound to be more?
Yeah there are more, be careful though as not all versions of Windows support the whole list.
Maybe someone else can remember where they are, I've done a quick search but no luck finding anything other than networking stuff.
Do a forum search for 'getenv$', you're bound to find them somewhere around.
@VIP3R
You were correct. a forum search for the command returned tons of threads ... but unfortunately, none that had a complete list, only a ton of "might work", "works on XP, but maybe not XX" etc ...
I needed something more "firm" In fact, I would love to see some Blitz code access the computer BIOS. That must be possible somehow.
Here's a sample that I wrote a while ago for getting the version of Windows. At the time, I just needed to know whether the user was running 9x/ME or NT/2K/XP. You can get more granular, though. Just look up GetVersionEx on MSDN.
;.lib "Kernel32.dll"
;GetVersionEx%(lpOSVersionInfo*):"GetVersionExA"
Version = CreateBank(148)
PokeInt(Version, 0, BankSize(Version))
If GetVersionEx(Version) Then
Select PeekInt(Version, 16)
Case 0 : Notify "You are running Windows 3.1"
Case 1 : Notify "You are running on the Windows 9x kernel"
Case 2 : Notify "You are running on the Windows NT kernel"
Default : Notify "Unexpected value for Platform ID.", True
End Select
Else
Notify "There was an error querying version info.", True
EndIf
Also, you can get processor architecture, type, etc with GetSystemInfo (kernel32)
@Soja,
I rest my case. You always provide great solutions and ideas! Excellent support.