installer: wizard C# Windows d'installation guidee (WSL2, Podman, agent, desinstallation)

2026-06-28 20:49:57 +00:00
parent d2c3edea2f
commit 0f07a2d2a3
7 changed files with 1196 additions and 0 deletions
@@ -0,0 +1,190 @@
+; studioE5 Agent Installer (Inno Setup)
+; Build with Inno Setup Compiler (ISCC) on Windows.
+; This installer bundles the agent and Tailscale binaries. It checks
+; prerequisites and guides the user through installing missing system
+; components (WSL2 + Podman) before installing studioE5.
+
+#define MyAppName "studioE5 Agent"
+#define MyAppVersion "0.3.17"
+#define MyAppPublisher "studioE5"
+#define MyAppURL "https://studioe5.edudeploy.com"
+#define MyAppExeName "studioE5-agent.exe"
+
+[Setup]
+AppId={{studioE5-agent-ondemand}
+AppName={#MyAppName}
+AppVersion={#MyAppVersion}
+AppPublisher={#MyAppPublisher}
+AppPublisherURL={#MyAppURL}
+AppSupportURL={#MyAppURL}
+AppUpdatesURL={#MyAppURL}
+DefaultDirName={autopf}\studioE5-agent
+DisableProgramGroupPage=yes
+OutputDir=..\..\installer-output
+OutputBaseFilename=studioE5-agent-{#MyAppVersion}-setup
+Compression=lzma
+SolidCompression=yes
+WizardStyle=modern
+PrivilegesRequired=admin
+ArchitecturesAllowed=x64
+ArchitecturesInstallIn64BitMode=x64
+[Languages]
+Name: "french"; MessagesFile: "compiler:Languages\French.isl"
+
+[Tasks]
+Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked
+
+[Files]
+Source: "..\..\agent\studioE5-agent.exe"; DestDir: "{app}"; Flags: ignoreversion
+Source: "..\..\agent\tailscale-bin\windows\tailscale.exe"; DestDir: "{app}\tailscale-bin\windows"; Flags: ignoreversion
+Source: "..\..\agent\tailscale-bin\windows\tailscaled.exe"; DestDir: "{app}\tailscale-bin\windows"; Flags: ignoreversion
+Source: "..\..\agent\tailscale-bin\windows\wintun.dll"; DestDir: "{app}\tailscale-bin\windows"; Flags: ignoreversion
+Source: "..\..\README.md"; DestDir: "{app}"; Flags: ignoreversion
+
+[Icons]
+Name: "{autoprograms}\studioE5 Agent"; Filename: "{app}\{#MyAppExeName}"
+Name: "{autodesktop}\studioE5 Agent"; Filename: "{app}\{#MyAppExeName}"; Tasks: desktopicon
+
+[Run]
+Filename: "{app}\{#MyAppExeName}"; Description: "Lancer studioE5 Agent"; Flags: nowait postinstall skipifsilent
+
+[UninstallRun]
+Filename: "{cmd}"; Parameters: "/c taskkill /f /im studioE5-agent.exe"; Flags: runhidden waituntilterminated
+
+[Code]
+var
+  PrereqPage: TWizardPage;
+  lblStatus: TLabel;
+  btnCheck: TButton;
+
+function GetPhysicallyInstalledSystemMemoryKB(var TotalMemoryInKilobytes: Int64): Boolean;
+external 'GetPhysicallyInstalledSystemMemory@kernel32.dll stdcall';
+
+function GetTotalPhysicalMemoryMB(): Cardinal;
+var
+  MemKB: Int64;
+begin
+  if GetPhysicallyInstalledSystemMemoryKB(MemKB) then
+    Result := Cardinal(MemKB div 1024)
+  else
+    Result := 0;
+end;
+
+function IsWSL2Installed(): Boolean;
+var
+  ResultCode: Integer;
+begin
+  Result := Exec('wsl.exe', '--version', '', SW_HIDE, ewWaitUntilTerminated, ResultCode) and (ResultCode = 0);
+end;
+
+function IsPodmanReady(): Boolean;
+var
+  ResultCode: Integer;
+begin
+  Result := Exec('podman.exe', 'machine list', '', SW_HIDE, ewWaitUntilTerminated, ResultCode) and (ResultCode = 0);
+end;
+
+function GetFreeDiskSpaceMB(const Path: string): Cardinal;
+var
+  FreeBytes, TotalBytes: Int64;
+begin
+  if GetDiskFreeSpaceEx(Path, FreeBytes, TotalBytes, nil) then
+    Result := Cardinal(FreeBytes div (1024 * 1024))
+  else
+    Result := 0;
+end;
+
+procedure UpdatePrereqStatus();
+var
+  Msg: string;
+  RamMB, FreeMB: Cardinal;
+  WSLReady, PodmanReady: Boolean;
+begin
+  RamMB := GetTotalPhysicalMemoryMB();
+  FreeMB := GetFreeDiskSpaceMB('C:\');
+  WSLReady := IsWSL2Installed();
+  PodmanReady := IsPodmanReady();
+
+  Msg := 'Vérification des prérequis :' + #13#10#13#10;
+
+  if RamMB >= 8192 then
+    Msg := Msg + '✅ Mémoire vive (RAM) : ' + IntToStr(RamMB div 1024) + ' Go' + #13#10
+  else
+    Msg := Msg + '⚠️ Mémoire vive (RAM) : ' + IntToStr(RamMB div 1024) + ' Go (8 Go recommandés)' + #13#10;
+
+  if FreeMB >= 10240 then
+    Msg := Msg + '✅ Espace disque disponible : ' + IntToStr(FreeMB div 1024) + ' Go' + #13#10
+  else
+    Msg := Msg + '⚠️ Espace disque disponible : ' + IntToStr(FreeMB div 1024) + ' Go (10 Go recommandés)' + #13#10;
+
+  if WSLReady then
+    Msg := Msg + '✅ Environnement de virtualisation (WSL2) installé' + #13#10
+  else
+    Msg := Msg + '❌ Environnement de virtualisation (WSL2) non installé' + #13#10;
+
+  if PodmanReady then
+    Msg := Msg + '✅ Service de conteneurs (Podman) prêt' + #13#10
+  else
+    Msg := Msg + '❌ Service de conteneurs (Podman) non prêt' + #13#10;
+
+  Msg := Msg + #13#10;
+
+  if WSLReady and PodmanReady and (RamMB >= 4096) and (FreeMB >= 5120) then
+    Msg := Msg + 'Tous les prérequis sont satisfaits. Vous pouvez installer studioE5 Agent.'
+  else
+  begin
+    Msg := Msg + 'Ordre d''installation recommandé :' + #13#10;
+    if not WSLReady then
+      Msg := Msg + '1. Installer WSL2 : ouvrir PowerShell en administrateur et exécuter : wsl --install --no-distribution' + #13#10;
+    if not PodmanReady then
+      Msg := Msg + '2. Installer Podman : télécharger et exécuter le MSI depuis https://github.com/containers/podman/releases' + #13#10;
+    if not PodmanReady then
+      Msg := Msg + '3. Initialiser Podman : podman machine init && podman machine start' + #13#10;
+    Msg := Msg + #13#10 + 'Après avoir installé les éléments manquants, relancez cet installateur.';
+  end;
+
+  lblStatus.Caption := Msg;
+end;
+
+procedure btnCheckClick(Sender: TObject);
+begin
+  UpdatePrereqStatus();
+end;
+
+procedure InitializeWizard();
+begin
+  PrereqPage := CreateCustomPage(wpWelcome, 'Vérification des prérequis', 'Assurez-vous que votre poste est prêt avant d''installer studioE5 Agent.');
+
+  lblStatus := TLabel.Create(WizardForm);
+  lblStatus.Parent := PrereqPage.Surface;
+  lblStatus.Left := 0;
+  lblStatus.Top := 0;
+  lblStatus.Width := PrereqPage.SurfaceWidth;
+  lblStatus.Height := 220;
+  lblStatus.AutoSize := False;
+  lblStatus.WordWrap := True;
+
+  btnCheck := TButton.Create(WizardForm);
+  btnCheck.Parent := PrereqPage.Surface;
+  btnCheck.Left := 0;
+  btnCheck.Top := lblStatus.Top + lblStatus.Height + 12;
+  btnCheck.Width := 160;
+  btnCheck.Height := 25;
+  btnCheck.Caption := 'Vérifier les prérequis';
+  btnCheck.OnClick := @btnCheckClick;
+
+  UpdatePrereqStatus();
+end;
+
+function NextButtonClick(CurPageID: Integer): Boolean;
+begin
+  Result := True;
+  if CurPageID = PrereqPage.ID then
+  begin
+    if not (IsWSL2Installed() and IsPodmanReady()) then
+    begin
+      MsgBox('Certains prérequis sont manquants. Veuillez les installer avant de continuer.', mbError, MB_OK);
+      Result := False;
+    end;
+  end;
+end;