Вверх ↑
Этот топик читают: Гость
Ответов: 9
Рейтинг: 1
#1: 2010-12-03 15:33:36 ЛС | профиль | цитата
Здраствуите,

Штоби изучит или штоби понят HiAsm предумал себе задачу. Она проста показат все USB Storage устройства каторийе били подклиучени к компютеру.

Но никак немагу решить проблему с покаом деталной инфомаций при виделений USB устроиства из списка. Как зделат?

code_21684.txt


карма: 0

0
файлы: 1code_21684.txt [2.4KB] [136]
Ответов: 3349
Рейтинг: 233
#2: 2010-12-03 15:43:04 ЛС | профиль | цитата
А точку onClick не видишь?
карма: 1

0
Ответов: 4641
Рейтинг: 334
#3: 2010-12-03 15:50:17 ЛС | профиль | цитата
tdslot,

Add(MainForm,1330921,329,161)
{
Width=627
Height=379
Caption="USB Storage History"
Position=1
link(onCreate,5738059:doEnumKeys,[])
}
Add(Registry,5738059,399,161)
{
HKey=2
Key="SYSTEMCurrentControlSetEnumUSBSTOR"
Point(doEnumKeys)
Point(onEnumKey)
link(onEnumKey,12659907:doStrCat,[(450,174)(450,167)])
}
Add(StrCat,12659907,469,161)
{
Str1="SYSTEMCurrentControlSetEnumUSBSTOR"
link(onStrCat,4201747:doValue,[])
}
Add(Memory,13340177,637,161)
{
Default=String()
link(onData,5216994:doString,[(681,167)(681,202)(569,202)(569,237)])
}
Add(Registry,9754190,581,161)
{
HKey=2
Point(doEnumKeys)
Point(onEnumKey)
link(onEnumKey,13340177:doValue,[(625,174)(625,167)])
}
Add(ListBox,15968636,742,231)
{
Left=5
Top=20
Width=255
Height=310
TabOrder=1
Sort=0
Point(String)
link(onClick,2306901:doEvent1,[])
}
Add(Registry,11406393,672,231)
{
HKey=2
Value="FriendlyName"
NotEmpty=1
Point(doEnumKeys)
Point(onEnumKey)
link(onRead,15968636:doAdd,[])
AddHint(13,-24,79,13,Value)
}
Add(Memory,4201747,525,161)
{
Default=String()
link(onData,9754190:doEnumKeys,[(569,167)(569,181)])
}
Add(FormatStr,5216994,581,231)
{
Mask="%1\%2"
link(onFString,1011494:doEvent1,[])
link(Str1,4201747:Value,[(587,212)(531,212)])
link(Str2,1945656:Var1,[(594,208)])
}
Add(Label,6519527,819,175)
{
Left=5
Top=3
Width=197
Height=17
Font=[MS Sans Serif,8,1,0,1]
Caption="USB Storage Devices"
}
Add(Edit,15248705,875,238)
{
Left=280
Top=34
Width=320
Enabled=1
Text="Device name"
ReadOnly=0
link(Str,15968636:String,[(881,226)(860,226)(860,289)(769,289)])
}
Add(Label,572951,875,175)
{
Left=280
Top=17
Width=72
Height=17
Caption="Device Name:"
}
Add(GetDataEx,1945656,630,203)
{
Angle=1
link(Data,13340177:Value,[(643,208)])
}
Add(Registry,15922808,672,315)
{
HKey=2
Value="Class"
NotEmpty=1
Point(doEnumKeys)
Point(onEnumKey)
link(onRead,16681812:doAdd,[])
AddHint(13,-24,40,13,Value)
}
Add(Hub,1011494,623,231)
{
link(onEvent1,11406393:doRead,[])
link(onEvent2,15922808:doRead,[(657,244)(657,321)])
}
Add(Edit,11066701,875,322)
{
Left=280
Top=76
Width=320
Enabled=1
Text="Device ID"
ReadOnly=0
}
Add(Label,10664620,875,273)
{
Left=280
Top=59
Width=72
Height=17
Caption="Device ID:"
}
Add(Image,15361708,875,364)
{
Left=285
Top=110
Width=48
Height=48
}
Add(StrList,16681812,826,315)
{
Point(doGetString)
Point(onGetString)
link(onGetString,11066701:doText,[])
}
Add(Hub,2306901,784,238)
{
link(onEvent1,15248705:doText,[])
link(onEvent2,16681812:doGetString,[(812,251)(812,363)])
}


