Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

существует у Flash-ки и ZIV-а какой-нибудь "ID"?

Doom-2 © (2007-05-04 10:57:00)
На предприятии сотрудникам выдают Flash-ки и ZIV-ы одного производителя.
Как можно с помощью Delphi идентифицировать конкретное устройство? Вообще это возможно? (существует у этих устройст какой-нибудь "ID"?)

Чтобы в дальнейшем автоматизировать работу! Типа:
Flash(Смирнова) --> копирует всё из C:\Docs\Смирнов\
Flash(Иванова) --> копирует всё из C:\Docs\Иванов\
Flash(no name) --> обзор каталогов...

Doom-2 (2007-05-04 14:00:00) [1]
> А что, часто форматируешь флэшки?
Нет, искал надёжный способ "закрепить" конкретное устройство за конкретным пользователем.

Наклейки содрать можно, теперь вот оказалось, что остальное можно удалить форматированием! :-(

Desdechado (2007-05-04 13:18:00) [2]
> после форматирования изменится?
Скорее всего да. А что, часто форматируешь флэшки?

> и узнать соответственно "букву"?
Буквы может и не быть, потому как винда может автоматом подсунуть уже занятую другим девайсом букву.

Doom-2 (2007-05-04 12:43:00) [3]
И, может, ещё на такой вопрос ответите:
Как отследить подключение новой Flash-ки или ZIV-а? и узнать соответственно "букву"?

Doom-2 (2007-05-04 12:29:00) [4]
Супер!
Класс!
Превосходно!

Спасибо!!!!!!!!!!!!!!!!!

Стыдно спросить, но:
'SerialNo = $'+IntToHex(VolumeSerialNo,8));
после форматирования изменится?

Novice (2007-05-04 11:39:00) [5]
var
VolumeName,
FileSystemName : array [0..MAX_PATH-1] of Char;
VolumeSerialNo : DWord;
MaxComponentLength,FileSystemFlags: Cardinal;
begin
GetVolumeInformation('J:\',VolumeName,MAX_PATH,@VolumeSerialNo,
MaxComponentLength,FileSystemFlags, FileSystemName,MAX_PATH);
Memo1.Lines.Add('VolumeName = '+VolumeName);
Memo1.Lines.Add('SerialNo = $'+IntToHex(VolumeSerialNo,8));
Memo1.Lines.Add('CompLen = '+IntToStr(MaxComponentLength));
Memo1.Lines.Add('Flags = $'+IntToHex(FileSystemFlags,4));
Memo1.Lines.Add('FSName = '+FileSystemName);

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »