Probleme mit ShellExecute

[Alfonso]

Hi,
mit Shellexecute rufe ich eine Datei auf (z.b: C:\test\test.pdf) und das jeweils assoziierte Programm öffnet es, in diesem Fall Acrobat Reader.
Wenn ich unter Windows 7 PNG oder JPG mit dem Windows Paint Programm verknüpft habe, was auch der Standard ist, wird nichts geöffnet und es gibt auch keine Fehlermeldung. Verknüpfe ich es mit Irfanview, läuft es perfekt.

Delphi-Quellcode:

function ExecuteFile(const FileName, Params, DefaultDir: string;
  ShowCmd: Integer): THandle;
//Programm ausführen
var
  zFileName, zParams, zDir: array[0..79] of Char;
begin
  Result := ShellExecute(Application.Handle, nil,
    StrPCopy(zFileName, FileName), StrPCopy(zParams, Params),
    StrPCopy(zDir, DefaultDir), ShowCmd);
end;

Weis jemand Rat?

Gruß
Alfonso

[Assarbad]

Warum nil und nicht 'open' als zweiter Parameter? I.e. als Verb.

Zitat:

NULL
In systems prior to Microsoft Windows 2000, the default verb is used if it is valid and available in the registry. If not, the "open" verb is used.

In Windows 2000 and later, the default verb is used if available. If not, the "open" verb is used. If neither verb is available, the system uses the first verb listed in the registry.

[Luckie]

Du gibst in deiner Funkion doch schon den Rückgabewert von Shellexecute zurück. Warum guckst du nicht einfach, was zurückgegeben wird?

PS: Shellexecute gibt kein Handle zurück.

[Assarbad]

Zitat von Luckie:

Du gibst in deiner Funkion doch schon den Rückgabewert von Shellexecute zurück. Warum guckst du nicht einfach, was zurückgegeben wird?

Das kann ich fast verstehen. ShellExecute ist dahingehend echt vermurkst. Wenn man ShellExecuteEx benutzt bekommt man wenigstens echte Win32-Fehlercodes und nicht den Quark den ShellExecute liefert.

Aber zumindest gäbe das einen Anhaltspunkt.

[Matze]

Hallo Alfonso,

ich hatte auch mal Probleme mit ShellExecute (wobei ich immer 'open' verwendete).
Eine Lösung, die bei mir immer funktionierte, habe ich damals in die Code-Library gegeben: Dateien und Anwendungen aus Delphi heraus starten

Grüße
Matze

[Assarbad]

Zitat von Matze:

Eine Lösung, die bei mir immer funktionierte, habe ich damals in die Code-Library gegeben: Dateien und Anwendungen aus Delphi heraus starten

Welche der beiden Lösungen meinste denn?

Nee, wenn sowas schon da ist, würde ich auch ShellExecuteEx (erste Lösung von Matze) benutzen. Da kann man danach GetLastError aufrufen und bekommt eine sinnvolle Rückgabe. Bei ShellExecute ist das nicht garantiert.

[Alfonso]

Hallo Matze und alle anderen,

erst mal danke schön für die verdammt schnelle Antwort. Es zeigt sich wieder, selber suchen ist viel Zeitaufwendiger als die Experten hier zu Fragen.
Matze, dein Code aus der Library war Goldrichtig. Damit funktioniert es.

Danke!

Gruß
Alfonso