Вверх ↑
Ответов: 291
Рейтинг: 25
#1: 2023-09-21 20:33:06 ЛС | профиль | цитата
Может так?
conhost.exe кинь рядом


Add(MainForm,1149343,315,35)
{
Width=867
Height=503
}
Add(Memo,15974791,581,126)
{
Left=307
Width=544
Height=464
Align=3
Color=0
Font=[MS Sans Serif,8,0,65280,1]
ScrollBars=3
}
Add(Charset,10716446,532,126)
{
Type=7
link(onCharset,15974791:doAdd,[])
}
Add(WinExec,12351678,455,77)
{
FileName="conhost.exe"
Mode=0
Point(doConsoleExec)
Point(onConsoleResult)
Point(onConsoleError)
link(onConsoleResult,5275824:doWork2,[(509,97)(509,132)])
link(onConsoleError,5275824:doWork3,[(522,104)])
}
Add(HubEx,5275824,518,126)
{
link(onEvent,10716446:doCharset,[])
}
Add(Button,14023461,315,84)
{
Left=35
Top=45
Caption="help"
Data=String(help)
link(onClick,1085242:doEvent1,[(380,90)(380,146)])
}
Add(Button,11376487,315,119)
{
Left=100
Top=45
Width=85
Caption="SYSTEMINFO"
Data=String(SYSTEMINFO)
link(onClick,1085242:doEvent2,[(370,125)(370,153)])
}
Add(Edit,15674342,315,203)
{
Left=20
Top=150
Width=231
Text=""
link(onEnter,1085242:doEvent4,[(380,216)(380,167)])
}
Add(Label,13076068,273,119)
{
Left=15
Top=10
Width=111
Height=17
Caption="Кнопки с командами"
}
Add(Button,12951280,315,154)
{
Left=190
Top=45
Width=70
Caption="TASKLIST"
Data=String(TASKLIST)
link(onClick,1085242:doEvent3,[])
}
Add(Label,9178640,273,203)
{
Left=15
Top=115
Width=95
Height=17
Caption="Команды вручную"
}
Add(Hub,1085242,413,140)
{
InCount=4
OutCount=3
link(onEvent1,15974791:doClear,[(504,146)(504,139)])
link(onEvent2,12351678:doConsoleExec,[(441,153)(441,97)])
link(onEvent3,6888090:doText,[(479,160)(479,202)])
}
Add(Edit,6888090,532,196)
{
Left=20
Top=280
Width=230
Text=""
}
Add(Label,8579702,532,238)
{
Left=20
Top=250
Width=222
Height=17
Caption="Последняя команда которая выполнялась"
}

карма: 2
0