| 
| Описание |  | Функция 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
 
 |  |