[gelöst] UpdateProcThreadAttribute mit PROC_THREAD_ATTRIBUTE_PSEUDOCONSOLE

[himitsu]

'ne winzige Falle gab es noch
https://www.delphipraxis.net/214050-ttimer-dll.html

Soo, die PseudoConsole schickt heimlich mit, in welchem Arbeitsverzeichnis es läuft und welcher Prozess grade ausgeführt wird (also auch ob der vorherige beendet wurde).
←[4;1H = Arbeitsverzeichnis
←]0; = aktueller Prozess

(heimlich, weil im neuen Windows-Terminal sieht man das ja nicht)

cmd.exe unsichtbar in der Console starten (es ginge auch direkt eine ConsolenAnwendung, aber ich möchte eine fortlaufende Session haben)
und dann

Delphi-Quellcode:

set abc=123
echo Test%abc%
echo.
dir "C:\ProgramData"

ergibt

Code:

←[?25l←[2J←[m←[HMicrosoft Windows [Version 10.0.22621.2428]
(c) Microsoft Corporation. Alle Rechte vorbehalten.←[4;1HC:\Develop\ActiveScripting\Win32\Debug>←]0;C:\Windows\System32\cmd.exe←[?25h←[?25lset abc=123←[6;1HC:\Develop\ActiveScripting\Win32\Debug>echo Test%abc%
Test123←[9;1HC:\Develop\ActiveScripting\Win32\Debug>echo.←[12;1HC:\Develop\ActiveScripting\Win32\Debug>dir "C:\ProgramData"
 Volume in Laufwerk C: hat keine Bezeichnung.
 Volumeseriennummer: *****-*****&#8592;[16;1H Verzeichnis von C:\ProgramData&#8592;[18;1H10.11.2023  06:13    <DIR>          ActiveBackupforBusinessAgent
22.04.2023  19:57    <DIR>          AirDroid
22.10.2023  04:33    <DIR>          AnyDesk
08.11.2023  17:40    <DIR>          Docker
...
04.01.2023  10:23    <DIR>          Windows App Certification Kit
07.05.2022  11:39    <DIR>          WindowsHolographicDevices
27.01.2023  00:43    <DIR>          WindowsPerformanceRecorder
               0 Datei(en),              0 Bytes
              26 Verzeichnis(se), 312.794.443.776 Bytes frei
&#8592;]0;C:\Windows\System32\cmd.exe
C:\Develop\ActiveScripting\Win32\Debug>

8592 ist das ESC-Zeichen (kleiner Pfeil lisks) ... das Code-Tag mag es nicht
←