On Sun, 5 Mar 2006, Panagiotis Sidiropoulos wrote:
> Thanks a lot for information. Now I'm seeking for similar information
> under Linux and MacOS. Any help would be most appreciated.
You can use the fpuname call for this on linux/darwin.
it's documented. (baseunix unit)
Michael.
>
> 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
>
