add OS version check

Author: [email protected]

GoWin7Fixer.dproj

@@ -4,7 +4,7 @@
         <ProjectVersion>19.5</ProjectVersion>
         <FrameworkType>VCL</FrameworkType>
         <Base>True</Base>
-        <Config Condition="'$(Config)'==''">Debug</Config>
+        <Config Condition="'$(Config)'==''">Release</Config>
         <Platform Condition="'$(Platform)'==''">Win32</Platform>
         <TargetedPlatforms>1</TargetedPlatforms>
         <AppType>Application</AppType>

Main.dfm

@@ -770,21 +770,13 @@ object frmMain: TfrmMain
     Font.Name = 'Consolas'
     Font.Style = []
     Lines.Strings = (
-      'Hi! I'#39'm the person who broke all Go '
-      'programs to work on Windows 7 and Server '
-      '2008.'
+      'Hi there,'
       ''
-      'The reason I broke it is because I '
-      'didn'#39't like it being "semi-documented".'
-      'Now it'#39's fully documented and I feel '
-      'pretty fulfilled. I don'#39't care if it '
-      'crashes with a cryptic message now.'
+      'I feel your pain about Go programs'
+      'not working anymore on Windows 7'
+      'and Windows Server 2008.'
       ''
-      'Press my pic to visit my profile and '
-      'say thanks, I cannot wait to hear'
-      'your gratitude.'
-      ''
-      'Or drag and drop one or several Go .EXE '
+      'Drag and drop one or several Go .EXE '
       'file(s) onto me and I will try to fix'
       'what I'#39've done.'
       ''

Main.pas

@@ -68,6 +68,13 @@ procedure TfrmMain.TryPatch(fileName: string);
 var
   res: boolean;
 begin
+  if not CheckOSVersion then
+  begin
+    txtLog.Lines.AddStrings(Patcher.Log);
+    txtLog.Lines.Add('');
+    exit;
+  end;
+
   res := Patch(fileName);
   txtLog.Lines.AddStrings(Patcher.Log);
   txtLog.Lines.Add('');

Patcher.pas

@@ -7,6 +7,7 @@ interface
 
 function Patch(fileName: string): boolean;
 function DropDLLs: boolean;
+function CheckOSVersion: boolean;
 
 var
   Log: TStringList;
@@ -86,6 +87,30 @@ function WriteFromResource(resName, fileName: string): boolean;
   end;
 end;
 
+function CheckOSVersion: boolean;
+var
+  OSVersionInfoEx: TOSVersionInfoEx;
+begin
+  Result := False;
+  Log.Clear;
+  OSVersionInfoEx.dwOSVersionInfoSize := sizeof(TOSVersionInfo);
+  if not GetVersionEx(OSVersionInfoEx) then
+  begin
+    Log.Add('cannot get OS version.');
+    exit;
+  end;
+
+  if (OSVersionInfoEx.dwMajorVersion <> 6) and
+    (OSVersionInfoEx.dwMinorVersion <> 1)  then
+  begin
+    Log.Add('current OS is not Windows 7 or Server 2008.');
+    Log.Add('run this patcher on the actual Windows system you want to patch.');
+    exit;
+  end;
+
+  Result := True;
+end;
+
 function DropDLLs: boolean;
 var
   wd: string;