Работа с батниками

Форумы Помощь по пакетуРабота с батниками ← Ctrl12Ctrl →

Этот топик читают: Гость

Ответов: 133

Рейтинг: 0

#16: 2017-04-08 13:21:45 ЛС | профиль | цитата

Я справился )


Make(delphi)
ver(4.05 build 186)
Add(MainForm,2953706,21,105)
{
 Width=765
 Height=295
 Caption="EasyWIM"
 BorderStyle=1
}
Add(Label,199530,791,7)
{
 Left=10
 Top=10
 Width=59
 Height=17
 Caption="Файл WIM"
}
Add(Label,15284519,791,84)
{
 Left=10
 Top=60
 Width=120
 Height=17
 Caption="Папка для распаковки"
}
Add(Edit,9602735,266,42)
{
 Left=10
 Top=30
 Width=255
 Text=""
 link(onChange,7723552:doString,[(317,48)(317,55)])
}
Add(Edit,6448763,203,112)
{
 Left=10
 Top=80
 Width=255
 Text=""
}
Add(Button,10166825,77,42)
{
 Left=280
 Top=30
 Width=20
 Caption="..."
 link(onClick,3214129:doExecute,[])
}
Add(Button,15887377,81,109)
{
 Left=280
 Top=80
 Width=20
 Caption="..."
 link(onClick,4020917:doBrowse,[(130,115)(130,118)])
}
Add(ODialog,3214129,147,42)
{
 Filter="*.wim"
 Title="Выберите файл WIM"
 FileName="*.wim"
 link(onExecute,9602735:doText,[])
}
Add(Browse,4020917,147,112)
{
 Title="Укажите папку для распаковки файла WIM"
 NewStyle=0
 link(onBrowse,6448763:doText,[])
}
Add(Button,8158137,84,175)
{
 Left=10
 Top=220
 Width=75
 Height=40
 Caption="Распаковка"
 link(onClick,11355605:doString,[])
}
Add(WinExec,6803986,539,175)
{
 FileName="dism.exe"
 Point(onConsoleResult)
 Point(doConsoleInput)
 Point(doConsoleExec)
 link(Params,11355605:FString,[(552,163)(408,163)(408,219)(265,219)])
 link(onConsoleResult,3789731:doEvent1,[(593,188)(593,251)])
}
Add(FormatStr,11355605,259,175)
{
 DataCount=3
 Mask=" /mount-wim /index:%3 /wimfile:%1 /mountdir:%2"
 Point(FString)
 link(onFString,6803986:doConsoleExec,[(415,181)(415,202)])
 link(Str1,1913286:Var2,[])
 link(Str2,15239786:Var2,[(272,169)(209,169)])
 link(Str3,15585744:Result,[(279,159)(706,159)])
}
Add(FormatStr,5534339,315,231)
{
 DataCount=1
 Mask="/unmount-wim /mountdir:%1 /discard"
 Point(FString)
 link(onFString,3759111:doConsoleExec,[(443,237)(443,258)])
 link(Str1,11593969:Var2,[(321,229)(230,229)])
}
Add(FormatStr,15589987,329,301)
{
 Mask="/image:%1 /add-driver /driver:%2 /recurse /forceunsigned"
 Point(FString)
 link(onFString,8716994:doConsoleExec,[(450,307)(450,321)])
 link(Str1,11593969:Var3,[(335,223)])
 link(Str2,14730865:Text,[(342,289)(309,289)(309,405)(276,405)])
}
Add(Button,16473098,81,298)
{
 Left=210
 Top=220
 Width=75
 Height=40
 Caption="Добавление драйверов"
 link(onClick,15589987:doString,[(245,304)(245,307)])
}
Add(Button,4467391,81,235)
{
 Left=110
 Top=220
 Width=75
 Height=40
 Caption="Запаковка"
 link(onClick,5534339:doString,[(239,241)(239,237)])
}
Add(GetDataEx,15239786,203,154)
{
 link(Data,6448763:Text,[])
}
Add(GetDataEx,1913286,259,105)
{
 link(Data,3793120:Var2,[])
}
Add(Edit,14730865,270,361)
{
 Left=10
 Top=130
 Width=255
 Text=""
}
Add(Button,9774882,82,362)
{
 Left=280
 Top=130
 Width=20
 Caption="..."
 link(onClick,15145513:doBrowse,[(131,368)(131,370)])
}
Add(Label,15331021,788,116)
{
 Left=10
 Top=110
 Width=110
 Height=17
 Caption="Папка с драйверами"
}
Add(Browse,15145513,154,364)
{
 Title="Укажите папку с драйверами"
 link(onBrowse,14730865:doText,[(228,370)(228,367)])
}
Add(WinExec,8716994,539,301)
{
 FileName="dism.exe"
 RunEvent=1
 Point(doConsoleExec)
 Point(onConsoleResult)
 link(Params,15589987:FString,[(552,289)(444,289)(444,345)(335,345)])
 link(onConsoleResult,3789731:doEvent3,[(593,314)(593,265)])
}
Add(WinExec,3759111,539,238)
{
 FileName="dism.exe"
 Point(doConsoleExec)
 Point(onConsoleResult)
 link(Params,5534339:FString,[(552,226)(436,226)(436,275)(321,275)])
 link(onConsoleResult,3789731:doEvent2,[(593,251)(593,258)])
}
Add(Memo,15792275,742,245)
{
 Left=310
 Top=40
 Width=440
 Height=220
 Font=[Lucida Console,8,0,0,204]
 ScrollBars=3
 ReadOnly=0
 Point(Position)
 Point(onShow)
}
Add(Hub,3789731,616,245)
{
 InCount=4
 OutCount=1
 link(onEvent1,8723266:doCharset,[])
}
Add(GetDataEx,11593969,224,218)
{
 Angle=3
 link(Data,15239786:Var1,[(200,223)(200,159)])
}
Add(GetDataEx,3793120,259,84)
{
 link(Data,9602735:Text,[(265,79)(272,79)])
}
Add(Label,9603378,788,46)
{
 Left=10
 Top=160
 Width=100
 Height=17
 Caption="Редакция Windows"
}
Add(Charset,8723266,672,245)
{
 link(onCharset,15792275:doAdd,[])
}
Add(ComboBox,14930163,637,105)
{
 Left=10
 Top=180
 Width=255
 Height=21
 Text=""
 DataType=1
 link(onClick,15585744:doTrim,[])
}
Add(FormatStr,7723552,336,49)
{
 DataCount=1
 Mask="/get-wiminfo /wimfile:%1"
 Point(FString)
 link(onFString,16362163:doConsoleExec,[(387,55)(387,90)])
 link(Str1,3793120:Var1,[(342,30)(256,30)(256,89)])
}
Add(WinExec,16362163,406,63)
{
 FileName="dism.exe"
 Point(onConsoleResult)
 Point(doConsoleInput)
 Point(doConsoleExec)
 link(Params,7723552:FString,[(419,51)(381,51)(381,93)(342,93)])
 link(onConsoleResult,14704103:doEvent1,[(446,76)(446,97)])
}
Add(Charset,5586221,875,154)
{
}
Add(StrMask,2860730,567,70)
{
 Mask="Индекс: #"
 link(onTrue,14930163:doAdd,[(618,83)(618,111)])
}
Add(ArrayEnum,12501373,868,35)
{
}
Add(Hub,14704103,462,91)
{
 link(onEvent1,3789731:doEvent4,[(546,97)(546,272)])
 link(onEvent2,16202321:doEnum,[(480,104)(480,62)])
}
Add(Message,16625473,329,119)
{
}
Add(ArrayEnum,16202321,497,56)
{
 link(onItem,2860730:doCompare,[(548,62)(548,76)])
 link(Array,15792275:Array,[(503,44)(625,44)(625,302)(762,302)])
}
Add(Trim,15585744,700,112)
{
 Char="Индекс: "
 Mode=4
 Point(Result)
}

