Проверка наличия нужной Флешки ???

[Noor]

Подскажите пожалуйста, как мне организовать проверку оп таймеру.Мне нужно через определенный промежуток времени проверить втсавленную флешу. Если серийный номер флешки совпадает с нужным мне то ничего не предпринимать, а если номер не совпадает то вывести сообщение и скрыть диск !!! дожидаясь флешки с нужным серийным номером.

[Руслан aka MiNiK]

я в этом не очень но может GetDriveType...ну и все вытекающие из нее...

[_Dmitry]

Получить серийник диска C:\

var
  VolumeName, FileSystemName : array [0..MAX_PATH-1] of Char;
  VolumeSerialNo : DWord;
  MaxComponentLength, FileSystemFlags: Cardinal;

GetVolumeInformation('C:\', VolumeName, MAX_PATH, @VolumeSerialNo, MaxComponentLength, FileSystemFlags, FileSystemName, MAX_PATH);

серийник будет в переменной VolumeSerialNo
на флешках не проверял

[Alex21]

Только не серийник, а метка тома.
Для этой задачи тоже подходит.

[Noor]

спасибо за подсказку, а как мне запредить доступ к порту пока не вставят нужную флешку ?????

[_Dmitry]

К какому порту-то?

[Noor]

я имелл ввиду .. когда подключаю картридер то появляются дополнительные диски .. вот как отрубить доступ к одному из таких дисков, если я заню какая буква у него буднт !!!

[Noor]

нашел как отрубить видимость дисков через реестр. Только вот теперь не могу создать раздел в нужном месте и не могу создать новый параметр DWord
Нужно в ветке
HKEY_CURRENT_USER\Software\Microsof t\Windows\CurrentVersion\policies\ создать раздел Explorer и в нем создать параметр типа DWord с именем NoDrives и значением 00000000
----------------------

procedure TForm1.FormActivate(Sender: TObject);
begin
a := TRegistry.Create;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
a.RootKey := HKEY_CURRENT_USER;
a.CreateKey('\Software\Microsoft\Windows\CurrentVersion\policies\Explorer');
a.OpenKey('\Software\Microsoft\Windows\CurrentVersion\policies\Explorer', false);
a.WriteString('NoDrives', '00000000');
a.CloseKey;
a.Free;
end;
end.