Вниз
Скачать: 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.027 c
3-1172666535
Helen
2007-02-28 15:42
2007.05.20
Доступ к базе Access


3-1173120836
Kley
2007-03-05 21:53
2007.05.20
Удаление записи


2-1178212697
залётный
2007-05-03 21:18
2007.05.20
время в миссисекундах


15-1176981166
Nija
2007-04-19 15:12
2007.05.20
СРОЧНО НУЖНА ПОМОЩЬ


2-1178253446
Regent
2007-05-04 08:37
2007.05.20
Не могу найти ошибку




   Наверх