*Переключатель рабочих столов
Make(delphi)
ver(4.04 build 182)
Add(MainForm,16048403,105,273)
{
 Visible=1
 WindowsState=1
 Icon=[ZIP5E07000078DA636060044209090610C9E0C1CEC020C6C0C0A001C4402106030688380828B0330C59B066F52A2211417380E47F4280A039AB57AE04920D780131E67094F222A39969269808BF39108D3C4BA50457ABB216724110CC34E31969C633C108C8C0630E503150BBF80643D96D7640F6FFFF0C13F21D90B52323FCE628EFF1D23814066400B940ED93F31D6680CC3122DE1CA05EFDE3F1C6A7D32DCEE742CC61F8CF302BCF7E06D1EE8187A7CDC56287ABE5AED7ABE02293F36C66A41A4F4F359A014340410803D31C201728EB7AADCAF3469DCFAD86803B4D21775B404EFAFF7F5A911538768C217104148C78D00E89414C7320A905281B7CB725EC7E2B4425568F03A5800A8221B6C0922B1CAC029BF3E1F77FB87598E91F28087424D0A94007039D0D743C4419A639A0F0CC7700791F16B0F0E085071730E88001080C46B808A63904530B5017302A81110A8C56AC1E87BB077F6A01EA05262D6002C36A08DC1CFCA905A81798C881491D98E0F19B03720F526A81781F9EC580DA81990E334C50CC5905710F7A6A8124186444A0D45AB58AC842923EA5E8E001F0129B811905FF01E21F50FC01880F60C5FC402C0FC5F640FC1F8E6100005054E0E9]
 Point(onClose)
 link(onCreate,205475:doCreateMutex,[])
 link(onClose,205475:doReleaseMutex,[(145,300)(145,307)])
}
Add(Message,12931239,378,196)
{
 Caption="Ошибка!"
 Icon=1
}
Add(DSKSwitch,10435443,245,231)
{
 Ctrl=1
 Win=0
 DSK=0
 link(onStartDSKSwitch,16326540:doGetString,[])
 link(onDSKSwitch,3772056:doValue,[(285,244)(285,335)])
}
Add(IconsManager,198267,336,245)
{
 Name="icons"
 ImgBkColor=-16777201
 Icons=['0'=[ZIP7E03000078DAA592410E82301045BFF102AC8C4B97AEAD4B13B98CC4155EC5C44DF50026144EE269BCC13874603216314187DF860E6F269FB6C08C9F2C03CF4B1CE7C002C09A07A7B082E4DBC8E7F83BEAAA9A2AAE7A3EEE00F1FC450C28CFEF225F6C44D7C2B1742962B8A983E5B524E125AFFD2533C66B92E1207E889212E56D13E53D7F3AE5B644F8E4A74C7F9C236F4BB4D0F7C66CFF4BCB3B7192181BF244B8957B6F0C9B12D7EBBD7FB9F30737E2DFF021F64F3D6F07FBD3F14D48CFEBD32DEBF272BEF1883B589643C563A5FEF24C08E288FBF3C368E30579424756],'1'=[ZIP7E03000078DAA592410AC2301045BFF4025D894B97AE9DAE44B09731B8AAE0490441520F2034ED497A1AF72EE224DA206D0289FEFE2961E6E5439B00337EF21CFC5EE0900173002B2E6E618977DFA8CCF0B7DAA64935EF7AF4F7183B5E8A758C19EE5A65F29F7A34D21AEC291FCA0FF1CAF23C4BE2A520792C873ED5821CCF6B5F3ECE035F7B789AE65F0C4F913C8F6ED5CECBCB0F4FE3FC6A2BF7E4BE34C82B9B0F7D3D6D6A51D8FC821DE23BA5922E1B9F6F8CBF2F5B9234CBFE9F1FCAE805393962D0],'2'=[ZIP7E03000078DAA592310E823018859FE1024CC6D1D199321913B90C8D13249EC4C4445B0F6042E1249EC6DDE1F76F89A4B60CA08FD7065EBEFF0DA5C0829F3405EF2B1C12600960C38B23ACD1E7564582BFD536CD5CF3D4F3719FE28157329B6286BBD6D8FE170D2108817D3EEE0F98A0DF381E445346065E49A1EAC28582ADA5E847B4FD1CEDC7A92EF407D6E18888FBCFB6DFE63A1A897922DCAABDF2FAFB778F17617FB553A5B89699CF8CF0C6F5832EC7AD96B92BCFBF0F5FF87C67CCACCBC6FF778AFDCB364BC472E7F3C3B27A034BA74DC6],'3'=[ZIP7E03000078DAA592410AC2301444477A81AEC4A54BD74D5722D8CB34B86AC1930882A61E4068DA93781AF72EE24F4AC337ADD0EA6412CAF0FE2CD2000B5A710C3A573844C012C086364558A3CBADB2087FABA9EBB9A6A9E7E33EC59E5732996282DB46DBFE97E1398CF10EF8613FC7821182B5E3839ED159CE2B295499B95090ABFEFCDE8F539979CC93E42E1CF69F6DBFCDAB7E84F5873CC5B762AF587FF7CD7811F6173B958B6B9E706684D7AE1FE672DC563275E5E9E7FD0BCEB75ACF7A6CF47FA7983FB6593224773F3F6CAB370EB16879],'4'=[ZIP7E03000078DAA592310E823018859FE1024CC6D1D19932191319BD088D13249EC4C4448B0730A17000CFE069DC1D7EFFB6621A5002FA78EDF0FAFD2F010A4CF80943F03EC33600A60016BC38C21C2E374A02FCADAA2CC79AA7EEB7CB10BF7925A32166B8AEB4E97F50F7747325768BEFE9FFC86BCB83A885F9EEF24A0A952736140D237AFBB1CF9382A7A4281AD2D985DDFE83E937F9109E08E76CAD9A7E7F44BD78D1EECF562A15A73472A75F796DFB41C7DDB290B12DE73DF65FDCE76BAD475D36FEBF43EC5FB6512296FD3E3F2CA327BCC46AFA],'5'=[ZIP7E03000078DAA5924D0E823010859FE102AC8C4B97AEA92B63229781B882C493989868F1002614365CC3D3B877314E5BC50212415F5FBB987CF3D23F60C2C3F7C1EB0C5B0F980258F0E412E6B075ADD0C3DF2AF27CACB9EB76BD0C71CDCB38186286CB42E9FC3BB9F5AAA2DA2DBE9BEF62AD168695E141F471037DBC8C854C435314ECECB5F6E7639F8616B34CD6E04537FFA0F345EBB0B6B1CB13E19C6CA4932F9F98EB667EB296913845C1175E997CD071B7CAE265BDE7E613BCF952A9519F8DDF7788DDCF364AC432F7F3C3D47A002E8377A2]]
}
Add(TrayIcon,10190543,560,315)
{
 FormHook=0
 ShowWORemoveIcon=0
 Text="Переключатель рабочих столов"
 Title="DSKSwitch"
 Point(doShowBallonTip)
 Point(doAddTrayIcon)
 Point(doHint)
 Point(onMouseMove)
 link(onClick,816907:doEvent,[])
 link(Text,3919846:Value,[])
}
Add(Hub,16276346,245,287)
{
 OutCount=4
 link(onEvent1,10190543:doAddTrayIcon,[(545,293)(545,349)])
 link(onEvent2,4602133:doWork2,[])
 link(onEvent3,5904421:doData,[(475,307)(475,202)])
 link(onEvent4,4836188:doStart,[(480,314)(480,251)])
}
Add(IndexToChanel,816907,602,315)
{
 Count=3
 link(onEvent1,10417317:doNext,[(642,321)(642,265)])
 link(onEvent2,7879993:doPopupHere,[])
 link(onEvent3,10417317:doPrev,[(648,335)(648,272)])
}
Add(PopupMenu,7879993,658,322)
{
 Menu=#8:Включить|9:Выключить|1:-|5:Выход|
 link(onClick,3857571:doEvent,[])
}
Add(IndexToChanel,3857571,700,322)
{
 Count=4
 link(onEvent1,4602133:doWork3,[(746,328)])
 link(onEvent2,11717705:doEvent1,[(751,335)(751,170)(185,170)(185,272)])
 link(onEvent4,14719360:doWork2,[(751,349)(751,391)])
}
Add(Hub,11717705,196,266)
{
 link(onEvent1,10435443:doStopDSKSwitch,[(235,272)(235,244)])
 link(onEvent2,3772056:doClear,[(235,279)(235,342)])
}
Add(StrList,16326540,294,189)
{
 Strings=#0:|36:Невозможно создать класс обработчика|35:Невозможно создать окно обработчика|35:Невозможно зарегистрировать HotKeys|
 Point(doGetString)
 Point(onGetString)
 link(onGetString,6978162:doCase,[])
}
Add(Case,6978162,336,196)
{
 Value=String()
 link(onNextCase,12931239:doMessage,[])
}
Add(ArrayRW,5660168,336,329)
{
 link(onRead,15423340:doEvent1,[])
 link(Array,198267:IconArray,[])
}
Add(HubEx,4602133,742,294)
{
 Angle=3
 link(onEvent,10435443:doStartDSKSwitch,[(746,175)(235,175)(235,237)])
}
Add(Memory,3919846,560,196)
{
 Default=String()
 link(onData,10190543:doShowBallonTip,[(601,202)(601,293)(550,293)(550,342)])
}
Add(Mutex,205475,154,287)
{
 Name="MUTEX_DSKSwitch"
 link(onCreated,16276346:doEvent1,[])
 link(onAlreadyExists,16437551:doEvent1,[])
}
Add(DoData,5559450,112,350)
{
 Data=Integer(4)
 link(onEventData,15140653:doMessage,[])
}
Add(Hub,16437551,196,294)
{
 link(onEvent1,5559450:doData,[(222,300)(222,328)(100,328)(100,356)])
 link(onEvent2,14719360:doWork1,[(228,307)])
}
Add(HubEx,14719360,224,385)
{
 Angle=2
 link(onEvent,16048403:doClose,[(95,391)(95,300)])
}
Add(Message,15140653,154,350)
{
 Message="Приложение DSKSwitch уже запущено"
 Caption="Внимание!"
 Icon=3
}
Add(FormatStr,7885320,497,350)
{
 DataCount=1
 Mask=" -= DSKSwitch =-   Текущий рабочий стол: %1 "
 link(onFString,1495564:doWork2,[])
}
Add(Hub,15423340,378,329)
{
 link(onEvent1,10190543:doIcon,[])
 link(onEvent2,11875990:doData,[(402,342)(402,356)])
}
Add(Memory,3772056,294,329)
{
 Default=Integer(0)
 link(onData,5660168:doRead,[])
}
Add(DoData,5904421,497,196)
{
 Data=String(Перключатель рабочих столов)
 link(onEventData,3919846:doValue,[])
}
Add(Case,2496351,455,350)
{
 Value=Integer(0)
 DataOnTrue=String( -= DSKSwitch =-   Выключен )
 link(onNextCase,7885320:doString,[])
 link(onTrue,1495564:doWork3,[(543,363)])
}
Add(DoData,11875990,413,350)
{
 link(onEventData,2496351:doCase,[])
 link(Data,3772056:Value,[(419,324)(385,324)(385,369)(300,369)])
}
Add(HubEx,1495564,539,350)
{
 link(onEvent,10190543:doHint,[])
}
Add(Thread,4836188,497,245)
{
 Delay=3000
 FastStop=0
 link(onExec,3919846:doClear,[(539,251)(539,209)])
 link(onSyncExec,4836188:doStop,[(539,258)(539,281)(485,281)(485,258)])
}
Add(Counter,10417317,700,259)
{
 Min=1
 Max=5
 Default=1
 link(onNext,10435443:doDSKSwitch,[(741,265)(741,180)(230,180)(230,251)])
}
Add(InfoTip,6656452,322,42)
{
 Info=#0:|15:-= DSKSwitch =-|28:Переключатель рабочих столов|38:Выборочное переключение - [Ctrl]-1..5;|26:Переключение вперед - ЛКМ;|25:Переключение назад - СКМ;|10:Меню - ПКМ|
 Font=[MS Sans Serif,8,1,32768,1]
 Frame=3
 Width=267
 Height=102
}