Programm in die Liste "Öffnen mit" von Windows hinzufügen

[thomas2009]

Als test habe ich einfach mit ShowMessage gearbeitet
Die If-Anweisung arbeitet nicht

Delphi-Quellcode:

if (not(ParamCount=0)) and (ExtractFileExt(ParamStr(1))='.jpeg') then begin
showMessage(ExtractFileExt(ParamStr(1)));
end;