Dateiendung unbekannt --> herrausfinden

[Andreas L.]

Delphi-Quellcode:

if fileexists('C:\image1.jpg') then
begin
MachwasmitJpeg;
end
else
begin
machwasmitbmp;
end;