Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.06.09;
Скачать: CL | DM;

Вниз

Идентификация дискетки   Найти похожие ветки 

 
Some1   (2003-03-30 08:38) [0]

В общем такая проблема: Пользователь копирует какие-нибудь
файлы на дискетку... как только происходит такое действие, мы
должны идентифицировать вставленную в дисковод дискетку. Но как
это можно сделать? По размеру доступного места - почти у всех
дискет он одинаковый, по метке тома - не катит...
Например каждый мобильный телефон можно идентифицировать по их
IMEI - 15-значному номеру. Но как быть с простой дискеткой?


 
Anatoly Podgoretsky ©   (2003-03-30 09:43) [1]

Почему не подходит серийный номер дискеты, он именно для этой цели предназначен, только не форматируй дискеты Norton Comander, он нарушает это требование, кроме серийного номера есть есть метка тома, задается как при форматировании, так и позже, командой LABEL.


 
Some1   (2003-03-30 14:30) [2]

To Anatoly Podgoretsky А как это можно считать на Дельфи???


 
Anatoly Podgoretsky ©   (2003-03-30 15:31) [3]

GetVolumeInformation


 
Some1   (2003-03-31 15:16) [4]

А как юзать-то???


 
Anatoly Podgoretsky ©   (2003-03-31 15:24) [5]

Some1 (31.03.03 15:16)
Так ты еще до сих пор справку не посмотрел, не сделал помиск по этому слову в местном и прочих FAQ?
Если посмотрел или нашел в FAQ, то что конкретно именно не понятно?
Будет конкретность и будет повод для разговора.


 
Some1   (2003-04-01 10:10) [6]

Я английский незнаю, поэтому в справке нефига не понятно! =(


 
Some1   (2003-04-03 11:45) [7]

Ну???


 
nikus ©   (2003-04-05 00:49) [8]

2 Some1
Десятки тысяч программистов пользуется сравкой, а ты не можешь. А английский надо бы учить. Пригодиться.

procedure TForm1.FormCreate(Sender: TObject);
var s, f, m : DWord;
begin
GetVolumeInformation("a:", nil, 0, @s, m, f, nil, 0);
Form1.Caption := IntToHex(s shr 16, 4) + "-" + IntToHex(s shl 16 shr 16, 4);
end;


2 Anatoly Podgoretsky
Для серьёзной программы GetVolumeInformation не подойдёт, т.к. серийный номер дискеты можно и изменить, если не ошибаюсь, функцией DeviceIoControl из модуля Windows, что наглядно демонстрирует утилита Volumeid на www.sysinternals.com



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

Текущий архив: 2003.06.09;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.013 c
1-26421
deedlit
2003-05-27 14:12
2003.06.09
Как мне развернуть ComboBox?


9-26324
Артем1
2003-01-01 17:33
2003.06.09
DelphiX


1-26572
anti256
2003-05-24 22:39
2003.06.09
Excel


6-26644
Crash33
2003-04-07 17:45
2003.06.09
TWebBrowser


14-26737
neuro
2003-05-22 17:52
2003.06.09
STL 4 delphi