GetDir без указания «номера» диска

On linux and unix systems, drivenr is ignored, as there is only one directory tree.

http://lazarus-ccr.sourceforge.net/docs/rtl/system/getdir.html Паскаль в последний раз видел больше десяти лет назад, но всё равно нагуглил с первой попытки. Может, и ты бы справился, а?

но всё равно нагуглил с первой попытки

А что ты нагуглил? Я же попросил без drivenr, аналог функции. Зачем мне указывать диск, если путь устанавливается по имени файла однозначно. Делать велосипед обрезанием по '\' пока не хочу.

Напиши крутую обёртку с одним аргументом, которая будет перевызывать GetDir. В чём проблема-то?

man nftw

, которая будет перевызывать GetDir.

То есть, ты предлагаешь самому вычислять какой там в пути к файлу диск (C:, D: и т.п.), и подставлять его номер?

man nftw

Спасибо, не знал о такой функции. Давно её искал.

ExtractFilePath(FullFileName), если я правильно понимаю, о чем речь

Dirname

«номер» диска

Что это такое вообще?

block deveice MAJOR MINOR numbers

ох уж эти нубы

Что это такое вообще?

Это наследие BIOS, там была нумерация жётских дисков и флопповодов при вызове файловых функций BIOS, INT 13H:

0x80 HDD Primary/Master   C:
0x81 HDD Primary/Slave    D:
0x82 HDD Secondary/Master E:
0x83 HDD Secondary/Slave  F:

ExtractFilePath(FullFileName)

спасибо.

Вероятно, вам нужна ExpandFileName(),http://www.freepascal.org/docs-html/rtl/sysutils/expandfilename.html

Нет. OpenDialog.FileName, как я понимаю, возвращает абсолютный путь.

System.GetDir берёт первым аргументом номер диска: 0 - Current, 1 - C, 2 - D. Вторым аргументом Filename.
Есть ли аналогичная функция без такой привязки к Microsoft DOS (номеру диска)?

А ты от нолика в процедуре обанкротишься? Всё же работает в линуксе с фиктивным параметром.

var
s: ansistring;

begin
GetDir(0,s);
writeln(s);
end.

4.2