Извлечение всех частей полного имени файла
Извлечение всех частей полного имени файла
Извлечение всех частей полного имени файла var fullFileName : string; begin // Установка полного имени файла с диском и путем fullFileName := 'C:\Program Files\Borland\Delphi7\Projects\Unit1.dcu'; //или получение полного имени файла с диском и путем fullFileName := Paramstr(0); //или fullFileName := Application.ExeName; // Показ составляющих частей этого полного имени 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
