ExtractFileExt

Функция извлекает из полного пути к файлу, подстроку расширение файла.

Синтаксис
ExtractFileExt(FileName: String): String
Входные параметры
Имя параметра	Тип параметра	Описание
FileName	String	Путь к файлу
Выходные параметры
Тип параметра		Описание
String		Строка, содержащая расширение файла

Пример вызова:

Var
s:string;                                          //переменная, в которую записывается подстрока с расширением файла

Begin
s:= ExtractFileExt('C:\Test.txt');       //записывается в переменную s подстрока с расширением файла
WriteValue('Virtual channel 99', s);   //записывается в виртуальный канал строка s
end.