Вверх ↑
Ответов: 133
Рейтинг: 0
#1: 2017-04-08 01:15:14 ЛС | профиль | цитата
Разобрался с неработающей программой ) оказалось, FormatStr в свойствах, где прописана Mask, в конце писалось еще \n\r\r\n и так далее ) А в редакторе строк этого не было, вот и глючила программа. Теперь работает и даже можно пользоваться ) Осталось разобраться, почем у меня в командной строке кириллица иероглифами. Хотя может и не кириллица там. Вот последняя версия ) Было бы неплохо мою программу в примеры добавить, чтобы народ не мучался как я )

Make(delphi)
ver(4.05 build 186)
Add(MainForm,2953706,21,105)
{
Width=765
Height=275
Caption="EasyWIM"
BorderStyle=1
}
Add(Label,199530,392,21)
{
Left=10
Top=10
Width=59
Height=17
Caption="Файл WIM"
}
Add(Label,15284519,392,63)
{
Left=10
Top=60
Width=120
Height=17
Caption="Папка для распаковки"
}
Add(Edit,9602735,259,42)
{
Left=10
Top=30
Width=255
Text=""
}
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=170
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)
{
Mask=" /mount-wim /index:1 /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)])
}
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=170
Width=75
Height=40
Caption="Добавление драйверов"
link(onClick,15589987:doString,[(245,304)(245,307)])
}
Add(Button,4467391,81,235)
{
Left=110
Top=170
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,9602735:Text,[])
}
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,389,109)
{
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,665,245)
{
Left=310
Top=40
Width=440
Height=200
Font=[Arial,8,0,0,204]
ParentFont=0
KeyPreview=1
ScrollBars=3
ReadOnly=0
}
Add(Hub,3789731,616,245)
{
InCount=3
OutCount=1
link(onEvent1,15792275:doAdd,[])
}
Add(GetDataEx,11593969,224,218)
{
Angle=3
link(Data,15239786:Var1,[(200,223)(200,159)])
}


карма: 1

0
Редактировалось 4 раз(а), последний 2017-04-08 02:09:37