Ich rufe die Windows-Routinen
PowerCreateRequest und
PowerSetRequest auf.
Lasse ich meine Anwendung als "Release" laufen, funktioniert alles wie gehabt. In "Debug" hingegen wirft mir die
WinApi-Routine PowerSetRequest einen
System Error 50 - The request is not supported um die Ohren.
Wenn ich in der "Debug-Fassung" die Optimierungen einschalte, dann ist in der Debug-Fassung der Fehler auch weg.
Ich habe absolut keine Ahnung was das verursacht, wo ich ansetzen muss damit es auch in Debug vernünftig läuft. FastMM meldet keine Speicherfehler, Bereichsüberschreitungen gibt es auch keine. Mein Verdacht ist der
variante Record welcher per Zeiger übergeben wird, aber beweisen kann ich es nicht.
Kompletter Quellcode im Anhang.
Das Problem tritt sowohl bei Delphi 10.0 Seattle, als auch bei 10.4 Sydney auf. Ich konnte nur
Win32 testen, Win64 nicht.