nsis новый - папка bin

TeacherControlPlugin.cs - добавление обработчика для последующей шифровки Tasks.pas

Compiler/Compiler.cs

@@ -774,6 +774,10 @@ namespace PascalABCCompiler
             {
                 return sourceFilesProvider;
             }
+            set
+            {
+                sourceFilesProvider = value;
+            }
         }
 
         private List<Errors.Error> errorsList = new List<Errors.Error>();

Compiler/ICompiler.cs

@@ -94,7 +94,7 @@ namespace PascalABCCompiler
 
         SourceFilesProviderDelegate SourceFilesProvider
         {
-            get;
+            get; set;
         }
 
         event ChangeCompilerStateEventDelegate OnChangeCompilerState;

ReleaseGenerators/PascalABCNETMini.bat

@@ -1 +1,2 @@
-"..\utils\NSIS\Unicode\makensis.exe" PascalABCNETMini.nsi
+rem "..\utils\NSIS\Unicode\makensis.exe" PascalABCNETMini.nsi
+"..\utils\NSIS2\makensis.exe" PascalABCNETMini.nsi

ReleaseGenerators/PascalABCNETStandart.bat

@@ -1 +1,2 @@
-"..\utils\NSIS\Unicode\makensis.exe" PascalABCNETStandart.nsi
+rem "..\utils\NSIS\Unicode\makensis.exe" PascalABCNETStandart.nsi
+"..\utils\NSIS2\makensis.exe" PascalABCNETStandart.nsi

ReleaseGenerators/PascalABCNETWithDotNet.bat

@@ -1 +1,2 @@
-"..\utils\NSIS\Unicode\makensis.exe" PascalABCNETWithDotNet.nsi
+rem "..\utils\NSIS\Unicode\makensis.exe" PascalABCNETWithDotNet.nsi
+"..\utils\NSIS2\makensis.exe" PascalABCNETWithDotNet.nsi

ReleaseGenerators/PascalABCNETWithDotNet47.bat

@@ -1 +1,2 @@
-"..\utils\NSIS\Unicode\makensis.exe" PascalABCNETWithDotNet47.nsi
+rem "..\utils\NSIS\Unicode\makensis.exe" PascalABCNETWithDotNet47.nsi
+"..\utils\NSIS2\makensis.exe" PascalABCNETWithDotNet47.nsi

ReleaseGenerators/PascalABCNET_DotNetHelp.bat

@@ -1 +1,2 @@
-"..\utils\NSIS\makensis.exe" DotNetHelp.nsi
+rem "..\utils\NSIS\makensis.exe" DotNetHelp.nsi
+"..\utils\NSIS2\makensis.exe" DotNetHelp.nsi

ReleaseGenerators/PascalABCNET_RusLib.bat

@@ -1 +1,2 @@
-"..\utils\NSIS\makensis.exe" RussianHelpFramework.nsi
+rem "..\utils\NSIS\makensis.exe" RussianHelpFramework.nsi
+"..\utils\NSIS2\makensis.exe" RussianHelpFramework.nsi

VisualPlugins/TraningControlPlugin/TeacherControlPlugin.cs

@@ -3,6 +3,7 @@ using System.Collections.Generic;
 using System.Windows.Forms;
 using System.IO;
 using VisualPascalABCPlugins.DBAccess;
+using PascalABCCompiler;
 
 namespace VisualPascalABCPlugins
 {
@@ -58,8 +59,28 @@ namespace VisualPascalABCPlugins
             // Регистрация обработчика
             this.Workbench.ServiceContainer.RunService.Starting += RunStartingHandler;
             this.Workbench.ServiceContainer.RunService.ChangeArgsBeforeRun += ChangeArgsBeforeRunHandler;
+            VisualEnvironmentCompiler.Compiler.SourceFilesProvider = TeacherSourceFilesProvider;
             //Workbench.ServiceContainer.BuildService.BeforeCompile += BeforeCompileHandler;
         }
+
+        public object TeacherSourceFilesProvider(string FileName, SourceFileOperation FileOperation)
+        {
+            switch (FileOperation)
+            {
+                case SourceFileOperation.GetText:
+                    if (!File.Exists(FileName)) return null;
+                    string Text = FileReader.ReadFileContent(FileName, null);
+                    // Здесь можно дешифровать когда надо
+                    //File.AppendAllText("d:\\aaaa.txt", FileName + "\n");
+                    return Text;
+                case SourceFileOperation.Exists:
+                    return File.Exists(FileName);
+                case SourceFileOperation.GetLastWriteTime:
+                    return File.GetLastWriteTime(FileName);
+            }
+            return null;
+        }
+
         public void Execute()
         {
             loginForm.SiteProvider = User;