Вверх ↑
Ответов: 131
Рейтинг: 15
#1: 2011-05-11 19:25:20 ЛС | профиль | цитата
DiskInfo в помощь
и пример ...HiAsmElementsdelphiExampleSystemWMIDiskInfo.sha
ещё вариант

Add(FSMonitor,15020146,147,203)
{
link(onDeviceArrival,1409637:doValue,[])
link(onDeviceRemoveComplete,15484025:doData,[(199,216)(199,251)])
}
Add(Label,11373618,532,245)
{
Left=45
Top=10
Width=80
Caption="Не вставлена"
}
Add(HardDisk,13466706,266,203)
{
Point(onEnum)
Point(doEnum)
link(onEnum,6496389:doCompare,[])
}
Add(MT_MultiData,13860828,371,203)
{
From=3
Count=1
link(onData1,15440408:doEvent,[])
}
Add(Memory,1409637,217,203)
{
link(onData,13466706:doEnum,[(257,209)(257,216)])
}
Add(If_else,6496389,315,203)
{
link(onTrue,13860828:doSeparateMT,[])
link(Op2,1409637:Value,[(328,192)(305,192)(305,243)(223,243)])
}
Add(StrList,8978471,532,182)
{
@Hint=#40:Список Serial-номеров разрешенных флешек|
Strings=#5:номер|5:номер|5:номер|5:номер|5:номер|5:номер|5:номер|5:номер|
Point(doGetIndex)
Point(onGetIndex)
link(onGetIndex,265355:doCase,[])
AddHint(-83,-68,200,26,@Hint)
}
Add(Case,265355,581,189)
{
Value=Integer(-1)
link(onNextCase,518673:doMessage,[(625,195)(625,160)])
link(onTrue,8850742:doBeep,[])
}
Add(Beep,8850742,637,196)
{
link(onBeep,8142333:doMessage,[])
}
Add(Message,8142333,686,196)
{
Message="На Вашу флешку скопирована программа
дистанционного подрыва в определенное время!"
Caption="Предупреждение"
Icon=1
}
Add(Message,518673,637,154)
{
Message="Можете пользоваться!"
Caption="Разрешено"
Icon=3
}
Add(IndexToChanel,15440408,427,203)
{
Point(Index)
link(onEvent1,8978471:doGetIndex,[(495,209)(495,230)])
link(onEvent2,3405919:doWork1,[(478,216)])
link(Index,10417570:Checked,[])
}
Add(CheckBox,10417570,427,154)
{
Left=50
Top=30
Width=75
Caption="Просмотр"
}
Add(DoData,15484025,427,245)
{
Data=String()
link(onEventData,3405919:doWork2,[])
}
Add(HubEx,3405919,474,245)
{
link(onEvent,11373618:doText,[])
}

карма: 0

0