Функция ExtractFileDrive ( const FileName: string ): string;
Модуль: SysUtils
Описание Функция возвращает имя диска, извлеченное из полного имени файла FileName. Если указанное имя файла не содержит имя диска, то функция возвращает пустую строку. Для имени в UNC формате возвращается строка в формате '\\<имя сервера>\<имя ресурса>'.
Пример var
S: string; begin
...
S:= ExtractFileDrive( 'C:\DIR1\myfile.zzz'); //S:= 'C:'
... end;