diff --git a/Main.pas b/Main.pas
old mode 100755
new mode 100644
index 1623e15..e533254
--- a/Main.pas
+++ b/Main.pas
@@ -1279,7 +1279,7 @@ begin
   FMinToTray := true;
   FExportSheets := false;
 
-  MakeFileAssociations;
+  if Win32MajorVersion < 6 then MakeFileAssociations;
 end;
 
 procedure TMainForm.SpeedButton1Click(Sender: TObject);