Thanks a lot for information. Now I'm seeking for similar information
under Linux and MacOS. Any help would be most appreciated.
Panagiotis
Στις 05-03-2006, ημέρα Κυρ, και ώρα 18:09 +0100, ο/η Darius Blaszijk
έγραψε:
> 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
>
_________________________________________________________________
To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
archives at http://www.lazarus.freepascal.org/mailarchives
