powered by simpleCommunicator - 2.0.49     © 2025 Programmizd 02
Форумы / PHP, Perl, Python [игнор отключен] [закрыт для гостей] / Считать метку CD
7 сообщений из 7, страница 1 из 1
Считать метку CD
    #32259542
Ми
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Нужно написать скрипт на Perl, который считывает метку дисков CD или DVD. Куда копать?
...
Рейтинг: 0 / 0
Считать метку CD
    #32259597
Фотография mahoune
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Может это поможет.

mahoune
...
Рейтинг: 0 / 0
Считать метку CD
    #32259702
Ми
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Returns the name of the filesystem of the currently active drive (like 'FAT' or 'NTFS')?
Да вряд ли. Мне не файловую систему, а метку диска нужно.
...
Рейтинг: 0 / 0
Считать метку CD
    #32260015
MrGreeN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
CD- 'CDFS'
...
Рейтинг: 0 / 0
Считать метку CD
    #32260128
Ми
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Можно пример, если не трудно, please...
...
Рейтинг: 0 / 0
Считать метку CD
    #32260161
MrGreeN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Мы с пёрлом пока что не сильно знакомы (чтобы не сказать что вообще незнакомы), но судя по ссылке mahoune тама есть такое
Win32::SetCwd(NEWDIRECTORY) //устанавливаем активный диск/директорию
Win32::FsType() //а там тип фс - cdfs, и получаем нэйм его...
Ну это я так думаю , т.е. не проверял...
...
Рейтинг: 0 / 0
Считать метку CD
    #32261389
Ми
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Если кому интересно, вот так примерно:

use Win32API::File;

Win32API::File::GetVolumeInformation( "E:\\", my $osVolName, 32, NULL, NULL, NULL, my $osFsType, 32);
print "$osVolName\n";
...
Рейтинг: 0 / 0
7 сообщений из 7, страница 1 из 1
Форумы / PHP, Perl, Python [игнор отключен] [закрыт для гостей] / Считать метку CD
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]