*Программа заносит текст из буфера обмена Windows в свой список. #13#10#13#10При нажатие кнопки Enter выбранный текст вставляется в активное приложение, а программа сворачивается в Трей( место, рядом с часами ). Выбор строки производиться путем нажатия сочетания клавиш Ctrl+Shift+A из любой программы.
Make(delphi)
Pos(0,0)
Add(Message,78308,771,198)
{
 Message="Make by Dilma"
 Caption="About box"
}
Add(DoData,11346,601,299)
{
 link(onEventData,41483:doValue,[])
 link(Data,70327:GetActiveWindow,[])
}
Add(Case,42400,208,59)
{
 Value=Integer(46)
 link(onNextCase,56668:doCase,[])
 link(onTrue,37514:doClear,[(248,72)(248,101)(155,101)(155,58)])
}
Add(KeyHook,65793,396,299)
{
 link(onKeyDown,60416:doCheckMask,[])
}
Add(Case,53662,576,198)
{
 Value=Integer(1)
 link(onTrue,9692:doPopupHere,[])
}
Add(Hub,31581,406,205)
{
 InCount=3
 OutCount=1
 link(onEvent1,46906:doHide,[])
}
Add(TrayIcon,46906,456,198)
{
 Hint="ClipText"
 FormHook=0
 link(onClick,53662:doCase,[])
 link(onDblClick,79032:doEvent1,[(502,211)(502,305)])
}
Add(ClipboardHook,48563,71,45)
{
 link(onChange,10031:doEvent1,[])
}
Add(LineBreak,8633948,14,52)
{
 Caption="1"
 link(Out,48563:doPut,[])
 Primary=[2751,693,305]
}
Add(Hub,79032,516,299)
{
 InCount=2
 link(onEvent1,11346:doData,[])
 link(onEvent2,46906:doShow,[(557,312)(557,186)(446,186)(446,204)])
}
Add(KeyMask,60416,451,299)
{
 Shift=1
 Ctrl=1
 Key=65
 link(onTrue,79032:doEvent2,[])
}
Add(Memory,41483,656,299)
{
}
Add(Case,56668,253,59)
{
 Value=Integer(13)
 link(onNextCase,30963:doCase,[])
 link(onTrue,66769:doEvent1,[(292,72)(292,211)])
}
Add(Case,30963,301,59)
{
 Value=Integer(27)
 link(onTrue,31581:doEvent1,[(369,72)(369,211)])
}
Add(ListBox,37514,163,45)
{
 Left=163
 Top=45
 Width=203
 Height=224
 Align=5
 Font=[Times New Roman,9,0,0,1]
 AddType=1
 Point(String)
 link(onKeyDown,42400:doCase,[])
}
Add(Timer,94870,218,270)
{
 link(onTimer,4477:doData,[])
}
Add(Hub,10031,112,45)
{
 link(onEvent1,20733:doBeep,[(153,42)(153,20)])
 link(onEvent2,37514:doAdd,[(151,58)(151,51)])
}
Add(DoData,49148,184,146)
{
 link(onEventData,48563:doSetText,[(230,152)(230,134)(61,134)(61,51)])
 link(Data,37514:String,[])
}
Add(MainForm,9056,773,241)
{
 Left=292
 Top=232
 Width=211
 Height=249
 Caption="ClipMate"
 BorderStyle=5
 Icon=[ZIP0A09000078DAADD5794C93671C07F0AFC34D16756C6338755CA278700CCB7DC8AD8045398A94A32882C82DC756EA5410C4D17AB558A0550A0C28508ED26A2B0C04572A770587E3288EE136B764902C71FB635B8859D6BD05A7FD676E4BF6349FE6C9EFFBE47D9E36F93D2FB08AF8989B83F8D6478B3EB001C04E0251820F56EADA51B41AFF61104F5DF50A56E9E9E19565ABA1B7FA55AC7E4D1FFA6BD7E3F575065867F0360C0C37E02DA34D30DC688C77369BC268B3198CDE338791F11682053698104CB761839925DE35DF8E8D16BBB069AB35365BDAC278E76E985A39C0CCDA11E6364E30B775C6165B1758BCEF0A0B3B376CDDED8E6D240F58DAEFC176074FEC70F4227863A7930F7639FBC2CAC56F99B5AB3FACDDF6C1DA7D1F6C3C0260BB2708EF7BEE879D5730ECBC0F62B74F2876FB8682E4170E923F05F6FE11B0DF1B01877D87E048700A88847350145C08AEE418B89163E116AC4583DB8138B81F380CF78387E111120F8FD0A3F00C4B8067F831785192E01D711C3E87089129F0A5AEF08F4AC3DEE874EC8B4947406C0602E3321174380B414772B03F3E17E4A31F829C40477062DEB203C7180849CA43D8F13C846B259F4458CA1984A6162034AD10A1E94508CD3887B0CC62849D388FF0AC128467331191CD4244CE05C24544E45EC4A1DC4B88FCE032A8F42B88CAE3208A71155127B988FEA80CD1A72A10739A87D8337CC4E65F03ADE03AA112716705CBE2CF5E4362211FA9E72A90739E0B4649294EB34A718A590A06930B3AB31C394C3E3298021C2FA9C5B1927A249608090D48202496342291D984249608C72F3423F95233522EB520F5B2562B52AFB4218D2D26B4238D235996AE552A45C655293297DDC009AED64D6495C908726497CB91537E0BB9151DC8E575E243FEA7A05FEF425E65371895B7C110F4805175078C6AADCF080A306A14F8A8A60FA73E51E24CDD5DE4D7F5A3403888B30D43CBCE350EE35CD3308A4523286E1EC5C7ADF750D2360E66FB042E482771F1C6142EC9667059AE06FB961A9CCE59B03BB4F36970E45FA054F639AE4A47C115F7A1BCB913150D12F0EA5B70AD5E844AA108820611AA9B5A50236A456D8B1842B1144D929B68BE790B6DB73E457BE76D48BA7A21E9BE03E96D05243D7721E91D42EB9D3188149368EC5343A89C477DFF77A81B5C40FDD00284438B681C5E84686401ADAA1F201D5F80FCFE0FE89AF81E8A8947E87F308781070F3130A1C6D0C4348627A630F2600AA35A5F4CE1DEE434C6A666303EADC6FD995968341A3C989DFBD7B741BAAC35BF9262F6A64E29CCFBF974ADC7AEC0E1F6AAEE1E5E198F57C0ABAA15575695370F95FE95C7B93B5B39A98624E37DF2267957359F5FCBE596E6B7AB529EE5BEA4488AA5F2C97DC58F0B77C755E3A323AAC1917B630A957C2536A23A740CFBEEB0DAE2E7BA3324D2C6CECACAC971BBAD13D617ACE4F62E6ECDDD994E07734FD06322F34EA427477BD9C4BC38A8A177465185A03B35D03E9976C6C18316164CA384EBFC90371CFCBA0442E9ED22AAEB91C341C9DDD2FECEAA0C9DDCC47B6F6F5703B7439AE51A92929F92D123E249A8BA7F4EB65F517F4FAF72401C6A6BE945EDE584148F86E9E68CA2AC1EBAEB91CCDE9E36131BA5924A4A5139E8C48127A56EAA4125BBB8B1AF5FE5C79176F36F0CDAE9E48ED5ED79F1F404721285C357854489E4A2719AB14EEEAC3CD579209AE6C8224517AB4EFB14F379E98EBADB6F5FFCACB67F401AC762459F57D0BD52C65AFCF237EAE4A631F74435D5EC0432CB37D07D8B63C840615B9E894E6E44A6B10542019B6E91C434F4A251D97D958ABD3AF9DA270382A6C6CA76BEE9A3C924DBA0FDDB3A3AAFEBEE6F444ABBCAE58B05CAF098A9E924D28E18FF8E8CF5BA0B545D6575B5D535E55581F373EA49631733F1E28BF018F0D3B0A2B6B5B68D53981030F38B7AD679632AFD799C4C31D137A7243084C4025E02796A5E33AF6605BF383E3BD9455F55575ADDC497C9AA0589D4E979CD37EA39D6F39C96ED85C5BAB69ABAAA1BFCAA325E2CE9E19CE6E957D3AC75CFF2CDC146942763776FCABAA5B23E99D4CCC9F94BF5FCD3AF1F26AD79B6600FB9A781C3139537498562515BE7F5F880B947338FBE9DF35FFBB7CDC47AFA787676F2EDBFEF36C325CDAF8F592F694743D692E6B7AFDE7B59C706B0BE5BFAF61FBADA0E9A551ACD1F80DEEFC40B7F89A868FDBCC29350F8121A9DB9F75F7325A1888017B4D7841951332032038D66690DB1A31E71FF14111EE37F1C7F024E00B657]
 TaskBar=1
}
Add(IndexToChanel,78455,686,198)
{
 Count=3
 link(onEvent1,78308:doMessage,[])
 link(onEvent3,9056:doClose,[(745,218)(745,268)])
}
Add(PopupMenu,9692,626,198)
{
 Menu=#5:About|1:-|4:Exit|
 link(onClick,78455:doEvent,[])
}
Add(WinEnum,70327,594,256)
{
 Point(GetActiveWindow)
}
Add(DoData,4477,266,270)
{
 Data=Integer(0)
 link(onEventData,15362:doEvent1,[])
}
Add(InfoTip,92369,182,252)
{
 Info=#27:Свернуть программу через 1с|
 Font=[Times New Roman,9,0,0,1]
 Width=176
 Height=81
}
Add(Beep,20733,210,14)
{
}
Add(Hub,66769,306,205)
{
 OutCount=3
 link(onEvent1,49148:doData,[(351,211)(351,192)(156,192)(156,152)])
 link(onEvent2,31581:doEvent2,[])
 link(onEvent3,88902:doData,[(365,225)(365,363)])
}
Add(InfoTip,11770,385,280)
{
 Info=#13: Ctrl+Shift+A|
 Font=[Times New Roman,9,0,0,1]
 HAlign=0
 Width=176
 Height=60
}
Add(InfoTip,26960,203,56)
{
 Info=#30:Реакция на клавиши в программе|
 Font=[Times New Roman,9,0,0,1]
 VAlign=2
 Width=190
 Height=67
}
Add(InfoTip,42029,574,238)
{
 Info=#20:Поиск активного окна|
 Font=[Times New Roman,9,0,0,1]
 HAlign=2
 Width=162
 Height=102
}
Add(DoData,88902,656,357)
{
 link(onEventData,2751:In,[])
 link(Data,41483:Value,[])
}
Add(Hub,15362,311,270)
{
 link(onEvent1,31581:doEvent3,[(382,276)(382,225)])
 link(onEvent2,94870:doStop,[(353,283)(353,309)(205,309)(205,283)])
}