function ExtractFileExt

function ExtractFileExt(AName : string) : string;

Извлекает расширение файла из полного или относительного имени имени файла. Например, если передать функции полное имя файла "c:\virus\file.exe", то функция вернет ".exe". Обратите внимание, что расширение возвращается вместе с точкой перед ним.

В имени файла допустимо указывать макросы, подробнее см. в разделе "макросы, допустимые в именах файлов"

Пример:

begin

 AddToLog(ExtractFileExt('c:\windows\virus.exe'));

 AddToLog(ExtractFileExt('virus.exe'));

end.