Вверх ↑
Этот топик читают: Гость
Гость
Ответов: 17029
Рейтинг: 0
#1: 2009-04-23 07:20:48 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2025-01-10 21:11:18
карма: 0

0
Ответов: 294
Рейтинг: 64
#2: 2009-04-23 10:46:29 ЛС | профиль | цитата
Примерно так:


Add(MainForm,2953706,294,175)
{
Width=693
Height=656
Position=1
}
Add(WinExec,6996497,343,217)
{
Point(doConsoleExec)
Point(onConsoleResult)
link(onConsoleResult,10959814:doCharset,[])
}
Add(Button,7874940,294,231)
{
Left=5
Top=5
Data=String(driverquery /v)
link(onClick,6996497:doConsoleExec,[])
}
Add(RichEdit,9130917,441,224)
{
Left=60
Top=5
Width=595
Height=590
ScrollBars=3
}
Add(Charset,10959814,392,224)
{
link(onCharset,9130917:doAdd,[])
}


карма: 0

0
Гость
Ответов: 17029
Рейтинг: 0
#3: 2009-04-23 10:49:19 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2025-01-10 21:11:19
карма: 0

0
Ответов: 294
Рейтинг: 64
#4: 2009-04-23 12:26:30 ЛС | профиль | цитата
С реестра вытянуть можно (не уверен, что оптимальный способ...).
REG QUERY HKLMSYSTEMCurrentControlSetControlClass /s


Add(MainForm,2953706,91,140)
{
Width=646
Height=606
Position=1
}
Add(WinExec,757678,140,175)
{
Point(doConsoleExec)
Point(onConsoleResult)
link(onConsoleResult,15691584:doAdd,[])
}
Add(RichEdit,15691584,189,182)
{
Left=5
Top=30
Width=625
Height=535
ScrollBars=3
}
Add(Button,51453,91,189)
{
Left=5
Top=5
Data=String(REG QUERY HKLMSYSTEMCurrentControlSetControlClass /s)
link(onClick,757678:doConsoleExec,[])
}


карма: 0

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