Warum wird das Script nicht pausiert

hipfzwirgel

Hallo Profis,

es geht um folgende Frage:

Code

$iDpi = RegRead("HKEY_CURRENT_USER\Control Panel\Desktop\WindowMetrics", "AppliedDPI")
Msgbox(0, "DPI", $iDpi & " #" & @DesktopWidth & " #" & @DesktopHeight)

If $iDpi = 96 Then
    $var = MsgBox(4100, "Message", "The Display Scale must be 100%. You have to change it..")
    Switch $var
        Case "6"
        ShellExecuteWait("C:\Windows\System32\control.exe", "desk.cpl")
        $iPfad = @ScriptFullPath
        $iPid = Processexists("BatteryLifeTest.exe")
        $Datei = FileWrite("U:\StartBatt.bat", "Start" & $iPfad)
        Run("U:\StartBatt.bat")
        ProcessClose($iPid)
    EndSwitch

EndIf

Alles anzeigen

Warum wird das Script nicht pausiert bei Aufruf der ShellExecuteWait? Runwait funzt ebenso wenig. die CPL wird geöffnet und das Script startet sofort die Batch-Datei. Es sollen aber erst die Dispalyskalierung geändert werden bevor das Script weiter geht...

**Oscar**

Weil das an explorer.exe übergeben wird.

Versuch's mal so:

Code

ShellExecuteWait("C:\Windows\System32\control.exe", "desk.cpl")
WinWaitActive('Bildschirmauflösung')
WinWaitClose('Bildschirmauflösung')

hipfzwirgel

Hallo Oscar,

danke für den Tipp aber der bedingt, dass das OS in deutsch läuft. Hier läuft das OS aber überwiegend in English.
Ich konnte herausfinden das im Taskmanager eine Systemsettings.exe gestartet wird. Mit dieser geht Shellexecutewait oder Prozesswaitclose auch nicht.
Vielleicht kennt jemand den dazugehörigen Prozess

**Oscar**

Zitat von hipfzwirgel

Vielleicht kennt jemand den dazugehörigen Prozess

"explorer.exe"

Das bringt Dich also nicht weiter. Was willst Du denn erreichen?

Zum ändern der Bildschirmauflösung muss man nicht die Systemsteuerung aufrufen.

**Bitnugger**

Mit Windows 10 geht es so:

AutoIt

Run(StringFormat('"%s\control.exe" desk.cpl', @SystemDir))
Global $hWnd = WinWait('[CLASS:ApplicationFrameWindow; REGEXPTITLE:Einstellungen|Settings]', '', 3)
If IsHWnd($hWnd) Then
    WinWaitClose($hWnd)
    ConsoleWrite('> Close!' & @CRLF)
Else
    ConsoleWrite('! Error!' & @CRLF)
EndIf

hipfzwirgel

Hallo Oscar,

ich will erreichen, das das Script wartet bis der user die Displayskalierung eingestellt hat um dann sich selbst neu zu starten, damit alles richtig angezeigt wird. Hintergrund:

Es soll ein Testprogramm werden mit dem die Akkulaufzeit von Laptops getestet werden soll indem ein Video im Dauerdurchlauf bis zum Erreichen des low batterylevel
erreicht wird und das Lappi dann herunterfährt. Dabei wird der Ladezustand und die Zeit protokolliert. Bisher mit Batchdateien und Drittprogrammen realisiert was aber sehr unzuverlässig ist.
die zu testenden Lappis haben verschiedene OS(Deutsch, bevorzugt aber Englisch) und leider verschiedene Auflösungen und Skalierungen. Und das ist das Problem.
Die Gui wird bei 1920*1080 und 100% richtig dargestellt wobei die Auflösung nicht das Problem ist, sondern die Skalierung. Starte ich das Programm mit anderer Skalierung und lass den User diese ändern,
dann muss die Gui/das Programm auch neu gestartet werden, damit sich die Änderung auswirkt.

@ Bitnugger:

Vielen dank für den Vorschlag. ich teste es direkt einmal...

hipfzwirgel

Hallo Bitnugger,

habs getestet. Funzt super...

Vielen lieben dank auch.

hipfzwirgel

Hallo Oscar,

geschafft das Proggi läuft. Ich starte es mit einer kleinen Größe(1280 x 1024) lasse die Aüflösung und oder Skalierung ändern und setze es dann hoch mit WinSetState($Form1, "", @SW_MAXIMIZE)

vielen Dank für deine und eure Hilfe