Как узнать имя лок. диска и метку с кот. запускается приложение?

← →
Chery (2004-02-09 15:57) [0]

Как узнать имя локального диска (и метку тома) с которого запускается приложение?

← →
Тимохов © (2004-02-09 16:11) [1]

ExtractFileDrive + Application.ExeName

← →
Anatoly Podgoretsky © (2004-02-09 16:24) [2]

2. GetVolumeInformation

Вот как узнается имя:
a := copy(Application.ExeName,1,2)

В переменной "а" либо "d:" где d - имя диска
либо "\\" - для сетевого ресурса

первую букву диска можно получить еще вот так:

a := Application.ExeName[1]

Как узнать имя лок. диска и метку с кот. запускается приложение? Найти похожие ветки