FindExecutable

[Willie1]

Hallo,
beim Umstieg auf Delphi 10.x finde ich immer noch Fehler. Ich benutze FindExecutable, um aus meinem Programm heraus das Standartprogramm für JPG usw. auf zurufen. Bei Tif klappt das es gibt PhotoViewer.dll zurück bei Jpg Errorcode 31 nichts zugeordnet.
Sieht so aus:

Delphi-Quellcode:

    Prog:=StrAlloc(255);
    Er:=FindExecutable(PWideChar(ExtractFileName(fs)),PWideChar(ExtractFilePath(fs)), PWideChar(Prog));
    case Er of
      31: Result:='';
       0,
       ERROR_FILE_NOT_FOUND,
       ERROR_PATH_NOT_FOUND: Result:='Fehler';
      else
      Result:=Prog
    end;

Wenn es bei Tif geht, kann mein Funktionsaufruf nicht falsch sein. Willie.