и
АВТОМАТИКА
[}
вставка 3
Текущие устройства USB
procedure TDUSB.CourrtDiskEnum; // вызов по таймеру ftimer-
const GUID_DEVCLASS_DISKDRIVE: TGUID = (D1: S4D36E967; D2: $E325; D3: $11CE; 04: ($BF, $C1, $08, $00, $2B, $E1, $03, $18));
var hDevInfoSet: HDEVINFO;
Devlnfo: SP_DEVINFO__DATA;
i: Integer;
s: string;
pp: boolean;
begin
Devlnfo.cbSize:= sizeof(SP_DEVINFO_DATA);
hDevInfoSet := SetupDiGetClassDevsA(@GUID_DEVCLASS_DISKDRIVE, nil, 0,2);
i:= 0;
list.Clear; // обнуляем stringlist
II
if hDevInfoSet <> INVAUD_HANDLE__VALUE then begin
while (SetupDiEnumDevicelnfo(hDevlnfoSet, i, ©Devlnfo)) do begin
s:= GetDevNamefDevIrrfo.DevInst);
//фильтрация строки вида-
//USBSTOR\DISK&VEN_KINGSTON&PROD_DATATRAVELER_2.0&REV_PMAP\5B661 B004102&0
//USBSTOR\DISK&VEN_SAMSUNG&PROD_MIGHTY_DRIVE&REV_PMAP\07521094081F&O
if pos(“USB",s)=1 then // наполняем список подключенных-
list.Add(sel_ser(s));
lnc(i)
end;
SetupDiDestroyDevicelnfoList(hDevlnfoSet)
end;
введем алгоритм простейшей заиртгы на основе функции Blocktnput из библиотеки - user32.dll
procedure Blocklnput; external “user32.dlT;
//проверка на блокировку ПК-
рр:= false;
if (FActive)and(fblocko”) then begin
for i:= 0 to list.Count-1 do
if list[i]= fblock then begin pp:= true; break end;
if pp then UnBlock else block
end;
//
FSerChange(Self,list) // возврат события компонента-
П роста я модернизация
Е. Л. Яковлев
_
г. Ужгород, Украина
I
квартирного звонка —
3
Как уже отмечалось ранее [1, 2],
даже из минимального количества
простых радиокомпонентов можно
создать большое количество раз-
нообразных схем квартирных звон-
ков с индикацией их работы. Ши-
рокое распространение в настоя-
щее время двухцветных светодио-
дов и их маленькая стоимость на
радиорынке позволяют использо-
вать такие LED как индикатор ре-
жима работы квартирных звонков
не только для посетителей кварти-
ры, но и для самих хозяев. При этом
удается модернизировать большин-
ство ранее рассмотренных схем.
На рис. 11 приведена модерни-
зация схемы рис. 6 [1]. Отличие со-
стоит в том, что добавлен двух-
цветный светодиод H L2и резистор
1=15. Практически светодиодные
сборки ^ 1 и HL2 включены парал-
лельно. При свечении каждого из
светодиодов сборки ^ 1 одновре-
менно будет светиться таким же цве-
том и светодиод сборки HL2. Эта
сборка размещается внутри кварти-
ры и цвет свечения светодиодов
Радиолюбитель - 0 6 /2 0 0 8 U
21
предыдущая страница 21 Радиолюбитель 2008-06 читать онлайн следующая страница 23 Радиолюбитель 2008-06 читать онлайн Домой Выключить/включить текст