Вверх ↑
Ответов: 701
Рейтинг: 146
#1: 2021-12-26 15:39:43 ЛС | профиль | цитата
Пусть будет ещё и такой вариант.

Add(Label,74978,21,21)
{
Width=562
Height=40
Align=2
Caption=""
AutoSize=1
}
Add(MainForm,2953706,91,21)
{
Width=578
Height=482
link(onCreate,15284928:doConsoleExec,[])
}
Add(TWAIN,26525,161,140)
{
ModalUI=0
Point(ShowUI)
link(onScan,4623376:doEvent1,[])
link(ShowUI,4991216:Checked,[])
}
Add(Button,127296,98,147)
{
Left=190
Top=10
Width=100
Caption="Сканировать"
link(onClick,26525:doScan,[])
}
Add(CheckBox,4991216,161,84)
{
Left=35
Top=10
Width=130
Caption="Настройка Сканера"
}
Add(WinExec,15284928,161,21)
{
FileName="rundll32"
Param="printui.dll,PrintUIEntry /y /n "Microsoft Print to PDF""
Mode=0
Point(doConsoleExec)
}
Add(Button,2936943,98,210)
{
Left=520
Top=10
Width=25
Caption="?"
link(onClick,6536758:doExec,[])
}
Add(WinExec,6536758,161,210)
{
FileName="printui.exe"
Point(doConsoleExec)
}
Add(TempFileStream,4908782,329,175)
{
Prefix="scan-"
Extention=".bmp"
link(onCreate,14752091:doString,[])
link(Stream,16217774:Var3,[(335,117)])
}
Add(FormatStr,14752091,392,175)
{
DataCount=1
Mask="Start-Process –FilePath '%1' –Verb Print "
link(onFString,6164623:doShellExec,[])
}
Add(WinExec,6164623,448,168)
{
FileName="powershell"
Mode=0
Action="runas"
}
Add(MemoryStream,3611026,273,70)
{
}
Add(GetDataEx,16217774,273,112)
{
link(Data,3611026:Stream,[])
}
Add(Hub,4623376,224,140)
{
OutCount=4
link(onEvent1,3611026:doClear,[(259,146)(259,83)])
link(onEvent2,626077:doWrite,[])
link(onEvent3,4908782:doCreate,[(263,160)(263,181)])
link(onEvent4,6751998:doLoad,[(256,167)(256,216)])
}
Add(BitmapStream,626077,273,140)
{
link(Stream,16217774:Var2,[])
}
Add(Image,6751998,273,210)
{
Left=285
Top=220
Align=5
}

карма: 15

2
Голосовали:andrestudio, Dad2016