карма: 1
Время верстки: %cr_time% Текущее время: %time%
1
Голосовали:tdslot
Гость
Ответов: 17029
Рейтинг: 0
#4: 2010-12-03 16:50:06 правка | ЛС | профиль | цитата


Редактировалось 1 раз(а), последний 2025-01-17 15:51:53
карма: 0

0
Гость
Ответов: 17029
Рейтинг: 0
#5: 2010-12-03 16:57:16 правка | ЛС | профиль | цитата


Редактировалось 1 раз(а), последний 2025-01-17 15:51:53
карма: 0

0
Ответов: 3349
Рейтинг: 233
#6: 2010-12-03 17:00:55 ЛС | профиль | цитата
[offtop]109.65.130.129, я ошибки написал специально, так сказать "в тему" и заметь подсветил их.[/offtop]
карма: 1

0
Ответов: 16884
Рейтинг: 1240
#7: 2010-12-03 17:07:59 ЛС | профиль | цитата
Ivann, а спросить у tdslot-а не мог : откуда он и какой его родной язык ?
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Разработчик
Ответов: 26333
Рейтинг: 2148
#8: 2010-12-03 17:47:13 ЛС | профиль | цитата
Tad писал(а):
откуда он и какой его родной язык ?

Адрес принадлежит Вильнюсу (Литва). А Ivann, как всегда, умничает, в тему и не в тему. Лучше, промолчал бы.
карма: 22

0
Ответов: 3349
Рейтинг: 233
#9: 2010-12-03 17:55:38 ЛС | профиль | цитата
[offtop]Исправился [/offtop]
карма: 1

0
Ответов: 463
Рейтинг: 9
#10: 2010-12-04 11:44:02 ЛС | профиль | цитата
Tad писал(а):
Ivann, а спросить у tdslot-а не мог : откуда он и какой его родной язык ?


не важно если присмотреться то он писал транскриптом через прогу левую прогнал вот и получилось такое безграмотное месиво, имхо
карма: 0

0
Ответов: 16884
Рейтинг: 1240
#11: 2010-12-04 12:34:53 ЛС | профиль | цитата
ajaxii, а ты через какую прогу прогнал, что сожрала все знаки раздела ?

Ravilr, а ты зачем лишних Memory наставил ?
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 4641
Рейтинг: 334
#12: 2010-12-04 16:50:05 ЛС | профиль | цитата
Tad писал(а):
а ты зачем лишних Memory наставил ?

я не ставил. я не уберал их.
карма: 1
Время верстки: %cr_time% Текущее время: %time%
0
Ответов: 16884
Рейтинг: 1240
#13: 2010-12-04 17:10:49 ЛС | профиль | цитата
Ну раз
Ravilr писал(а):
не уберал
тогда извини.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 9
Рейтинг: 1
#14: 2010-12-04 22:44:32 ЛС | профиль | цитата
Извените за руский может быть ошибки да Я из Литви.
------------ Дoбавленo в 22.44:
Я думал здесь форум про визуалноэ програмирование а не кружок руской граматики
карма: 0

0
Разработчик
Ответов: 26333
Рейтинг: 2148
#15: 2010-12-04 22:57:36 ЛС | профиль | цитата
tdslot писал(а):
Я думал здесь форум про визуалноэ програмирование

Да, да, правильно думал, но не стоит обижаться на наших молодых и горячих. Тут иногда попадался народ совсем уж неадекватный, в плане грамматики, да и не только. Мы толком и понять не могли -- а чего они хотят-то

Так что, милости просим, поможем, чем сможем, и совершенно не важно, откуда ты.
карма: 22

0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)