Остались небольшие косметические изменения ) Что скажите sashaoli?

карма: 1

Ответов: 133

Рейтинг: 0

#17: 2017-04-08 15:14:23 ЛС | профиль | цитата

Автопрокрутку я не придумал как сделать, а так, полностью рабочая версия ) Пользуйтесь, кто любит ковырять загрузочные образы Windows.


Make(delphi)
ver(4.05 build 186)
Add(MainForm,4516932,0,98)
{
 Width=765
 Height=294
 Caption="EasyWIM"
 BorderStyle=1
}
Add(Label,199530,777,0)
{
 Left=10
 Top=10
 Width=59
 Height=17
 Caption="Файл WIM"
}
Add(Label,15284519,784,77)
{
 Left=10
 Top=60
 Width=120
 Height=17
 Caption="Папка для распаковки"
}
Add(Edit,9602735,245,35)
{
 Left=10
 Top=30
 Width=255
 Text=""
 link(onChange,7723552:doString,[(296,41)(296,48)])
}
Add(Edit,6448763,182,105)
{
 Left=10
 Top=80
 Width=255
 Text=""
}
Add(Button,10166825,56,35)
{
 Left=280
 Top=30
 Width=20
 Caption="..."
 link(onClick,3214129:doExecute,[])
}
Add(Button,15887377,60,102)
{
 Left=280
 Top=80
 Width=20
 Caption="..."
 link(onClick,4020917:doBrowse,[(109,108)(109,111)])
}
Add(ODialog,3214129,126,35)
{
 Filter="*.wim"
 Title="Выберите файл WIM"
 FileName="*.wim"
 link(onExecute,9602735:doText,[])
}
Add(Browse,4020917,126,105)
{
 Title="Укажите папку для распаковки файла WIM"
 NewStyle=0
 link(onBrowse,6448763:doText,[])
}
Add(Button,8158137,63,168)
{
 Left=10
 Top=220
 Width=75
 Height=40
 Caption="Распаковка"
 link(onClick,11355605:doString,[])
}
Add(WinExec,6803986,525,168)
{
 FileName="dism.exe"
 Point(onConsoleResult)
 Point(doConsoleInput)
 Point(doConsoleExec)
 link(Params,11355605:FString,[(538,156)(387,156)(387,212)(244,212)])
 link(onConsoleResult,3789731:doEvent1,[(572,181)(572,244)])
}
Add(FormatStr,11355605,238,168)
{
 DataCount=3
 Mask=" /mount-wim /index:%3 /wimfile:%1 /mountdir:%2"
 Point(FString)
 link(onFString,6803986:doConsoleExec,[(398,174)(398,195)])
 link(Str1,1913286:Var2,[])
 link(Str2,15239786:Var2,[(251,162)(188,162)])
 link(Str3,13735736:Part,[(258,156)(500,156)(500,212)(741,212)])
}
Add(FormatStr,5534339,294,224)
{
 DataCount=1
 Mask="/unmount-wim /mountdir:%1 /discard"
 Point(FString)
 link(onFString,3759111:doConsoleExec,[(422,230)(422,251)])
 link(Str1,11593969:Var2,[(300,222)(209,222)])
}
Add(FormatStr,15589987,308,294)
{
 Mask="/image:%1 /add-driver /driver:%2 /recurse /forceunsigned"
 Point(FString)
 link(onFString,8716994:doConsoleExec,[(429,300)(429,314)])
 link(Str1,11593969:Var3,[(314,216)])
 link(Str2,14730865:Text,[(321,282)(288,282)(288,398)(255,398)])
}
Add(Button,16473098,60,291)
{
 Left=210
 Top=220
 Width=75
 Height=40
 Caption="Добавление драйверов"
 link(onClick,15589987:doString,[(224,297)(224,300)])
}
Add(Button,4467391,60,228)
{
 Left=110
 Top=220
 Width=75
 Height=40
 Caption="Запаковка"
 link(onClick,5534339:doString,[(218,234)(218,230)])
}
Add(GetDataEx,15239786,182,147)
{
 link(Data,6448763:Text,[])
}
Add(GetDataEx,1913286,238,98)
{
 link(Data,3793120:Var2,[])
}
Add(Edit,14730865,249,354)
{
 Left=10
 Top=130
 Width=255
 Text=""
}
Add(Button,9774882,61,355)
{
 Left=280
 Top=130
 Width=20
 Caption="..."
 link(onClick,15145513:doBrowse,[(110,361)(110,363)])
}
Add(Label,15331021,781,109)
{
 Left=10
 Top=110
 Width=110
 Height=17
 Caption="Папка с драйверами"
}
Add(Browse,15145513,133,357)
{
 Title="Укажите папку с драйверами"
 link(onBrowse,14730865:doText,[(207,363)(207,360)])
}
Add(WinExec,8716994,518,294)
{
 FileName="dism.exe"
 RunEvent=1
 Point(doConsoleExec)
 Point(onConsoleResult)
 link(Params,15589987:FString,[(531,282)(423,282)(423,338)(314,338)])
 link(onConsoleResult,3789731:doEvent3,[(572,307)(572,258)])
}
Add(WinExec,3759111,518,231)
{
 FileName="dism.exe"
 Point(doConsoleExec)
 Point(onConsoleResult)
 link(Params,5534339:FString,[(531,219)(415,219)(415,268)(300,268)])
 link(onConsoleResult,3789731:doEvent2,[(572,244)(572,251)])
}
Add(Memo,15792275,721,238)
{
 Left=310
 Top=40
 Width=440
 Height=220
 Font=[Lucida Console,8,0,0,204]
 ScrollBars=3
 ReadOnly=0
 Point(Position)
 Point(onShow)
}
Add(Hub,3789731,595,238)
{
 InCount=4
 OutCount=1
 link(onEvent1,8723266:doCharset,[])
}
Add(GetDataEx,11593969,203,211)
{
 Angle=3
 link(Data,15239786:Var1,[(179,216)(179,152)])
}
Add(GetDataEx,3793120,238,77)
{
 link(Data,9602735:Text,[(244,72)(251,72)])
}
Add(Label,9603378,781,39)
{
 Left=10
 Top=160
 Width=100
 Height=17
 Caption="Редакция Windows"
}
Add(Charset,8723266,651,238)
{
 link(onCharset,15792275:doAdd,[])
}
Add(ComboBox,14930163,658,161)
{
 Left=10
 Top=180
 Width=255
 Height=21
 Text=""
 DataType=1
 link(onClick,13735736:doEnum,[])
}
Add(FormatStr,7723552,315,42)
{
 DataCount=1
 Mask="/get-wiminfo /wimfile:%1"
 Point(FString)
 link(onFString,16362163:doConsoleExec,[(366,48)(366,83)])
 link(Str1,3793120:Var1,[(321,23)(235,23)(235,82)])
}
Add(WinExec,16362163,385,56)
{
 FileName="dism.exe"
 Point(onConsoleResult)
 Point(doConsoleInput)
 Point(doConsoleExec)
 link(Params,7723552:FString,[(398,44)(360,44)(360,86)(321,86)])
 link(onConsoleResult,14704103:doEvent1,[(425,69)(425,90)])
}
Add(StrMask,2860730,546,49)
{
 Mask="Описание : *"
 link(onTrue,5115833:doTrim,[])
}
Add(Hub,14704103,441,84)
{
 link(onEvent1,3789731:doEvent4,[(525,90)(525,265)])
 link(onEvent2,16202321:doEnum,[(459,97)(459,55)])
}
Add(ArrayEnum,16202321,476,49)
{
 link(onItem,15862922:doEvent1,[(520,55)(520,69)])
 link(Array,15792275:Array,[(482,37)(604,37)(604,295)(741,295)])
}
Add(StrMask,12123855,546,91)
{
 Mask="Индекс: #"
 link(onTrue,4554701:doTrim,[])
}
Add(Hub,15862922,525,63)
{
 link(onEvent1,2860730:doCompare,[(543,69)(543,55)])
 link(onEvent2,12123855:doCompare,[(543,76)(543,97)])
}
Add(Message,14918565,812,238)
{
}
Add(FormatStr,15008624,707,98)
{
 Mask="%1) %2"
 link(onFString,14930163:doAdd,[(751,104)(751,136)(646,136)(646,167)])
 link(Str1,4554701:Result,[(713,79)(675,79)(675,142)(636,142)])
 link(Str2,5115833:Result,[(720,89)(636,89)])
}
Add(Trim,5115833,630,56)
{
 Char="Описание : "
 Mode=4
 Point(Result)
 link(onTrim,15008624:doString,[(684,62)(684,104)])
}
Add(Trim,4554701,630,98)
{
 Char="Индекс: "
 Mode=4
 Point(Result)
}
Add(Str_Enum,13735736,728,168)
{
 Delimiter=")"
 To=1
}

