Delphi Silent Installation / EULA Abfrage umgehen

[stifflersmom]

Zitat von mensch72:

...wir brauchen ein Batch Script welches ohne user interaktion auf wochenbasis Delphi ( und div. weitere Tools ) wirklich ohne Nachfragen installiert"...

Würde ich über einen regelmäßigen Reset auf einen definierten "VM-Snapshot" bzw. Snapshot eines "HD Imagetools" realisieren.
In Bildungseinrichtungen der absolute Standard, damit da im Idealfall täglich oder gar pro Unterrischtsstunde stets vorhersehbar die exalt gleichen System-Installationen aktiv sind.

Da werfe ich, mal wieder, Proxmox auf ZFS Basis ins Spiel.
Damit kann genau das spielend leicht und vor allem in der Anwendung pfeilschnell umgesetzt werden.

[MTranel]

In einem Versuch Embarcadero dazu zu bringen endlich aufzuwachen poste ich hier diesen Unfall eines Scripts, welches wir nutzen um Delphi mit Packer automatisiert zu installieren. Es handelt sich natürlich um einen Auszug (Rest dürfte selbsterklärend für Leute sein die schon mal ne Exe mit Powershell gestartet haben) der speziell mit WMI das neu gespawnte EULA Window sucht und mit Window Messages die Y-Taste verschickt.
/AcceptEULA ist ein gelöstes Problem im Setup-Bereich - verstehe einfach nicht Embarcadero das verkacken konnte.

Code:

$SetupProcess = Start-Process -FilePath $SetupPath -ArgumentList "$arguments" -PassThru -NoNewWindow
$Signature = @"
    [DllImport("kernel32.dll", SetLastError = true)]
    public static extern bool AttachConsole(uint dwProcessId);

    [DllImport("kernel32.dll")]
    public static extern IntPtr GetConsoleWindow();

    [DllImport("kernel32.dll", SetLastError = true, ExactSpelling = true)]
    public static extern bool FreeConsole();

    [DllImport("user32.dll")]
    public static extern bool PostMessage(IntPtr hWnd, uint Msg, int wParam, int lParam);
"@

Add-Type -Namespace Win32 -Name Funcs -MemberDefinition $Signature -PassThru | Out-Null

$StartTime = Get-Date
do {
    $TimeElapsed = $(Get-Date) - $StartTime
    if ($($TimeElapsed).TotalMinutes -ge 5) {
        Write-Output "Could not find EULA choice process after 5 minutes."
        throw
    }
    Start-Sleep -Seconds 1
    $SetupProcessId = Get-WmiObject Win32_Process | Where-Object {$_.ProcessName -eq "Setup.tmp"} | Select-Object -ExpandProperty ProcessId
    $CmdProcessId = Get-WmiObject Win32_Process | Where-Object {$_.ParentProcessId -eq $SetupProcessId} | Select-Object -ExpandProperty ProcessId
} until ($CmdProcessId -ne 0)

$WM_KEYDOWN = 0x0100
$VK_Y_KEY = 0x59

[Win32.Funcs]::FreeConsole() | Out-Null
[Win32.Funcs]::AttachConsole($CmdProcessId) | Out-Null
$Handle = [Win32.Funcs]::GetConsoleWindow()
[Win32.Funcs]::PostMessage($Handle, $WM_KEYDOWN, $VK_Y_KEY, 0) | Out-Null
[Win32.Funcs]::FreeConsole() | Out-Null

Man muss PowerShell/dotnet natürlich verstehen aber ich glaube das sollte nicht das größte Problem sein.

[bernhard_LA]

wir brauchen ein script - Installation muss im Rahmen der wöchentlichen Neuinstallation von Docker Containern erfolgen

[himitsu]

Das ist doch ein Script (.ps1 aka Powershell)

Da sich Windows aber standardmäßig weigert Powershell-Scripte direkt auszuführen,
kannst du die .ps1 nicht wie eine .bat oder .cmd starten, sondern mußt es direkt der powershell.exe geben, oder im Windows die Richtlinie ändern.
https://stackoverflow.com/questions/...ershell-script



Im Jira fragen betteln, ob die den fehlenden Parameter nicht mal einbauen können.

Bis 2029 sollten sie es bestimmt schaffen.

[bernhard_LA]

löst Powershell mein Problem , kann ich damit das Y an die Eula abfrage senden ?
Powershell nennt sich auf meinem System pscore6....

Delphi-Quellcode:

Windows PowerShell
Copyright (C) Microsoft Corporation. All rights reserved.

Try the new cross-platform PowerShell https://aka.ms/pscore6

PS C:\Users>

[bernhard_LA]

wir haben schon sehr viel Aufwand für die Suche nach einer Lösung spendiert,
hat jemand eine bessere Idee ?
Direkt gestartet geht der Ansatz aber nicht im Batch Script mode für Puppet und JENKINS zusammen

Delphi-Quellcode:

@if (@CodeSection == @Batch) @then
 
@echo off
 
rem Use %SendKeys% to send keys to the keyboard buffer
set SendKeys=CScript //nologo //E:JScript "%~F0"
 
start "" /B radstudio_10_4_esd_104203a.exe /VERYSILENT /SUPPRESSMSGBOXES /NORESTART /SLIPFILE=concurrent_000000.slip /FEATURES=delphi_windows
 
ping -n 10 -w 1 127.0.0.1 > NUL
%SendKeys% "Y"
 
rem Wait for 10 minutes until installation is done and kill sdksetup.exe in case it appears
rem Feel free to remove these steps in case they are not required or to change the waiting time
ping -n 600 -w 1 127.0.0.1 > NUL
taskkill /f /im sdksetup.exe >nul 2>&1
 
goto :EOF
 
 
@end
 
// JScript section
 
var WshShell = WScript.CreateObject("WScript.Shell");
WshShell.SendKeys(WScript.Arguments(0))

[himitsu]

Hat der Installer, bzw. dessen Console auch den Fokus, damit die Taste dort landet?

und sicher, dass dein "Script" wirklich richtig ausgeführt wird?

Warum zwei //
und keiner prüft die Rückgabewerte


ping -> timeout /t 10

[TiGü]

Zitat von bernhard_LA:

löst Powershell mein Problem , kann ich damit das Y an die Eula abfrage senden ?
Powershell nennt sich auf meinem System pscore6....

Delphi-Quellcode:

Windows PowerShell
Copyright (C) Microsoft Corporation. All rights reserved.

Try the new cross-platform PowerShell https://aka.ms/pscore6

PS C:\Users>

Steht alles im Beitrag #8 (https://www.delphipraxis.net/1508982-post8.html), aber man muss sich mit PowerShell auch auseinandersetzen.
Jenkins kann auch PowerShell-Skripte ausführen, ggf. braucht man noch das passende Plugin dazu.