Initial Commit

getvers.pas

@@ -0,0 +1,34 @@
+unit getvers;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes, SysUtils {$ifdef linux}, getvers_lin {$endif} {$ifdef windows}, getvers_win, getvers_simple_win{$endif} ;
+
+Type
+
+  FilePath = String;
+
+  Function GetVersion (Var FilePath : String): String;
+
+
+implementation
+
+Function GetVersion (Var FilePath : String): String;
+var xvers : string;
+
+begin
+  {$ifdef windows}
+   result:=GetVersionSimpleWin(FilePath);
+  {$else}
+    GetProgramVersion(xvers,FilePath);
+    result:=xvers;
+  {$endif}
+
+end;
+
+
+end.
+