![]() |
![]() ![]() |
![]() |
Билли Боб |
![]()
Сообщение
#1
|
Новичок ![]() Группа: Пользователи Сообщений: 47 Пол: Мужской Репутация: ![]() ![]() ![]() |
На TP вот так работает:
на фри сделал так:
не работает. Как надо? |
IUnknown |
![]()
Сообщение
#2
|
![]() a.k.a. volvo877 ![]() ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 1 013 Пол: Мужской Репутация: ![]() ![]() ![]() |
Цитата не работает. Не надо так категорично. Работает, но не везде: под чистым ДОС-ом (при использовании GO32v2) этот код прекрасно покажет метку диска. Во всех остальных случаях - нет. Проблема в том, что получение метки диска - операция некроссплатформенная, и для ее выполнения необходимо использовать API твоей системы. Работаешь под Windows - значит, GetVolumeInformation. А эту константу faVolumeID уже давно пора объявить deprecated, как сделали в Дельфи |
Билли Боб |
![]()
Сообщение
#3
|
Новичок ![]() Группа: Пользователи Сообщений: 47 Пол: Мужской Репутация: ![]() ![]() ![]() |
а GetVolumeInformation под ДОСом будет работать?
|
IUnknown |
![]()
Сообщение
#4
|
![]() a.k.a. volvo877 ![]() ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 1 013 Пол: Мужской Репутация: ![]() ![]() ![]() |
Цитата GetVolumeInformation под ДОСом будет работать? Нет, конечно. Если нужно и там и там (и Win32 и DOS) - то можно воспользоваться условной компиляцией (если программа будет перекомпилироваться на целевой платформе, разумеется) :{$IF Defined(WIN32)} |
Билли Боб |
![]()
Сообщение
#5
|
Новичок ![]() Группа: Пользователи Сообщений: 47 Пол: Мужской Репутация: ![]() ![]() ![]() |
Можешь написать пример использования GetVolumeInformation?
Что-то я попробовал, все равно не выводит метку. |
IUnknown |
![]()
Сообщение
#6
|
![]() a.k.a. volvo877 ![]() ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 1 013 Пол: Мужской Репутация: ![]() ![]() ![]() |
Ну, например, вот так:
function GetVolumeLabel(const DriveLetter: Char): string; Проверить не могу, по причине отсутствия Windows, тестируй, если что не так - говори... |
Билли Боб |
![]()
Сообщение
#7
|
Новичок ![]() Группа: Пользователи Сообщений: 47 Пол: Мужской Репутация: ![]() ![]() ![]() |
PChar(DriveLetter + ':\') Illegal type conversion: ShortString to ^PChar GetVolumeLabel := VolumeName; Incompatible types: got "array [0..259] of Char" expected "ShortString" |
IUnknown |
![]()
Сообщение
#8
|
![]() a.k.a. volvo877 ![]() ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 1 013 Пол: Мужской Репутация: ![]() ![]() ![]() |
{$H+}первой строкой программы, или Options -> Compiler -> Syntax -> включить Use AnsiStrings. Если этот режим отключен - то String трактуется как ShortString, что приводит к ошибкам... |
Билли Боб |
![]()
Сообщение
#9
|
Новичок ![]() Группа: Пользователи Сообщений: 47 Пол: Мужской Репутация: ![]() ![]() ![]() |
ооотлично! работает!
|
![]() ![]() |
![]() |
Текстовая версия | 14.06.2024 5:50 |