Changeset 492 for cprs/branches/GUI-config/CPRS-Lib/ORSystem.pas

Timestamp:

Sep 17, 2008, 5:34:43 PM (16 years ago)

Author:

Kevin Toppenberg

Message:

Resync

File:

• cprs/branches/GUI-config/CPRS-Lib/ORSystem.pas (modified) (1 diff)

cprs/branches/GUI-config/CPRS-Lib/ORSystem.pas

@@ -127 +127 @@
   Buf: string;
   FileInfoPtr: Pointer; //PVSFixedFileInfo;
-begin
-  Result := '';
+  SpoofVer : string; //kt
+begin
+  //kt Result := '';
+  Result := Trim(ParamSearch('SPOOF-VER'));  //kt  Returns user-specified version #
+  if Result <> '' then exit;  //kt
   ASize:=GetFileVersionInfoSize(PChar(AFileName), AHandle);
   if ASize > 0 then