Вверх ↑
Ответов: 671
Рейтинг: 140
#1: 2021-01-08 19:19:04 ЛС | профиль | цитата
powerbatman писал(а):
не получается прочитать параметр реестра,

Попробуй.
Add(MainForm,2953706,140,84)
{
Height=250
link(onCreate,10223849:doRead,[])
}
Add(Memo,4377762,518,98)
{
Left=90
Top=5
Width=280
Height=200
}
Add(Registry,10223849,196,98)
{
HKey=1
Key="Software\Microsoft\Windows\DWM\"
Value="ColorizationColor"
DataType=3
link(onRead,14329994:doConvert,[])
}
Add(StreamConvertor,14329994,245,98)
{
link(onResult,5518469:doEvent1,[])
}
Add(Hub,5518469,287,98)
{
link(onEvent1,801853:doWork2,[])
link(onEvent2,582424:doEnum,[(312,111)(312,132)])
}
Add(Str_Enum,582424,322,126)
{
Delimiter=""
Step=2
Direct=1
link(onEnum,8342452:doStrCat,[])
link(onEndEnum,1441726:doData,[(403,139)(403,195)])
}
Add(StrCat,8342452,420,126)
{
link(Str1,16159061:Var1,[(426,117)(412,117)(412,166)])
}
Add(DoData,1441726,420,189)
{
link(onEventData,801853:doWork3,[(494,195)])
link(Data,16159061:Var2,[])
}
Add(GetDataEx,16159061,420,161)
{
link(Data,8342452:Result,[])
}
Add(HubEx,801853,490,98)
{
link(onEvent,4377762:doAdd,[])
}


И, конечно, можно так.
Add(MainForm,2953706,217,105)
{
link(onCreate,7764312:doString,[])
}
Add(FormatStr,7764312,280,119)
{
Mask="REG QUERY HKCU\Software\Microsoft\Windows\DWM /v ColorizationColor"
link(onFString,14545432:doConsoleExec,[])
}
Add(WinExec,14545432,336,105)
{
Mode=0
Point(doConsoleExec)
Point(doConsoleInput)
Point(onConsoleResult)
link(onConsoleResult,861132:doAdd,[])
}
Add(Memo,861132,392,119)
{
Left=445
Top=125
Align=5
ScrollBars=3
}

карма: 14

1
Голосовали:powerbatman
Редактировалось 1 раз(а), последний 2021-01-08 20:00:51