Add(MainForm,2953706,21,105)
{
Height=492
link(onCreate,3594548:doEvent1,[])
}
Add(Registry,16114156,210,224)
{
HKey=1
Key="Printers\DevModePerUser"
Point(onEnumValue)
Point(onEnumKey)
Point(doEnumValues)
link(onEnumValue,6261126:doAdd,[])
}
Add(Hub,5859765,161,273)
{
OutCount=4
link(onEvent1,6261126:doClear,[(266,279)(266,244)])
link(onEvent2,16114156:doEnumValues,[(203,286)(203,244)])
}
Add(ListBox,6261126,322,231)
{
Left=5
Top=155
Width=380
Height=200
DataType=1
Point(String)
Point(doSelectString)
}
Add(Label,5236431,322,77)
{
Left=10
Top=25
Width=103
Height=17
Caption="Принтер не выбран"
}
Add(InfoTip,16129091,133,189)
{
Info=#25:Просмотр - выбор принтера|
Width=337
Height=165
}
Add(Registry,2665837,609,245)
{
HKey=1
Key="Software\Microsoft\Windows NT\CurrentVersion\Devices"
link(onRead,14187175:doString,[])
link(Value,15760165:Var2,[])
}
Add(Registry,8651221,777,238)
{
HKey=1
Key="Software\Microsoft\Windows NT\CurrentVersion\Windows"
Value="Device"
Point(onEnumValue)
Point(onEnumKey)
Point(doEnumValues)
link(Data,12323634:Value,[(783,226)(751,226)(751,289)(720,289)])
}
Add(Memory,12323634,714,245)
{
link(onData,8651221:doWrite,[])
}
Add(FormatStr,14187175,672,245)
{
Mask="%1,%2"
link(onFString,12323634:doValue,[])
link(Str1,15760165:Var3,[(678,220)])
}
Add(GetDataEx,15760165,623,215)
{
Angle=3
link(Data,6261126:String,[(488,220)(488,295)(349,295)])
}
Add(Button,15926929,497,245)
{
Left=5
Top=360
Width=285
Caption="Установить по умолчанию"
link(onClick,3921436:doEvent1,[])
}
Add(InfoTip,11045398,518,189)
{
Info=#31:Установить принтер по умолчанию|
Width=337
Height=165
}
Add(Registry,6008923,203,70)
{
HKey=1
Key="Software\Microsoft\Windows NT\CurrentVersion\Windows"
Value="Device"
Point(onEnumValue)
Point(onEnumKey)
Point(doEnumValues)
link(onRead,4341045:doSplit,[])
}
Add(StrPart,4341045,252,70)
{
Char=","
link(onPart,5236431:doText,[])
}
Add(Hub,3594548,84,119)
{
OutCount=4
link(onEvent1,5600320:doWork2,[(150,125)(150,76)])
link(onEvent4,5859765:doEvent1,[(130,146)(130,279)])
}
Add(Label,14952544,203,28)
{
Left=10
Top=5
Width=121
Height=17
Caption="Принтер по умолчанию"
}
Add(Hub,3921436,553,245)
{
link(onEvent1,2665837:doRead,[])
link(onEvent2,5600320:doWork3,[(579,258)(579,168)(172,168)])
}
Add(HubEx,5600320,168,70)
{
link(onEvent,6008923:doRead,[])
}
Ответов: 18
Рейтинг: 0
|
|||
пример смены в системе принтера по умолчанию
|
|||
карма: 1 |
|
Редактировалось 1 раз(а), последний 2017-08-22 16:02:53