There's no OS independent way to do this that I know of, but the getting the
OS version on win32 goes like this;
Darius
function GetWin32Version: string;
var
verInfo: TOSVersionInfo;
WinVersion: string;
begin
verInfo.dwOSVersionInfoSize := SizeOf(TOSVersionInfo);
if GetVersionEx(verInfo) then
begin
WinVersion := 'Unknown Windows version';
if (verInfo.dwMajorVersion = 5) and (verInfo.dwMinorVersion = 2) then
WinVersion := 'Windows Server 2003';
if (verInfo.dwMajorVersion = 5) and (verInfo.dwMinorVersion = 1) then
WinVersion := 'Windows XP (2002)';
if (verInfo.dwMajorVersion = 5) and (verInfo.dwMinorVersion = 0) then
WinVersion := 'Windows 2000';
if (verInfo.dwMajorVersion = 4) and (verInfo.dwMinorVersion = 0) then
WinVersion := 'Windows NT';
if (verInfo.dwMajorVersion = 4) and (verInfo.dwMinorVersion > 0) then
WinVersion := 'Windows 95/98/ME';
with verInfo do
Result := WinVersion + #13#10 +
Format('%d.%d (Build %d) %s',
[dwMajorVersion, dwMinorVersion, dwBuildNumber,
string(verInfo.szCSDVersion)]);
end;
end;
----- Original Message -----
From: "Panagiotis Sidiropoulos" <[EMAIL PROTECTED]>
To: <[email protected]>
Sent: Sunday, March 05, 2006 7:27 PM
Subject: [lazarus] System Information
> I need to get information regarding system, such as user login name, OS
> Version/Distribution, Hard drive serial number, etc. (OS indepented).
>
> Can anyone direct me where to find infomation and/or samples on this?
>
> Panagiotis
>
> _________________________________________________________________
> To unsubscribe: mail [EMAIL PROTECTED] with
> "unsubscribe" as the Subject
> archives at http://www.lazarus.freepascal.org/mailarchives
_________________________________________________________________
To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
archives at http://www.lazarus.freepascal.org/mailarchives
