Вверх ↑
Разработчик
Ответов: 26061
Рейтинг: 2120
#1: 2022-01-16 23:05:03 ЛС | профиль | цитата
Gunta, это не серьезно. Создавать отдельный файл иконки для приложения на который потом ссылается ярлык. То, что просит ТС тупо не реализовано в исходном коде, причем не компонента, а модуля, на которые ссылается компонент (там всегда назначается 0-я иконка)
(Obj as IShellLink).SetIconLocation(Icon, 0);
Я сделаю этот функционал, но через часик (может и раньше).

--- Добавлено в 2022-01-17 00:03:59

Добавил поддержку добавления значков по индексу в конце пути файла значков (все, как описал ТС), если ничего не ставить, то будет добавляться главная, 0-я иконка. Обновление на SVN, файл shortcat.pas можно удалить из папки code (на SVN он тоже удален), я весь его код загнал в компонент.
Пример:
Схема


Add(MainForm,13760349,539,280)
{
Width=268
Height=171
Icon=[ZIPBE10000078DAED57310AC3300CBCEE1932958E193C74EC133AFA317E449E9067E497AE843DA4450E2A82D883142E884BAC03F9B01170A36759C06FEC337007F0241085370ACFB1CE68C54408845705E78F0BB8A9EA739E085B05E7F1022E14F99CBF812DFF849593346A1F46D44F420D1327699CF43F0A354C9CA4513DD9DD7FDAFDB2ECB5FC5FD9FF01F593C593DAB527FD8F164F6AD78EEC3FFD1962F149DB7F9DF5FF38C32C3E6DFB4F7F86597CEAFE73FFB9FFFCFEF5FBD7E70F9F3F0EDF8250C3C4491A87F9B75BAC1DC1BDF9007AA728F3]
link(onCreate,10868820:doSelect,[])
}
Add(Icon,9878994,441,259)
{
Icon=[ZIPDE28000078DAED9AC14FD3501CC77FC08C4B88428478337840C1031E087AF0A0278C09F1E2C1B39279414880BED72D1054347AD1939E386850134C74C958FB10131587C2D6BE75A0FC01868BC19B9C8C89C4FA6BFB06323AA252484BDAE5B3EFF65ED3F73E7D7D6DBA0EA0025FADAD80EF87416B063808001880451003A7DC5A6A9B00EAAA1D8A8B699A2121215B44318641CD2780E5FB3B555D1E5375FA1879E431A3B8ED672C2F492A97ABAC36BDF650F343A0F2C405552726B6B7CD601B3CDE6FB5E9B507D3A573D8C6D7ED7758C36AD3730F4E1FECA483EDC1E980E7C79573FC9A3BCC0DFF7890DB4857C03D46D0010489607A908756FF159DDA0897C160799027C2A15DE5F414D2889F2F0A97E12078281A1949E76C8726BB8CDB2E75769D4E3BEC3A8D0CF9DA23479E0A8746FCFE53789C44A2AB9E3846F63A3972D38F1ED8BFD1943D0FE831E4C76A5D8987A03DA5D9F3E61AF39B07A72C65C49BB15FDFD6D5B978308D98B86E6B9ACBF7993FE7C7CA8632F7F128AEFB2B30D7C1F21EC1BA9E871EA147E8117A841EA1C7FF799CD8251EDD4847F0EFCF77CBEF0CA1C7AEF1E0FEF7603AB9C37439A268348AEC2F611F52AF6AB4C6CF1E4CA33DCCBA07E67203DEABB721C7FFA0C546231DE999DE433EF658625CC6EDC95DEEE344CD3492E283D9943E54EF5B0F8DEA381E80FD7DEE569FD6657352EBFB38959760AA30003E1E0F5DCD12409FA48BA339AEC5BFBC357AABE70B31C81B313F7B70E1F1C2E5FCB4A2CE9123EC1301659EDA04CD03CF5D48FCAC52488062AC112C0F622AB3D225F60EE74D0941F1B0E6359E9B6E25DF272099912139BD1EEF9F73D27B5E7B28E8F04AEF1B7B63C4E175611019D880E7CF0735E934F6E1B3871E5A8A2796668CABB050E884393C3FB9E1B5C7CBC91E601FFADA5443FEBE658F1C7AE4E85D669096893909260AE5F1DC8375C3C4743F280BE4A8C2A52BD89F1872F91FE946CE5B1E4A961E5066298C67654865E36509FF831112E209B864CAE7324085958B2233D69FE836CD8C93158B4E56D63A19893A198D38595B097FB7BD9DCE62BF22C5AC2AC9BD226B4436883C23F2BA48D3D96F11B11FF76CBA9F45FE06F484EC58]
}
Add(Icon,13037582,448,266)
{
Icon=[ZIPDE28000078DAED597B7054E5153F04225289C169C73AFC215AE9887FD93AEDF40FED30D34E53DBE9D8D2E95487B1A218313C1276B3F7B10FF22081068102A268073AB675644802D9C7DDBBD90DE4B9AF7BF7EE3B8460240612200A48454922B524B7E7BB777793A50909CD834C9BCDFC72EE7EF7757EDFF9CEEB5B8079F8F7D45380FF1F017105C083008002700872411D279F258F037CF33E15C98F2CCB7398C31CFECF11F8E44D68EAD80E9C8F023EC4805D62C12EA20CDC1E879B28E8BCC8E233F6435D7457BED997FFB93D40DF40F423FA6E0372FE8655D83C60132BF65EBD7E009F5134F53C8213E351E5A621DE65828E0B8682CA16ADCC89946C130B653EC0C8A8E79820E739BC8E137572B5A750F6B4D187FA6F944C9A87F4E9FE248F0C7B90DE689798C3A8E7DF11EF8D83839CC81CAAF1E9BEB0093AD91932F51E8F6C5D8BC7AB39915E8BE715F0927EADC5BF19C7B56BF9004BCEBF54172EF99D2B5414267CF07EF94494CD9D227B2CB3FA0A2FDB9539A56E3B9FC3F34AE3B508817CA76467D8B41A7900EA093C599B29DBD1E00C15C3514F1E54BB5F03B41BD4E175AE70C90AD52EB4EC0832DB27CBC3D55A9EE908191C76B4B38DE82729EBF71AE2CB71F04562BD2BBC3889F9893540C189B8018E470D0B50DF6C1CBFFF70F31F16775F96947779DBDF018BA0019B44035EFF2D7B620DDA4466C76479F081A2D51CAE0B8B40C90D11FDA158A709E7905A84CFCF1A0724263C99B29164FC191FA5C01ECF7BC01ED07527741CB0FAF3E586F8EEBF84BB1C50DFFA0ED4085AF4433DFAA17EE9F0BD4CC56479E033B4645D103F7586F4CF35C48D3846132ECA9A1813414597EF2475A9F6E6E5C4BAABA0E7AAF884C55FA0F8B162279145E40B8DADF910EB2A85C6D612B0903832E53C586D6ABD4BECAF2D0183AAE3B81C94EB960FF3783DC7DBFEAEF2CC5857D58F8EB4BC5C80365977A465D3FA48E7DEA5B2DC08D7FAFF86317A0BDA849A0E1E9AE1E7B1AB12F33C3697610E693CF8A021E7B0FB15387BC907A7CFDB302EE72A7E6EF1EBC0DD560AFEF6AD70C4AD0533CE93635AD6D56D78A4B850A37148E381C7391C8953A13C8C4FBA05F6004BFC3CCB213159353E6D5665CBA66CBBA4BFC71E2A431F37923C35B33C925CA451C647F2908C39C4CFB9D8BA07309E7663AE906FC9E383184F06ED31FD0F6AE326F2DE99E73136968FE7E7C36030D714CAAE08F3FBE3B1628CBDCC2CE531D2CF2B937EFE6A32AF631ECCF79CDAFF2C39EF397500AA7D79B392C7483F6FEFE1D0CF5F4DABC78E79D783EFF49FE16A5F0FC981600B50B39207F173D58736001F64D1CF99EC917913E37A36EA7F4FA55703D6008BB9D0303BED219972B88806CC9135E8E7BA73B7FA39D6B983587B0D725106FD7CCBACF5F3A3DEF539917347E0EC673EF4F3FC31FDBC2EC2DE653F6747C3F2642D50E9CDFD6953DB81849F1F1DC5CF5F473F7F4BF1F3A6D63F41A527F7DBA95E459A7C9D38511EE8C7A3E131B55E25F1B434C719DE04B18F2B218A40BDD3FCBCC6BB51A9773B7B9BB0C6DA0975B1F2A5E43E754DCE943D0CD85710E847C000563FFB20E6B621EC51E5A6D84EDBC9B37BE083A61732CDBE8D98C7F569F531F62459D84B65FDF5C4AA45A133EF83D071B0C2ECDFA4D4A776D1C04E370F526BF06123D4618DE46C2D4E830BC76AC3866A52F77301E20FD40DB537A146EBCBC9B8025C4F03A467231CF82073AA2E5EF4E84CF020102EEE85D0950320F6EE4B817C6FFA685BA6D5A70D7113EE2519651D9238C0F9A9CF5D278D8FB5F46C8599585756017BD3D8164577E9D3B750BE09FEF37BB027DE0F8D1DE580F6988739E319442EEAF95AD2B713F82DC23882C7FB885FA14D7EC10BF4A2BA9306683A573A033CD4FAD6E62F54EAC586F632102EEC55F8042FBD0D8D1F220FACCD498FE720F6BB75AF85D4C041FD23EA3B28F28E9778CC97B5788EC73EC4D53A133CD27B2AC2C582F998E847F8101ECD9D7F04CE873C949876CB9E91CA8160C5081EEBC873C95E04E141ECD13C13EB6A945E2AC9077D1CEA3037E31A517A2307F248D96398C3283CD06E641CEDC287D13631E3F4F190C6E96D137C087845EFE17D1EB55F616ECB63388EE09A15D969E281BD275953E3F0181BA47F6447F68E63F248624A7904D955369C1F57D4082ECC1964CFECBFE241EE23F60C1525EA9719E681F620766E68253C4CC9BDB4AC3B06B94F621772C1542FFEF874F3300B053A3EB5AF47FFD21937626E2BC678C228B96D9CBDF3B130C489F435CCF70F931A1D9FFBA85A47D1B2D9CFE4557B5938EA4BC76479D447776DB0085AACA9B55853976EA86FDD06B610F55D65EE26B0CF3B2648CD11A69E3BD15A0627A2652BC9F3CD3E4AAE8FEBD788674CE0FDD09886C9F2F09CDAF7448DAFA0DBE2D7903DF3BEDAA0E980CDAFAB4EEDF10774072D7EDDB3E8B789FC4C27C08CF8AE1E5B04EA373651579ADAB715740DB59271872BBCA597ECC957BB0B646FBB7659AC8B82D0195D1A26CB6348FE003A2EEE7BA112DF41DE45EA1E3EB9F78C75506DB0684D43AC08D7199588ABEA5E3A87398CE40A5E89CFF85DA471DED1AF22C53F1CD9439163E42657B93572A4735B992C1F84BEAFDEFE0F4CFE3729337CF9B503FB81DD4F9B7D1BA2A8D3D79813FAD0268316A140AE8FEEAC8D9FDD090E49B3107542FF3564725289A27F3DFA923354341FFDE87EECF5BE11FCA80C5ADA76EF23F791DF033841F1957F627FD8C34B65CF5FE9B7E1FB1C08FB28982C8F2370FD5F3C34B4EDC79E623D825AE48C9A00F15EB21E475B24EA71FAA65DD40D7091EDDF739E2E87A60E6326D6176D8978701DFD38558F63ADD5E18C1A09C70556DFA679CED01B70F52B0BBEAF0A513D0AA682871D1A4EAA3CCC1E0D7870FEDD5D6FCCB7FA0ADDEA5E3C2D5B05B52EB7091AD9152D61623DC7007DF8FB6A2F4EE1799D729DC243A02ED5B5191F6EFCB804F33D05C803EDB603AE0ECC1C0F8B470B2D9D150AEC029D81F3FD634EA25F7609C6179D5EF6130BFA8C43623F6B8EED3A542B99CE702289439A418C059B714DBEA8D4E3227D1FA9FF1A3A8B897DEF3E0F9C4BEC4FC1EC2E04CF8532F05D2E5F6DF1A8B140ED49C96F959BE5533D7BCACE5F7917AA3C9BD59A11FB9559C543203CB0866DC63EEA8A11DC43E5501F303E8DBAC5492CB2FA35BD66D1F0FC3F068EC1F5FEC38031EF2EF298C31CE6F03F00FC344F4496822A014A9AC921C04A94A5B0EC2691000F6D21F2DE8C25CF10993D94940F25A47A1D7E5F9C38BF205D26C7EFF4BAC4B8ACEA939DD02F3BA16FB62C57DC895C0CF3121214796F4222DD854496965CCB26B2F9E74B9611D997012B89BC99314F99A72198AFCED7B995AABC5632C1F955E4BF0134A4ACEB]
}
Add(Icon,2801552,455,273)
{
Icon=[ZIPBE22000078DAED996D4C1B751CC7AF62C4F810B2E95C34CCCDDE010511DCE6D31C71213A976CBE519325CE69F4CD7C638C6F96A831822F8C2F34269B2F5CB244E21BB7D518813EF2503A98F270777D0416D918502AB4B4D4F6DA6B7BD787FBFBBBD6F2306C2985B567C29FFCF8C271DC7DEEDBDFFD7FBFFB1F86C9E0ABA10183EFFBB0CB720C7B04C33005046CC24E63E9EDE2689563DB637B6CD94008934929F2E0BD4B45E3C73434715E45E217241114FE753BB9AF2617B7929657A828A24F4D11020492482480FDCB5CBE9FD312E5708D3FC0BE49A970838FAC9A92BFB55EAE748EE087D4143E27196E92E8D39A895DEB711B8D7BEFD5A4724B0AB982B36A92389DCFBD2925CF535E0FACEF7566B4899ED3F88552E639DC67E035FE4EBE5E2F796E02CFC9FC3CD7D03548677A0A755B9E4706DB11641C3D86FAC75E43FDA32790D17E14F55A9B5097F919A4A5EB9086AABE235EE79BE75ABA36C567BE75164DCEB7A1799F01F9181B62D85B281876A250641E85C273F0F32C0A846E206F80464EAF064D38BF47E4C419D4633D9CFD1A483CAC36E59FD7F9E6B9E8E9CDB98BC03885383E8C62B1D8068247518E418B8C15D9A7BF407AF3D305CF2139F39C2456E57997F900F8A6463C1FDD20EFDA8872013436F3552ACF56CDD764E15EAFF27C459EF78F1E871C706D9A3913EEBF07E0DE6858E9B761335E6786F60651AE1E213E011F28A8B7963E5BB38D61A7435BC5FD9757EFD2D0B516F1D810FDAA21F9F1CD7ABDD4B78CD5DD237AD031F4C46E72F4BD3D3CCFFEB215CC3CCFC74261F7C71D43F5BBC5635F19ACDC29F67677AACF85737E08E78C6F01BB1BE260B1FA7338D70BC0EDDD2C773C1EBF2608C2CE62710783C15DC03D2C9E9BE3224238EA8B074237A31E3FC9CF2D76471C0BBF06A65D3F435C0ACC2EB4332E9F915B642C518675F0916820C1F39C00FF2FC67708A1B2E23D0FA1BB239CEFBCDB3710B64FB7B2D7C6DF8CF45A0F733A53631C6A6212E6B504D49454686905447D526F3AC01B6CCDFCE09FEF86A1F6847CC1313FC705DF28F6B3DCE0F8DB27F5A6FD213555B5F1BE91AC167A2D2F4E0C4D7E54556C6EED305107F5C151F8F300AEEAB236DC5F6CEEF6DF6B1ED45084AE206E92805CC23FDDAA797A23A305E6D94E926829A4D7558D1001E87B9A4BB55ED14911AF429F1C2CE079C0D66DAA79AC54DC7A12DF03DCE34B7D385595809A1D875E3CA13735267562D0F5B04D1187FB37B9BC1FD126D6E052718BBD4B9FFDE5B6918933ECB8E35B76CA7D29ECF4E8822EDF40C4E31FE617FC43DCBCEF2A3BBBD0199C74FD14813933F8C7F5538CC172E8FD52AF6D05C38E0F382EC489B564BDFAC87151017A5727CB4E35969A1B789E83BAE7D9402F3500756B47A9B9A1BF78085806F364166BFB37C5ACEDB96A3EB09C032E210FF630C771AF4B65FD16B84F4244F3E09E04EE2AA970038B029866F2C8930EF87CEE93CE7A397AC01F9AECF0F8472273DE9EB8C3F31B3BEDBACCCCB8AF304E8F2A027D6CCC1B30851876F62CEC2B9310B7ACD7DCF4193CDF4635541DF4870A4143D524D3512B68E927133AD3FE0583EDE84B527B47A126AB5E811E8FC9D14B5975D7158F4A8D1BFADA4AE01BCDB1B6FAA35259BADA9EEB995F95655D4E451111E8494E49F57D96DA841F044EFB2A76128F418E288D74F5C352E5167B722D59FD2C705FD450F8B0B88E03CC2D620EFD1FDE238A39A3B63FBEA387965728955819B63DB647E96A1D4289B5CA897FFC1CC366446DFA572B977F0FDCA699FD339A1035B1AC02886C8522D0B295DA8A61E5A2C2015AB2688A2F7BC8522AACD1B2F47565D5F2B4B666D38AB45EBD5DF7A67526A347D2CAB5FC979F19FD07E3AD6AE7]
}
Add(Icon,7815872,462,280)
{
Icon=[ZIP4ED1010078DAED5D0F7814D5B5BF9BFFCA9F041220A03E68B57ED0E2135FFB7C7DDF67C5DAF7FAB4B5DF07AF5FDFEB1F6BFDAC8AD50281646766FFCEEE0648040C89A5FE870A217F767766F66F1241C50854B0C243B05AB456B1D55AB5B5E9D30A3C30F3CEDDD9D9CC6C369BDD6477B361CF81B3776FEE9C73CFB9BF3377EE9DB9739710039946162CA882B484FCA9889057082155554A7EA18190BDC5842C5942205F41BAA713F2C71202C747F31584B454D3E395FC5DA5845C7D31210E07CD2F200B2B0C64FB6708B9EEBA68FE7A429E5B6488EA5B40BA3F47C887F718C8C2854AFEAE79843CD06688EA8772D03BE83590DA5A25DF7C01219D4F19484D8D927FA28C907F7CCE10AD1FE4C1B63F1E067DE003A820506DC40F4A8E2212A32AA22547E43F353A92D07FF44FF0D1DFDF0F7F9123FF892C2B09FD47FF443FD2A4E666AEC9A17C2D67819A9A9B9BB57928E7EA9297C7C97371E5CDB4BCC211CD735CA4BC89D3955734B3755AF9E66696D3E8AF686A62D9BA58FD94E857D53E3884E6D968393D8453F3F03572C85079132D6FD2970F1D1F916F6AD61CAF2F6FA6F29A72AA9B9A5C112B8FD40F1E46E5A9028EB680B69C364F4C3EDA60156AB9521CD5902E9EB286083F4812B2DD4E88F55A42B87F20A40E4EA05BCB52536E00438B21FECA4F12523940C8FCD3842C3DA7AB736134961768E2BC9F642FCE95C6A220291116696B9A46F34D004D5D45E4EFCD6CB9D2FE4A1C2A18523C151C943C05B749C9473055B154EA696A1E6A67A5096853A85C762B21250B92371D95A1B2B49DA0CB21B712A59F8AB4C6855A81A1AF7686253C9C103C67220EE0468B95345A6DA4C9E124CDC09B5D8DE4C19636F2D09636F2E8D6ADA4FDB1EDC4DDDE4EDCBB7611B1DB43FC1E2FF17B0512144412967CA4D71F24BB8361F2EC537BC92FF7ED232F1C3A440E3FFF3C39FAC261F2E2E12324F03B991CFB401E6AE7C55712F2CD6584DC053DC18656423AFC84EC3F4AC85B0364C65F6572D5DF64B2FC2399ACF9BB4CDA4EC9247006E4CF6AE4AF840E77D9BF40ACDD4448EB8F09F19B0839BA8590814E32430E93ABE4BD64B97C88AC915F226DF2EB2420BF438EC9031A7988D165D0E1D67D16E41783FCD5200F3DE9C03740FE0720BF06E49B407E1BC80741FE79907F33265F04E69780F965607E05987F21983F05CC9F0E582C906792AFC857911FC8CB8909F43C24B7911E39407E2D1F8BC9D780FC67417E09C87F05E46F02F9EF81FC0A90E7E4196423C83F06F212C8F783FC71907F5B237F39C85F07F2DF07F906906F017937C8EF03F963207F02E4DF00F93F80FC7B20FF5790FF44237FE5E5E0FE57C1FD1F80FB0DE07E0BB8EF06F7F7432C1D9F41E4135711F977CB89FCF61A22BFDF46E48100913FD1C8C3B56919345D1D045C2B9CF6FE6F813CE81AF809C89B407E23C86F03791FC83F0BF2C741FE1D8D3C5C6F97C1A95C07DD442B5CEFFC10A747A7823CC0222F9849E46B41FE66903783FC8320DF0BF2BFD6C893E964199943EAC867482BF902F193ABC951B8120E901B893CE3FB44BEAA8EC8CB371079CD63446E0B12397088C8C7DED4C82F00F9AB41FE2690BF0DE439906F01F95D201F02F9BD207F10E4A1CEB6D741FE1D901F8A9FC5A0E19BA0E127A0A1093474808603A0E12DD030304326FF7B954C3E5E2E934FD6C8E4549B4CCE046472F6D850FC5E04F25780FC5290FF4F90FF31C83320DF0CF20F837C27C887417E1FC81F05F9D741FE038D7C45B4056681FC4520FF1990BF1CE41783FCB520FF5D905F03F29B41BE13E49F01F9D734F29399E668A936D111532FD452758D8666253ABEAC484B9AA3AB53391EF5E744FFAC0BD2D23FBBBAA4220DFDB36BAA4B8A2A52D63FBB1A8E37A802A3EA9F4DBFC3F145E529E99F5DA31EAFD4308AFED9F44BF4F8480DC9F5CF56FE103D9ED6904CFFC5B3D5EFD1E38BCAAB4A47D45F3D94891D5F545C3482FE6AEDB7A1E3E348A7BF2681FEA2F35E7F754DBAFAABD3D63FB3383DFDF3A615A5A89F364E354C7AA7A7AC1FB4D3B8AF4C45BFAA7D448161FAA3DA4712D01DADD53E82409C7E8DF6C4027A6B74DA130AC4E99F17DF7B568EA41F626098F60402BAEBE9C589FAE71953B4D7D3C93E7E88CE64474C49B12C47E697194B0779253DB754494FCF57D2814A253D59AEA4FDC54AEA3028A97E9E9B3D32446FAF1447ABA333CF48A00C28299D945382897984E8845F9DB15271597668FC1DAD7DF5F7ADA2F3D49214E6A99046E6AA662B5967B145E6A9EE5D30276DEF20DE8E2E2202FBBDDA79A904EC273D7E3F792214222F1C7C9E1CF9D5AFC8D1C330277DE1083906F3D25F1F3B46968760ACFC2CCC338FCA384FC5792ACE530B649E5A3543A19971931195AA54D297C7AE9B79565E333D69F9ECCAD20B9394CF9A51596A983262F9AC2A5A5E326584F2595591F2A21238358A8795CF8562A5BCA874EACCE1F2D555B1F2A2E28AE1E5559A720DE5B6BC6AD4F292A4E533E75C509AAC1CFAF8E9A52397CFA1D0E80F18561C77C0F062FD01098A75070C59AE0DBF69E5EAF9919B715ABE3C7750C629D7194619A7982CB1714A4B5333D9D27C2F69BD7723F9D97D2DE4F1471E213B1F7B8C783A76119FDB4D82DAFBE73E18A70402304E0992277BFBC8537D4F906776EF26070F1C2087800FC278E5E08BC7C961E0975E3C06E396E3384EC1710A8E53F2709C326FDEBC8B62BD2550B477A73485F6AB9543F90BD57E569B8F9657038C534AA2E573E8F5BB62A8BC6616BD1E959769FAE9D8F5A9322EAFE4AAA697E8CA675E5259AC96575656CEB8046A2C8E964336721F6066E40FE0CFDCD89D75F067783F3DFEE7968E687F6A2051A10A03414242424242424242424242424242424242422A1CEA91A44579C33EDF22A9ABF3F3614FEFFC5F1E7CAEE47C69E3F6AECE52A7C974A99DE316F366735E7140145FCB170E4658782D2448ED8150B0E67CC1BF6DC386B97696156D0CF35B3B9B5F1C122539EF5810F7FA83C139E70BFE5B366CB804CEFF433CC3C93C9B5F8CF8E70E7F3BE28FF823FE883FE28FF823FE883FE28FF823FE883FE28FF823FE883FE28FF823FE883FE28FF823FE883FE28FF823FE883FE28FF823FE883FE28FF823FE883FE28FF823FE883FE23F2E7AE0A1874A1FD9BEBD14F12F3CFC9FDDBF7F8A77C78E5B9BD7AFBBA369E5CA69887FE1E0FFD4DEBD53429274B7D4EDFE83CB6A7DD7C559EB36D5AF9D86F89FFFF83FF9F4D353C282747748F2BDEDF70AB2D36496ED2CFBEE3A0B5FB7A9A17E1AE27FFEE24FB10FB8BDF70404F1ED1EC92753FC5D80BFCDC8C83C67CA5A0C20FE138F7F0C7BAFF00EADA347F2EBF1A7ED0131E032DBD76CCE700C20FE138B7F3CF694C31AFCED0C136B0F3BCBFDC965CF6C0C20FE13877F22EC93E11F8B810CF60388FFC4E03F12F6A3E19FE91840FC738F7F32EC53C13F933180F8E716FFD1B04F15FF4CC500E29F3BFC53C13E1DFC331103887F6EF04F15FB74F11F6F0C20FED9C73F1DECC782BF3E06D2BB578CF86717FF74B11F2BFE6A0C384C96B59B1B5AA721FE138FFF58B01F0FFE4A0CB01003668881966988FFC4E13F56ECC78B7FBA3180F8671EFFF1609F09FC6331C0410CAC4D1E03887F66F11F2FF699C25F8D81462BC440EBC83180F8670EFF4C609F49FC233160841830430CB4248E01C43F33F8670AFB4CE3AFC68063841840FCC78F7F26B1CF06FEC96200F11F1FFE99C63E5BF8EB6240331E40FCC7827F604EB6B0CF26FEB118B00ECD0BB634AD47FCD3C1469022E73F5DA79B0DECB38DBF766EB80962A0B509CFFF3479AF57122F0DBA85AC609F0BFCD518709AD8FA8D36CB175C66C43F0D3E141645675094DECE5A1F9303FC2331C0B07F5A67E55B9C16EB4BF9867DBEE21F14C58F00FB81AC5E6372847F745DF1C70E863D85F8E7D1182397F8E73123FE883FE28FF823FE883FE28FF823FE883FE28FF823FE883FE28FF823FE883FE28FF823FE883FE28FF823FE883FE28FF823FE883FE28FF823FE883FE28FF823FE883FE28FF823FE883FE28FF823FE883FE28FF8E72BF7F8B4F8B3887FE1F120E0FF7B07677ADB6E640611FFC2E1A0200E42FA728FCFF75F7696BDD9CE72AFF20C3788F81706F6C02F87C5C032C9EF2F6BBDFFFE7287C9F45D9E3315640C1422F621C1BFACDBE32953F767F9F9830F963BCCE6828C8182C4DEED2E4BF05BA0051903887D61C700625FD83180D817760C20F6851D03887D61C700625FD83180D817760C20F6851D03887D61C700625FD83180D817760C20F6851D03887D61C700625FD83180D817760C20F6851D03887D61C700625FD83180D817760C20F6851D03887D61C700625FD83190BFEBF3273FF693210602A2F85A3E7010B847F21DA0EFE5B8BD9EF3067B951E7CE4E1F246B3FDBF1D26EE908D617E6B67F3837B2469515EB04F5AE40B0616B4B46E2925E7295979BE6C9DC572296F322DE6CDE6BC608284848484848484848484848484848484848474DE929CE7446D34285F1DAACD98CF797E90D7E7CF2DD5E74FCFD7E7072AF5F993E5FA7C7FB13EEF30E8F3343035F94142786DFE1C214BB5F9D384CCD7E60708A9D4E64F1252AECDF71352ACCD3BA21F6A3E72660CE507E9273F943F473F970EE54FD3CFF943F901FA5939943F493FCB87F2FDF4B37828EF18FA8C7C531207F64E482390212E388AFBF5F9F293FA7CE5803E3FFFB43EBFF49C3ECF0FC65F26F4D56BCECE48F5B2AC3300CE769D01D01BE80C80DE426700F4263A03A0B7198CBF4AE9ABD719504CF3FDBAEA750654D2FC80AE7A9D014B69FE9CAE7A9D014397A284FD63B192EFD7551F3520DFAFAF0BC1C6EBA29D8D812C501CB81E4F302424245D1768C8144F469B3BB66F776682BB7FB1F39E2EB77B5AB67DDF545F3F7DD51D2B56DD71F32D8D77DEFCA37173746DDEB8392C4AC7DC5ECFDC6CFBDF64B75DEC60CD2FF36C64BDDDB83963EB1C05F1B85714B3EEFF46A7F362B0FB95BC5B270AFE0B39F07F13FA8FFEA3FFE83FFA8FFEA3FFE8FF24F55F997B6CBBF4E1B6B6CF0DDD1A2E0CFFA9EF5257D715DD3BDA9FD9E45ABFEFFE4D9BAE4CB50D26BBFFD4776FC7AE2BFC6EA11FE64D9F3A18F6D3263BBF7F6B4B4B4A6D3099FD8FF8BE6BD71552B7A73F2CF93E05FF65076792AD0DC64F9B79C7FE9FA7D00693D57FADEF70FCA7E0BFACFA4F7FA7CE6664526A83C9E87FBCEFCAEF34EAFDA7B6A4D20693CDFF44BE8FE47FAC0D1CCEFDAD9B362D49D406F9ECBF5710E6A6E27B32FF29DBA10DA04F3CD0BA79781B6C6E74E5ADFF1EC13B3715DF47F35FDB060FC5B5C17DEBD6E5ADFF1D5D5D7353F13D15FFD57361435C1B6CDDB8316FFDEFECEE9A4B7D173A92FB9EAAFF6A1B44CE85687F90AFFE0705E1B867BB302FE8F58CEA7B3AFE6BCF850D2ED792CD8D8D97F0AC290FFD975E0A7AA5AF8724DFA8BEA7EBBFDA063CC31D68B4DB6F8231E36FF22FFE850F681BA4E2FB58FC57CF0538FE04E0FFE164DF27612CFE9F4FFB44A0FFE83FFA8FFEA3FFE83FFA8FFEA3FFE83FFA5F50FE9FEB91FC7B6D0D6C3FF87FAEC0FC3F1716A5D06EBFFF32A7D97439CCEBFB787662DA60227C0F096228E8765FA6DED3B4B18ECB1DECC4B4C144F8EEEFEEBE2CFEBE3ECF3927A40DF2C1F7896C837CF17DA2DA209F7C9F8836C837DF73DD06F9E87B2EDB205F7DCF551BE4B3EFB968837CF73DDB6D30197CCF661B64E8FD9788EFBEAECECBB2BDFED1C6F097F346AECFA6CC99C6FDFE4B26DE7D72EF789C913A3A3E9BABF7BFEC2C73D9CA152BB84CBCFF34D9DE7DCBF43B70F80624125241BFFF3BCA3E3DEA9E0EEA5E0F594BCF2D55D2D3F3957440D9DCA2F264B992F61747F75F89EEC34248249D4E481D4DA712425748910A42AAF2BAC9D53D3ED4BD3DCA4F2AA9BA9787BA8787BA7787BA674774A70A758F0E756F0E754F0EB51D55BC94BD3752D9278236DBAD64689F08C7E7F0BC40CA2C05DB77D6A4C53B77D6488140754B6B6BC67E37625777776993B1A1DAEE72D6F0697248F41F4987C382EF48D8E7DF17F649FF94B1F98FCDFACFB606E301BE81FD9F74794C6B1A45E96F7E41B83653F6AFB35AAE8779CB47B99AA752FB7D823763F6AFB75A27B5FDEBD07EB41FEDCF3BFBEBD6AE296238AE6832DAFFC6C993A562A7E7FB1B1DEB7E68B5DBCB2693FD275E7BB534288AB7F9DC9EF75C2CF7BE9D61EEB03B9D6593C1FE1DEDED654151B82DE495DE8BAD233132EF3B38EE0E7E041FF2C5FEDFBC7AA234D82DDC1616A4F786AD8361B8F71DA6C43E4C88FD5EBDFDD476BFD7735BC023BC37E23A1E8649E8C3FA09B65F8D19D5F6A4EF2132DC07F13E4C84FDA2DB7DADD2EEAFC66226E575540CABC361A2ECA7B66B63269D7560606F0407DA2F4D84FD7E49FA5A7CCCA4BB8ECD1EF501ECBF01E22A97F67F0CB66D0BC5C5CC98DEC363E17CE02CEDF0FD939CD9AF3C5B3A9BB1F7E8584E7D669437EB0472B50E12ED47FBD17EB41FEDCF3FFBFD5E6190E74C8393D17E983F9EEDF1FB03B67A63C86664CE4E26FB838270362C49DD4FF9F75E646DA8BF8467596FB67CC886ED21B03DECEEBD489D9F345A2C97C0FC372B3E64C3F65077CF4509E6B859F12117B667D3875CD99E2D1F72697B367CC8B5ED99F661226CCFA40F13657BA67C48EFF9A9EF08CCD921951E0B758DDFF6D8FD2B9BED122767FA85C398FEF3D3749E5D0776EEA879C62755077AC21766FA39FACABABA298E4657DACFAF710502D2F8D7890D4F63CB91C69D0E2A3FC46538A7FC0097E1B4F2C35B8601E507B70C27951FDA32F42B3FB06570447F5E6BA27F502BB3CBB9466A67BA4E8BF232CD3AADEBE6615C6621CE73BA7E3ADDFADA1FDDD69A1A6F6FEDFEC5F6D54FEDDD5B3156DB36FCE8960B56DDBE62CD1D3FFC61DB9DB7A4C6698D4FBCC281706FEFF4B1DA67E6F92A18931CCCD6388ADAD7B7FB8931DBC73B9D550E96CDB27DBBD13EB42F2FEDF3854365F7B5B595E7A37D874461AAD8D1655B67B1F3F7AE5A352D9FEC3BE0714FED09045C0141FCD8C1727FB7D733EB5735344CCB07FB0EB8DD534382CF1592FC1FABF79D6D0CF37787895BBF25CEC65CDBD701B685C136FADC77D8FEDA2C0B369AD6AFD6D8980BFB7AA3F675B8BBA7F6FAA0DDC0B691EEDB431AB1B1256AA3DDE5CAAE7D8278A077CF9EE9BFECEA9A1AF64931DB92AE0B8176E401EBFBEAEBA765DF3EE9C0D381C0BC902445304DF5B947046B8E5BAFDCB3C89E7D01AF7034200AADA138DB525AD701E7B58BB36CE539EE7816EF039D89F2D8F65F66B9FFE315CEF97DE66C3DD742FBD03EB40FEDA3F68504F17D1BC3BE9F97F609E25BBB43C16F5BEAEABE63AD6FF87D3ED9476D0B098165822415877A7B8B2DAB1BBE6D6D30FE3E2FEC03DBFA02FE65DD1E77B13ACEEBDBB3BBD85A97191BC7D56EA2F45658149777B9876CCBB48DE3C3D4BF2C916D99B4713CB67527B16DC8C63D60E3EA31DB984DDBF4368EAD1DD3B5ADCF9F1CD391E88931DA98EAFD49F78EF6166F57D70D1D5D5DC563BDBFF1C4937B8AD7DE7DF7377E7AFBED5B52BD3F39117B63E07E1C397E4EA54949A5F2563C2957DE924F3F7D379AEE8FA6CE684A94B42CF2EA3C2125D1873239A7DA687A4D34B5AB2D117D3CA53C5E22C5CA6E0131BFE62BBB04C4B7177DC6441DB94EF39CC9518571154F41AF746352F64837F608DEB4F7445A6FB55ECA73DC37226C1A99616C7D2A198724E993A0E05D9BF63D63B389E119EE13BB913D958C53B8FE0C86042F3386FACDA9BCA380F54FDEFA77EC6AAFDADCD2523511F5EF91A45AB1CBF3F83AB37987D966ADCD65FD3D1E4F6DD8EF6FF77B85B30E863D6B596BECE09DCEDAECD52FC4EAEF71BB6B8392D40E7F3FABF9DDCDB3702E77385CAEDA6CD6AFD42DB6D37799C2925F775FC06E64C006AE83B398E766A37E6DDD23DF7767CE3A233658E666B47E51BC2F280ED59DECBE886A03F4FBF767A87E60F183F8F7C792DE37879874B0DC5FB23ACFCCD07D21AC1FEB1F47FD91DF5D9E98FAA533BDBE60BBA57E6D07D4FF7F39AEFF4C58901EDDF3F4D3357C5DDD2C9E356DB3A7F97C671CF59F0979A547433D3DB1B5A81B386E16C4C1986C184BDDC17068D83AD826B3694C3664A2EEF1D8905EDDE151D7FF3699D2B321F9FC43381516A58FC2B4EE9E70CA6B8F151BD86D30FFF818AE8749E71FA3CDBD4201FFD73ABA3A67A63DFE6D74CDB41A4DFF9E6CEE4519EFB34457A6D265AD89F85A2B21D75C43C8972F2664C954421694A4BFAC962EA9A5CB69E9525ABA8C16F46AF72DA483D6259AFB14B75E90FB76A0E3CB780EBBBB6B9F1484D9070E1D1CD5E99B6FB9A594B39AE738EA5DB57CBD73180704F195441CF40AFB831ECFA83B35BA2C96854E867D8E67D957786E388FFC1C85EE99202E1E4DBFC36A59C21B993FA7DD4FA5A89FB74C1EFD8FEF6A5FB0F5DE7BE76743FF9E506891CFE379C6C999F69A8DC68599D4DFE3F32DEA917CFD01AF306867B8412BC33CC39B4C0B33A13FEC9316850491FE2632DDCB42E6E97AB106E3A09DE39EB1188D8BC6A3BFC7277D87EAA6FB64A8F34A5E9D57326CA40EA789FBDE58F407E83D34417C83EAD68E5B79FD7A2DDA5E6FC2F7D3E31D2724D29FC97108EA4F41BFE4FB839561DFCE86FE3E9FFFD5BDBDBD5FB73634DCC833ECEB99D4DFE3F7BFF65430F86F6B8D0D4566ABB508FAFA1B600CF57A26F4ABBA57AF5913DB9FCEEE74A65C4732DDBDD026F1BA356B3353AA23EC154EC47348104EF4F97CCFF50603A0BBAE28C9FAE32297D9FC1F3CC31C025DF477C587B12F109817CFFE50705E5FE7EE9A9FAE5E35EA9E7D0E97AB88A1E3DA8686797C02CEC1384D791414CFEF02EF0776A6F9A8E99AE82326E5DDA4C8F3A29AE87323751CD65A9683E72F82F0AD61ECF32DED70778F58FB433FB9ABDC61347FD5C559BEE562F51C14C5D3F1ECF708479ED3CC5787BD1F63B1CCB131A6176D0C73269E47B8A61CEFEDEC9C3562AC3434D43A58EEE554CFA3802025D5E7648CB530A74B4B5F70E78E59EA33EB5DDBB77FA16DD3A6CF2B6FD911D26CB5A6A94F047D3B67515D92DBFD25A1A3E370B3CBF5C2FD1BD67F91EA6CB6586A9D69EAEBEBEE9EED17842FF9BA3C47E8B599EE1BB2DE623FBCC9E1F8229C4F739D6C3AFABC2FF54A9139E311E8FF0735D79741E8770EBBACD66F82EC2B29EB13C5BF40FA5B3AD64970BDA2F7745FB7B1DC5FC7D20FA77BFD3B4FF47D6C8BDC0BC8803E41FAF3EE70F81EAE6EF56A180F7E381E7D6141FC73589256F883C132CE62298398BBC7C1B01F8E451FD51592C4156E8F27D66FDDBE624579236749AA53B3B63BC641517A1FC6DC2BBADCEE617DE09D77DD55EE62CDF7D859EE0368CF33F11C147CCBF4EC5F16F249D724D215EB5FD635963958E65A2BCB2EB7C571E6AF6303C4709AE8399D371BE92A8D01458EEAA2D7ABAAE85A87D8FBB40966EB32CB1469F9E6B56B471E4F381C45F1DC11EEDBAEB208ECF7FB571F7CE1856135D978BEC46E34D6F146E3769E19E2E1EF9478433DBB770F7BA7EAA1471E29B7D4D7F78C1677543E180E0F937FF0E187CBCD6BD7A6281F2AA77D7AE7A38F7C79BDCBF9AF268BA588D69FAA7CFFBE7D15FE4EE1AB4267C70987C97CC2B266CDF53F7BE0810B606C3CAA7C40107AC282704358144FC4DE3F6A309E709ACD37DA8CC6BE51EB17C437E13CF95D82E7106F009F4CF9BC4DF1394656E5BDC239984B9C1BA3FCA93E7F70ABB9A1FEE75626BDF96B58944E05455F8B2F18AC5CB76A55A59561B6D846980327928571464BB7C75DA9C6DEBD0D0D955636B10EEDF9D321F8B67B3C12F3F8AEF6CA61F7B956AEAC34AE5AC9B2AB56EACE1FDDF9BBE2CEA2646BEC68D9EABA3ADDF94B6F3FD2DB902AA77BEBF2FF015E5F527D]
}
Add(ShortCut,8236769,609,413)
{
ShortcutName="my_prog.lnk"
Point(Icon)
Point(doRead)
Point(onRead)
link(FileName,9694969:Var2,[])
link(Icon,9954888:FString,[(643,376)(671,376)])
}
Add(Button,7334027,539,413)
{
Left=25
Top=25
link(onClick,8236769:doCreate,[])
}
Add(Application,6007279,609,336)
{
}
Add(FormatStr,9954888,665,273)
{
Mask="%2,%1"
Point(FString)
link(Str1,10868820:String,[(671,264)(657,264)(657,313)(622,313)])
link(Str2,9694969:Var3,[(678,264)(706,264)(706,383)])
}
Add(GetDataEx,9694969,609,378)
{
link(Data,6007279:AppFileName,[])
}
Add(ComboBox,10868820,609,266)
{
Left=150
Top=25
Width=60
Height=21
Strings=#1:0|1:1|1:2|1:3|1:4|
Text="0"
DataType=1
Point(doSelect)
link(onClick,9954888:doString,[])
}
карма: 22

1
Голосовали:makcum15
Редактировалось 3 раз(а), последний 2022-01-17 00:03:59