Delphi-PRAXiS - Einzelnen Beitrag anzeigen

**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:

markieren

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.