Externes Programm starten

[jaenicke]

Zitat von Willie1:

[B]Jaenicke und DeddyH, wollt ihr sagen, dass sich hier zwischen Vista und Windows 10 hier etwas geändert hat?

Nicht direkt, aber bei 32-Bit kommst du damit durch, dass du einen reinen in Parameter an einen in/out Parameter übergibst, bei einem 64-Bit Programm nicht.
Das Problem gab es auch schon bei Vista mit einem 64-Bit Programm. Und vermutlich auch bei XP, aber das haben nicht so viele als 64-Bit benutzt.

[Willie1]

Hallo DeddyH, hab' ich gemacht. Es funktioniert nicht.
Anbei ExecAndWait, herausextrahiert aus dem Projekt.

Willie.

[jaenicke]

Wenn ich PChar(CommandLine + '') benutze, gibt es keinen Fehler mehr. Den hattest du bei dir gar nicht, das ist mir gerade aufgefallen, weil du Delphi 2005 hast. Der tritt nur bei Unicode auf.

Jedenfalls ist das Problem schlicht, dass mspaint gar nicht sichtbar gestartet wird. Deshalb wartet dein Programm nach dem CreateProcess logischerweise unendlich, denn genau das soll der Befehl ja auch machen. Du kannst den neuen Prozess ja auch nicht sehen und beendest ihn daher nicht. Wenn du das gleich am Anfang gesagt hättest, wäre es einfacher gewesen.

Jedenfalls ist die Ursache sehr einfach. Du gibst ja den expliziten Befehl, dass Paint versteckt gestartet werden soll:

Delphi-Quellcode:

  StartupInfo.wShowWindow:=SW_HIDE;
//SW_HIDE, also versteckt starten

Probiere es mal mit SW_SHOWNORMAL.

[Willie1]

Hallo Jaenicke,
Das ist die Lösung SW_SHOWNORMAL !!! Jetzt öffnet sich MSPaint. Klasse.
Ist klar ExifTools ist ein Konsolenprogramm, deshalb hat es im Hintergrund seine Arbeit getan.

Es bleibt nur die Frage, warum bei Vista immer MSPaint aufging auch mit SW_HIDE?

Schönen Abend und euch Allen Dank für eure Geduld
Willie.