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.