карма: 1

Ответов: 133

Рейтинг: 0

#18: 2017-04-08 19:07:05 ЛС | профиль | цитата

Подскажите, как сделать автопрокрутку в MEMO? ) А то много текста выдают команды, мотать неудобно постоянно.

карма: 1

Ответов: 1376

Рейтинг: 197

#19: 2017-04-08 21:54:40 ЛС | профиль | цитата

Лог убийства

Add(MainForm,2953706,294,133)
{
 Width=348
 Height=562
 Caption="Лог убийства"
 BorderStyle=3
 Position=1
 link(onCreate,9235146:doWork1,[(356,153)])
}
Add(StrList,6286943,371,154)
{
 Strings=#32:У попа была собака, он её любил,|33:Она съела кусок мяса, он её убил,|34:В землю закопал и надпись написал:|
 Point(Index)
 Point(doGetString)
 Point(onGetString)
 Point(IdxToSelect)
 link(onGetString,16075684:doCase,[])
 link(IdxToSelect,11313563:reCalc,[])
}
Add(Timer,5622247,294,175)
{
 link(onTimer,9235146:doWork2,[])
}
Add(Case,16075684,427,161)
{
 DataOnTrue=String(\r\n)
 link(onNextCase,6988846:doEvent1,[])
 link(onTrue,6988846:doEvent2,[])
}
Add(Memo,14392347,560,161)
{
 Left=5
 Top=10
 Width=330
 Height=515
 Font=[MS Sans Serif,10,1,0,1]
 Ctl3D=1
 ScrollBars=2
 ReadOnly=0
 Point(doSetSelStart)
 Point(doEnsureVisible)
}
Add(Hub,6988846,469,161)
{
 InCount=2
 OutCount=3
 link(onEvent1,14392347:doAdd,[])
 link(onEvent2,2151330:doText,[])
 link(onEvent3,14392347:doEnsureVisible,[(496,181)(496,216)])
}
Add(VisualStrings,2151330,504,168)
{
 Lines=#5:10000|
 Width=39
 Point(doText)
 Point(onText)
 link(onText,14392347:doSetSelStart,[(551,174)(551,209)])
}
Add(MathParse,11313563,378,105)
{
 DataCount=1
 MathStr="%1 + 1"
 Point(reCalc)
 link(X1,6286943:Index,[(384,96)(286,96)(286,215)(398,215)])
}
Add(HubEx,9235146,352,175)
{
 Angle=1
 link(onEvent,6286943:doGetString,[(356,202)])
}

Редактировалось 1 раз(а), последний 2017-04-08 21:55:43

карма: 1

Ответов: 133

Рейтинг: 0

#20: 2017-04-09 01:46:38 ЛС | профиль | цитата

foksov писал(а):

Лог убийства

Редактировалось 1 раз(а), последний 2017-04-08 21:55:43

Спасибо, разобрался ) И почему нельзя добавить функцию такую в МЕМО сразу ))

Редактировалось 1 раз(а), последний 2017-04-09 01:51:14

карма: 1

Ответов: 133

Рейтинг: 0

#21: 2017-04-11 07:03:33 ЛС | профиль | цитата

Помогите пожалуйста )

Хочу прикрутить к своей схеме на кнопку вот эту http://forum.hiasm.com/topic/56009, но без необходимости выбора потока найденного, а чтобы сразу все ПОТОКИ что нашлись удалялись ) Там много мультиэлементов, мне сложно проследить связи ((

В частности нужно прикрутить вот этот вариант схемы http://forum.hiasm.com/getfile/22153

Редактировалось 1 раз(а), последний 2017-04-11 07:04:56

карма: 1

Форумы Помощь по пакетуРабота с батниками ← Ctrl12Ctrl →


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