16.35.8. function ExtractFileExt
function ExtractFileExt(AName : string) : string;
Извлекает расширение файла из полного или относительного имени файла. Например, если передать функции полное имя файла "c:\virus\file.exe", то функция вернет ".exe". Обратите внимание, что расширение возвращается вместе с точкой перед ним.
В имени файла допустимо указывать макросы, подробнее см. в разделе "макросы, допустимые в именах файлов"
Пример:
begin
AddToLog(ExtractFileExt('c:\windows\virus.exe'));
AddToLog(ExtractFileExt('virus.exe'));
end.