Вверх ↑
Ответов: 793
Рейтинг: 168
#1: 2024-03-04 07:59:39 ЛС | профиль | цитата
Панель управления.
ПКМ – открыть пункт меню.

Add(WinExec,13614633,371,119)
{
Mode=0
Point(doConsoleExec)
Point(onConsoleResult)
link(FileName,11795667:Value,[])
link(onConsoleResult,12271718:doCharset,[])
}
Add(Charset,12271718,427,133)
{
link(onCharset,8136444:doConvert,[])
}
Add(FormatStr,3924364,308,133)
{
DataCount=1
Mask="Get-ControlPanelItem | Select Name,Description | ConvertTo-Csv -Delimiter ';' -NoTypeInformation"
link(onFString,11496177:doWork2,[])
}
Add(MainForm,16686635,259,119)
{
Width=867
Height=380
Caption="Open control panel items"
link(onCreate,3924364:doString,[])
}
Add(Memory,11795667,371,70)
{
Default=String(c:\Windows\Sysnative\WindowsPowerShell\v1.0\powershell.exe)
}
Add(MTStrTbl,7496713,112,168)
{
Width=851
Height=341
Align=5
Name="tabl"
ColumnWidth=500
ColorItems=0
Redaction=0
Grid=0
Point(onMouseDown)
link(CodePageSet,201824:GetData,[])
link(onMouseDown,4871043:doEvent,[])
}
Add(MST_Load,8506660,525,126)
{
MSTControl="tabl"
link(onLoadFromStream,8509457:doData,[])
}
Add(StreamConvertor,8136444,476,133)
{
Mode=7
link(onResult,8506660:doLoadFromStream,[])
}
Add(MST_ColAction,12432857,672,133)
{
Action=9
MaxColWidth=500
Index=-2
MSTControl="tabl"
}
Add(EventFromData,201824,112,119)
{
link(onEvent,6070792:doTrim,[])
}
Add(Trim,6070792,161,119)
{
Char="""
link(onTrim,201824:doData,[(200,125)(200,111)(102,111)(102,125)])
}
Add(IndexToChanel,4871043,168,196)
{
link(onEvent2,9174882:doPopupHere,[])
}
Add(PopupMenu,9174882,217,203)
{
Menu=#7:Открыть|
link(onClick,3658561:doSeparateMT,[])
}
Add(MT_MultiData,3658561,259,203)
{
Count=1
Point(Data)
link(onData1,849200:doString,[])
link(Data,7496713:Select,[(265,187)(160,187)(160,215)(118,215)])
}
Add(FormatStr,849200,308,203)
{
DataCount=1
Mask="Show-ControlPanelItem -Name '%1'"
link(onFString,11496177:doWork3,[(354,209)])
}
Add(MST_SortInCol,2531736,623,133)
{
MSTControl="tabl"
link(onChange,12432857:doColAction,[])
}
Add(DoData,8509457,574,133)
{
Data=Integer(0)
link(onEventData,2531736:doSort,[])
}
Add(HubEx,11496177,350,133)
{
link(onEvent,13614633:doConsoleExec,[])
}

Проверено на
- Windows 10 (x64)
- Hiasm v4.05 build 186 (delphi) rev - 2405
- MS Office 365
карма: 16

0