Serascer,
 Проверь, вот так работает?
Add(MainForm,188594,168,196) { Width=765 Height=275 Caption="EasyWIM" BorderStyle=1 } Add(Label,199530,504,147) { Left=10 Top=10 Width=59 Height=17 Caption="Файл WIM" } Add(Label,15284519,497,140) { Left=10 Top=60 Width=120 Height=17 Caption="Папка для распаковки" } Add(Edit,9602735,406,133) { Left=10 Top=30 Width=255 Text="" } Add(Edit,6448763,413,196) { Left=10 Top=80 Width=255 Text="" } Add(Button,10166825,280,133) { Left=280 Top=30 Width=20 Caption="..." link(onClick,3214129:doExecute,[]) } Add(Button,15887377,280,196) { Left=280 Top=80 Width=20 Caption="..." link(onClick,4020917:doBrowse,[]) } Add(ODialog,3214129,350,133) { Filter="*.wim" Title="Выберите файл WIM" FileName="*.wim" link(onExecute,9602735:doText,[]) } Add(Browse,4020917,357,196) { Title="Укажите папку для распаковки файла WIM" NewStyle=0 link(onBrowse,6448763:doText,[]) } Add(Button,8158137,280,266) { Left=10 Top=170 Width=75 Height=40 Caption="Распаковка" link(onClick,11355605:doString,[]) } Add(WinExec,6803986,567,245) { FileName="dism.exe" Point(onConsoleResult) Point(doConsoleInput) Point(doConsoleExec) link(onConsoleResult,8723266:doCharset,[]) } Add(FormatStr,11355605,406,266) { Mask=" /mount-wim /index:1 /wimfile:%1 /mountdir:%2" Point(FString) link(onFString,14960546:doWork2,[]) link(Str1,9602735:Text,[]) link(Str2,5814553:Var2,[]) } Add(FormatStr,5534339,441,301) { DataCount=1 Mask="/unmount-wim /mountdir:%1 /discard" Point(FString) link(onFString,7117672:doWork2,[]) link(Str1,14469128:Var2,[]) } Add(FormatStr,15589987,441,392) { Mask="/image:%2 /add-driver /driver:%1 /recurse /forceunsigned" Point(FString) link(onFString,7117672:doWork3,[(529,398)]) link(Str1,14730865:Text,[]) link(Str2,14469128:Var3,[(454,383)(482,383)(482,250)]) } Add(Button,16473098,280,392) { Left=210 Top=170 Width=75 Height=40 Caption="Добавление драйверов" link(onClick,15589987:doString,[]) } Add(Button,4467391,280,301) { Left=110 Top=170 Width=75 Height=40 Caption="Запаковка" link(onClick,5534339:doString,[]) } Add(Edit,14730865,441,343) { Left=10 Top=130 Width=255 Text="" } Add(Button,9774882,280,343) { Left=280 Top=130 Width=20 Caption="..." link(onClick,15145513:doBrowse,[]) } Add(Label,15331021,490,133) { Left=10 Top=110 Width=110 Height=17 Caption="Папка с драйверами" } Add(Browse,15145513,357,343) { Title="Укажите папку с драйверами" link(onBrowse,14730865:doText,[]) } Add(Memo,15792275,679,252) { Left=310 Top=40 Width=440 Height=200 Font=[Arial,8,0,0,204] ParentFont=0 KeyPreview=1 ScrollBars=3 ReadOnly=0 } Add(Charset,8723266,616,252) { link(onCharset,15792275:doAdd,[]) } Add(HubEx,14960546,525,266) { link(onEvent,6803986:doConsoleExec,[]) } Add(HubEx,7117672,525,301) { Angle=3 link(onEvent,14960546:doWork3,[]) } Add(GetDataEx,5814553,413,245) { link(Data,6448763:Text,[]) } Add(GetDataEx,14469128,441,245) { Angle=3 link(Data,5814553:Var3,[]) }
|