Вниз
Скачать: CL | DM;

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

← →
Doom-2   (2007-05-04 10:57) [0]

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

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


← →
Novice   (2007-05-04 11:39) [1]

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);


← →
Doom-2   (2007-05-04 12:29) [2]

Супер!
Класс!
Превосходно!

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

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


← →
Doom-2   (2007-05-04 12:43) [3]

И, может, ещё на такой вопрос ответите:
Как отследить подключение новой Flash-ки или ZIV-а? и  узнать соответственно "букву"?


← →
Desdechado ©   (2007-05-04 13:18) [4]

> после форматирования изменится?
Скорее всего да. А что, часто форматируешь флэшки?

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


← →
Doom-2   (2007-05-04 14:00) [5]

> А что, часто форматируешь флэшки?
Нет, искал надёжный способ "закрепить" конкретное устройство за конкретным пользователем.

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



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.028 c
15-1176833701
Углук
2007-04-17 22:15
2007.05.20
Спектральный анализ


2-1177655329
Ega23
2007-04-27 10:28
2007.05.20
TInterfacedList.Delete - произойдёт ли вызов _Release


1-1174898170
Zvitchenzug
2007-03-26 12:36
2007.05.20
Как "вытянуть" HTML-страницы из всех открытых окон IE


2-1178337129
Gromozeka
2007-05-05 07:52
2007.05.20
Проверка строки на соответствие формату даты


2-1178118412
Антон Шестаков
2007-05-02 19:06
2007.05.20
Представление из базы




   Наверх