Cross plataform GetVersionEx

[clauslack]

There some Cross plataform GetVersionEx for detect
the operating system ?

Ej: return Windows 2000, Windows 7, Linux, etc

Thanks

[Johnny5]

This certainly could help.
I'm in...
Will check on this issue...

[captian jaster]

I never had much experience with it but can't you use "IFDEF" I guess :\

Code: Pascal  [Select][+][-]

1. program Project1;
2.  
3. {$mode objfpc}{$H+}
4.  
5. uses
6.   Classes,SysUtils;
7.  
8. Const
9.  {$IFDEF unix}
10.  OS = 'UNIX';
11.  {$ELSE}
12.  OS = 'Other';
13.  {$ENDIF}
14.  
15. begin
16.   Writeln(OS);
17.   Readln;
18. end.
19.          
20.  

[Johnny5]

Yes but I think we are looking for a simple way to check the executable file information, ex. to get it's version info.

[clauslack]

@Johnny5
I search for GetVersionEx Function
(Retrieves information about the current operating system.)

You say GetFileVersionInfo Function ?
Retrieves version information for the specified file.

check this
http://www.lazarus.freepascal.org/index.php/topic,5255.0.html

and
Lazarus use svn2revisioninc (creates an include file with the svn revision number ) for save the svn version. I think that this is cross plataform.
In the About Dialog show the current SVN version of the Lazarus sources.
Look at
lazarus\ide\AboutFrm.pas
lazarus\tools\svn2revisioninc.lpi
etc, etc  


@captain jaster: maybe work fine for linux your example, for Windows, I use GetVersionEx. For linux I can search for uname -a, etc, etc

Regards

[Johnny5]

Yes thanks a lot.
This will help.
But for me, in Delphi at least I built a function to retrieve the executables version info.
This way, my about Dialog Box hardly needs to be changed (if not at all).
Would there be a way to get to this resource information under linux?

[marcov]

Yes thanks a lot.
This will help.
But for me, in Delphi at least I built a function to retrieve the executables version info.
This way, my about Dialog Box hardly needs to be changed (if not at all).
Would there be a way to get to this resource information under linux?

See Baseunix.fpuname

[clauslack]

Thanks
Baseunix.fpuname works fine.

[Johnny5]

I think I have found a portion of what I was looking for.
Question for me was how can I read the current executed programs version information?
Is this part of the response?
http://wiki.lazarus.freepascal.org/Lazarus_Resources

[Johnny5]

I think I have found a portion of what I was looking for.
Question for me was how can I read the current executed programs version information?
Is this part of the response?
http://wiki.lazarus.freepascal.org/Lazarus_Resources

And also this
http://lazarus.freepascal.org/index.php/topic,11052.0.html