Einzelnen Beitrag anzeigen

Alfonso

Registriert seit: 10. Jan 2006
250 Beiträge
 
Delphi 11 Alexandria
 
#1

Probleme mit ShellExecute

  Alt 3. Nov 2010, 19:12
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
Alfonso
Seit Turbo Pascal 3.0 dabei!
Ewiger Pascal Fan!
  Mit Zitat antworten Zitat