Datei mit Standard-App öffnen und auf Beendigung warten

[RaSoWa1]

Hallo,

ich möchte unter Windows 10 aus einem Delphi 2010-Programm heraus Dateien mit der zugewiesenen Standard-App öffnen und warten bis diese Standard-App (z.B. die Foto-App) wieder geschlossen wird.
Eine Datei mit einer bekannten Anwendung öffnen und warten mache ich mit "CreateProcess" und "WaitForInputIdle". Das funktioniert.

Um die Datei mit der zugewiesenen Standard-App zu öffnen verwenden ich "ShellExecute". Das öffnen klappt, nur wie kann ich auf die Beendigung warten?
Gibt es andere Methoden oder Verfahrensweisen?

Die Suche hat leider nichts für mich brauchbares ergeben, zumal ich mit Englisch so meine Probleme habe.

Gruß Klaus

[FBrust]

Hallo,

vielleicht hilft Dir "ShellExecuteAndWait" weiter, z. b. http://www.delphipraxis.net/32234-sh...-abfragen.html

Gruß
Frank

[Union]

Du solltest die externe Anwendung mit CreateProcess starten und das resultierende Processhandle in einer Schleife mit WaitForSingleObject abfragen. Und Englisch lernen ;)

[Bambini]

Zitat:

Um die Datei mit der zugewiesenen Standard-App zu öffnen verwenden ich "ShellExecute". Das öffnen klappt, nur wie kann ich auf die Beendigung warten?
Gibt es andere Methoden oder Verfahrensweisen?

Die Raize Komponenten haben dafür eine Komponente TRzLauncher.

Aber ob das für alle Dateien klappt, wage ich zu bezweifeln, da mache Anwendungen die "Datei" an andere Instanzen weitergeben und sich dann beenden.

[RWarnecke]

Eine andere Alternative.

[himitsu]

Erstmal schauen was die Standard-Anwendung ist. (HKEY_CLASSES_ROOT)
z.B. in der Registry die Dateiendung suchen und prüfen ob es etwas zum OPEN gibt

Wenn du "Glück" hast, dann ist da eine EXE verlinkt und wie man diese ausruft (meistens "xxxxx.exe %1")

Das kannst du dann mit ShellExecute ausführen.

Ist ein DDE-Server verlinkt, dann startest du Diesen (FindExecutable)
und zu dem sollte dann auch geschrieben stehen mit welcher Aktion darin dann das Document übergeben wird.




PROBLEMe wird es immer geben, wenn die gewünschte Anwendung nicht direkt gestartet wird, sondern "nur" ein Launcher, denn diese starten dann die eigentlich Anwendung, übergeben die Daten und beenden sich vorzeitig.
z.B. siehe MS Office, OpenOffice oder Delphi (das nutzt aktuell einen DDE-Server in der bdsLauncher.exe der die bds.exe startet)

[RaSoWa1]

Zitat:

Zitat von FBrust (Beitrag 1344157)

Hallo,

vielleicht hilft Dir "ShellExecuteAndWait" weiter, z. b. http://www.delphipraxis.net/32234-sh...-abfragen.html

Gruß
Frank

"ShellExecuteAndWait" kenne und nutze ich schon. Dies funktioniert leider nur mit "normalen" Anwendungen (z.B. eine .txt öffnet mit NotePad.exe und wartet auf Beendigung. Aber eine jpg-Datei wird mit der Foto-App zwar geöffnet aber das warten funktioniert nicht. Es wird leider kein .hProcess zurück gegeben.

[RaSoWa1]

Zitat:

Zitat von Bambini (Beitrag 1344159)

Die Raize Komponenten haben dafür eine Komponente TRzLauncher.

Aber ob das für alle Dateien klappt, wage ich zu bezweifeln, da mache Anwendungen die "Datei" an andere Instanzen weitergeben und sich dann beenden.

Ich bin nur ein Hobby-Programmierer und verdiene damit kein Geld, deshalb scheiden kostenpflichtige Komponeneten aus.

Danke trotzdem für den Rat.
Gruß Klaus

[Bambini]

Zitat:

Zitat von RaSoWa1 (Beitrag 1344166)

Ich bin nur ein Hobby-Programmierer und verdiene damit kein Geld, deshalb scheiden kostenpflichtige Komponeneten aus

Die Raize Komponenten gibt es zur zeit kostenlos zu Delphi 10.1 Berlin.
Laut Roadmap kommen die Zukünftig als Standard ins Delphi.
Ich habe noch nicht geschaut wie diese Komponente es macht, aber ich denke das läuft genauso über die hier beschriebenen API's

[RaSoWa1]

Zitat:

Zitat von RWarnecke (Beitrag 1344160)

Eine andere Alternative.

Nee, geht leider auch nicht. Wenn ich nur den Dateinamen übergebe liefert "CreateProcess" false und es passiert leider auch nichts. Die Anwendung wird nicht einmal gestartet.

Dank.
Gruß Klaus