Функція ExtractFileDrive – витягує з повного імені файлу назву диска

Функція ExtractFileDrive в Delphi витягує з повного імені файлу назву диска.

Функція 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;