Vielen Dank!
ich habe die Prozedur in eine Funktion geändert. Der Rückgabewert ist die Dateiendung:
Delphi-Quellcode:
function FindExtension (mask:String):String;
var search : TSearchRec;
verz,
extension: String;
begin
verz:=ExtractFilePath(Application.ExeName)+'\Extracted\';
if (FindFirst(verz+mask+'.*', faAnyFile, search) = 0) then begin
repeat
extension:= AnsiLowerCase(ExtractFileExt(verz + search.Name));
result:=extension;
until (FindNext(search) <> 0);
end;
FindClose(search);
end;
Das funktioniert super!
Danke!
Gruß, dopeline