Вверх ↑
Ответов: 109
Рейтинг: 0
#1: 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

0