Summary Table

Categories Total Count
PII 0
URL 0
DNS 0
EKL 0
IP 0
PORT 0
VsID 0
CF 0
AI 0
VPD 0
PL 0
Other 0

File Content

unit uGMV_EXEVersion;

interface
uses
uGMV_VersionInfo
;
function IsThisExeCompatibleVersion: Boolean;

implementation

uses uGMV_Const
, uGMV_Engine;


function IsThisExeCompatibleVersion: Boolean;
{$IFNDEF IGNOREVERSION}
var
s: String;
begin
try
s := getEXEInfo(CurrentExeNameAndVersion);
except
s := '';
end;
Result := (Pos('Y', s)>0);
{$ELSE}
begin
Result := TRUE;
{$ENDIF}
end;


end.