Описание

function ExtractFileDrive ( const FullFileName : string ) : string;

Функция ExtractFileDrive извлекает из полного имени файла название диска. Т.е программа получает только имя диска.
Если имя файла не содержит префикс диска, то возвращается пустая строка.

Пример кода

var
fullFileName : string;
begin
// Установка полного имени файла с диском и путем
fullFileName := 'C:\Program Files\Borland\Delphi7\Projects\Unit1.dcu';
// Показ составляющих частей этого полного имени
ShowMessage('Диск       = '+ExtractFileDrive (fullFileName));
ShowMessage('Каталог    = '+ExtractFileDir   (fullFileName));
ShowMessage('Путь       = '+ExtractFilePath  (fullFileName));
ShowMessage('Имя        = '+ExtractFileName  (fullFileName));
ShowMessage('Расширение = '+ExtractFileExt   (fullFileName));
end;

Диск = C:
Каталог = C:\Program Files\Borland\Delphi7\Projects
Путь = C:\Program Files\Borland\Delphi7\Projects\
Имя = Unit1.dcu
Расширение = .dcu

Примечание