Делаем своё радио, как найти поток гуглите а как добавить кнопки смотрите в схеме мне не жалко. В форме поставите свой фоновый рисунок для красоты.
Код:
Add(MainForm,2953706,259,203) { Left=300 Top=200 Width=378 Height=186 Caption="РАДИО" BorderStyle=1 Icon=[ZIP3E42000078DAD59C0D7414D515C73789A4950309161A3E44A2203484100809811C1B4840C008892410BE11EA910FD98D4640F11C04126C2B36506955AC42CBC909A5A73DCA918AD20F7A408482F25D40A8E540103890847C6E12766776E6DFF76676927DBB33BB93D919C0E1DCBCB01FCCFEDEBDEFDEFBEE7D8BCD1641FE6465D9C8CF476D09E36CB6389BCD9640843C642BB1C98F4B1779E062842C77EBCA5D8C1EF945282828C2EB2993F813F1E99CB35F0AE7EE9DCC0971896EC40D76A357925B7C3885E3E2D3B8E68119DC9584B1FCBF863EC96F481F8F41B6EFE135AD0829D31C282B70E03411810846E67AD023C1DD61E93782BBF3934CFEEBE4899E59F73373E132749966C772C27A8EF2FA8A51767F792485732566F39F8CCA43CFFB857B6A31BA11EEB584B3D69FDB4C765FA1EB252193DF3F2A077DEF1D3922C8BA7E963056A9715349B780DD577A9379481CC3FD997C96A8BBBABE5F40FF7C070E6A715BA5772D891FC935A64FE233EF0ABB035389D41961EF3BDC8D4933383C3593937E377B4D248DE7375B69EF5E9F8E60A266F33D87B851F69E072DAD68BBE8EF9BDEF7A06FB2B9F330E8A7FC71B3D74356091EC8B7E3F7A1D8B5F4BEF36301AA9728E2E2370DA6AF87012487C8CA421733D8172F4627C2F69911BD5399329783E645F85B6AABF05AE91DF3E760347F2B35179DC3B5F9023BB687D4FB546D5FF741B987413E7844C0FEC302C37FF264A3257EB17F06773535159D8CD293F8B629147B6ABE079D5FD7E6DFBD97B5FDE42C0E8346BB19FEAB97EB2D8B0D8333F9A346D849BE3E5D8FCD777D9647E47E113D12D5EFFFE9DF597ECAFE581ACBFFDD957A4BE363D2387E638772BA220C207C0D7A7C5DF487026C27819859BCEABDF7FCF3DEF393F8230E7F92CFD2BDE61D3814929DECDBBA2EE2613B0E893FEAAF221E1AC3B1F9593287D2774454EC8624EF960B52DC1F388AE5BF75AD0E8FA6B92C9D83C7D2F97AC216A963EFF65C30F6A4E7C87A5FE341D45E51E26684CC45F476419A975EE91C26FD4C6C7B5F06F1137396F2923D389B59FF2F4B356A6ED4E1E34F9A313CDB9AB91892EDD9168C7DF20B78887CD6EA60FCE3570303B7010F7E0155FE4E1502629779307E493BFBFC620167CE8B9AF12F506AF0D1AE66C4259A9C230EE58427F2D02788BF2F0DE5F31421AFC5887708F309AFFDEF21F69FCD4936EFABF75F10FB77BB83C77F2DA17E2121C35C5B481CC3EF5363CF7B155D43E5F56AD26BB7CC1F339B0F60FF6D0520A8A47EB5752C7F33D1B7F3768DEA1C5CAFAC333547EE49F609C3A6E0E100DD3BB0B2A3EC54466D24BA276BA1F770C2BEB09D7DF99B00CFA63EA8AA11615FC507C47FAA676AEBC5AB5B5175BD2E600E8E1E6D32D70F8CE37705C47B07CE1AE17FE62520EE2D8161273E1457AEB3ECE72E8848F2C68760F18FCEC3BF0F3705CCC1F485E6AD035A47A271CE674F9B66845D91BC22F6EF6F7E10A8F72199EDB1514FFCFFF66203C36FF63E29698267BE0FFFAFC3E1F79713E759FEA5AFB0B9911EFED13977A498E81B13CCF4030963F923E1DABE9ACC2C065C3EFEFEC64D11BD86B83BCC4FE5929F0DD85F6D356F0DA472AD92DF5B8A38F2B945B3F8576C6075BFE323213017D3C94F73215FFECD5B5ACC8D85D9EE21C4F6A79969FB6F6C61F94BCBDAF7868F90DC7718D9FFE9E5DFB295E5FF0BC989CCE44F9EC8FF9C7CE67566F26FF890E55FFD4B4F5B0DECF37D026E558B98BA80D7C5FFE9674E867F5BB9B9FC83B3F87D24EEEF34937F5519CBBFB542E6A7A372B95CD0C5EF9F0B2C7959BD4ED46D2267B43E5249ECFFB899FCF35F013C3E39DFE5AB22329EE6DA9955F25F357EAA6B5F7627F1FF7D86AA70907D68D47611DD8719A89BA7734EF2992BCDE4A772F65B1673F6121E93E772A8AD0FCD4FF77E870E3B03F29FBDFF70AA32C44EE660FB1CE83A87EF307F9F148ED7EA5B852334EFF7BD2E5E1225DD8DCEE150F99DA8BAFF69ACAE45031136E6CB525F558BFE23D5F3BFE85F0912FF03EF8B922D74A8B79A26F1BBCDE62F7C11B855C3CE01AD834A79C7131C8E9F1175EDFFA834D5DC46CE4C3F769223C74CE511BD516657A4D3BB22620A79744FD211FF477098F2BCE8B6825F2D0E10542C7C51B6D141196E5DFC572ED54B7920E3EBC67188FA83C870FB4BD40E11B14F73C1D91749FB159715F6AFC897C7D939686E01261406C6FF96BA6A690F4C6D9FDAFAA9938D58BA22484F80EA3F9FE87F938AFE6704D7BF0F3B0A8A506385FF5364EE0AE0DA4D760E1A9A80DC799C69F5CFB6F5FFBBD0EBBF5FAA0FBB2C97CD8E7FFE52F406E06C095EFF08875FAFFF67F4AE4811BE26E39FACE4A7B26C8DC0F43EF5C47FDDA223FEABB253B16307194BAC64CF9A2D48358D198BF8C01CC8A4FA7FB0FC4F935D96357AFA3CE1B22B9F256F3E27F940B3F90DB2D31A6E81D9FB5F2D76DF7E7040FD9FF8FFD74A5BEF2A3B65A667F3BCF58F7366B2672C1182D6EEFDF77FCA1CAC2A35677FAFE2E70384F8FD5356D4BFA8DE3B933D6FB7A7B4D76440FCF7998370ED4087DE15FEB2B6FAD7328C34CDE649EE11B94FC483EBB57BE2034606CBFFAAB1C071C752766F8D3AC58CFAB7FF7A8F99C74BFD10DA13EFAE52AFA4E75D73160A41F35FBAD71D976F1D7BBE03E7CDEA7F28EC3F1EEE4617B2CF8D3CD0DE0FA4BDC06EB91CC33E66A680B92B59FF27EFFBD8FE4FED2DFD3DE18EB04BBAB763B93F7F4E11628CF4BF2638C85EE33D01914754FAA15EA1BDE2AE453CC6CE12E4BC786560FC5BB1B6555AFFBE73F0E521A729BECE4F6A69AF4FF5CC8703EB8DE83F773930E23740F7BFB1DC115F013F7C9BD8C0741E63BCEC5AFC94A57C674BC05A9832C7659ADEBDBA5FAB7986F965FCC8BB2732EC071EAF68EF857723B9B962F3CCBE68A576FEF3BFFFB235FF33A71A4D63A76775E979E5A0E77EEC783E1CFE29842DF21810BD5550650FC54F6B1DBE35A06695BA9F4176AAFB053ACFBC1D0E670EE27601B10B7955F650FC546E54B275DFDC79AEB0D9E97965DF9E67B8E79F829E0F5A2F2273AEA05D17F0E3BFE677FEEDD8B126D5BE97015FA748033DB3DDA1B37F0E145AB52FA2FD718FA79DBFB1E63663E337AFB1FA7F66BECBB0DEBDF79B6DF00CE0DB56CDC1C5CB6CFE43FD5EE95BADF8E2205BFBA6EB3F3E2D0C769F3CD7D0F95707CAADE0DF5CAEAFFE7BE060936176DADB2A29097DE62DE8F77A4A10ADE7FCB3913570F474707E5A0B9D532C18BDC71E7A76DB94EF36913930BB4F4865463170E1825395BDEA463DECEB0DB3FFD12C76E5A27664953F58B141C0BE83AD38FD9F661CFEAA05655B79C3FF163DB31DAECD87C88FF2C97DEAADAE997658EC68CAB7E3AE7C47B070191E0F374732590ED19CE51E7DFFADFA1E72D792F8F69295F61ED216C89E899E9B35B277361C3BE47B95D0F3CAF7CBF74069FDC05B43F9C62A6E5AB7A1F7D0DABFDF2F17AD277A6BAA67C3ACADD3F79EA53E9D9ED1FC3E7E175CEA2FC83D9675DE5EDB096FDF91DA3047C5FBFB65FA1CCD33688D829E4BA3EFB5DC8B01D20FC065B3C5D3F180CD1605E961E9090F1DC74A4F4B2F68A063ACF432E985F43F18B045C82F276F10E5719D327AE471AC4B1EE31BE43156192BE5F107CA78401EA3FCC688128DF15EEB57EB73697044F9F3FACF87324FCABCF9CFA732CF6DF3AEE841D18BA227456F8A1EDBF4AAE859D6FBFF01B1BC4F76] Point(doVisible) link(onCreate,12832085:doEvent1,[]) } Add(BASS_StreamCreateURL,990423,581,301) { Name="zzz" } Add(Bass_Init,12592060,364,217) { link(onInit,1195975:doDevice,[]) } Add(BASS_ChannelPlay,11740754,266,42) { Channel="zzz" } Add(Hub,12832085,315,217) { OutCount=3 link(onEvent1,12592060:doInit,[]) link(onEvent3,16725378:doEvent1,[(341,237)(341,149)(177,149)(177,48)]) } Add(BASS_Device,1195975,413,217) { } Add(Hub,16725378,189,42) { InCount=3 link(onEvent1,11740754:doPlay,[]) } Add(BASS_ChannelPause,16002805,266,98) { Channel="zzz" } Add(BASS_ChannelStop,3472873,266,154) { Channel="zzz" } Add(Memory,11154887,511,301) { Default=String() Point(Data) link(onData,990423:doCreate,[]) } Add(Hub,11320536,455,301) { InCount=7 link(onEvent1,11154887:doValue,[]) link(onEvent2,16725378:doEvent3,[(481,314)(481,188)(170,188)(170,62)]) } Add(ButtonRush,9570436,224,301) { Left=5 Top=50 Width=85 UpdateSpeed=5 Caption="ENERGY" Data=String(https://pub0201.101.ru:8443/stream/air/mp3/256/99) AlphaBlendValue=20 Glyphs=[] link(onClick,13456302:doEvent1,[]) } Add(ButtonRush,11738240,224,343) { Left=95 Top=50 Width=85 Caption="Европпа" Data=String(https://europaplus.hostingradio.ru:8030/ep128) Glyphs=[] link(onClick,4680628:doEvent1,[]) } Add(ButtonRush,15863970,133,49) { Left=10 Top=5 Width=90 Height=30 Color=65280 Font=[MS Sans Serif,8,0,65280,1] ColorTo=65280 Caption="> Пуск" Glyphs=[] link(onClick,16725378:doEvent2,[]) } Add(ButtonRush,2586193,133,98) { Left=105 Top=5 Width=110 Height=30 Color=65280 Font=[MS Sans Serif,8,0,65280,1] ColorTo=65535 Caption="II Пауза" Glyphs=[] link(onClick,16002805:doPause,[]) } Add(ButtonRush,4040654,133,154) { Left=225 Top=5 Width=140 Height=30 Color=65280 Font=[MS Sans Serif,8,0,65280,1] ColorTo=255 Caption="# Стоп" Glyphs=[] link(onClick,3472873:doStop,[]) } Add(ButtonRush,14874788,224,385) { Left=190 Top=50 Width=85 Caption="Джаз" Data=String(https://mc-mcjazz.hostingradio.ru/mcjazz96.aacp) Glyphs=[] link(onClick,4295968:doEvent1,[]) } Add(ButtonRush,6609863,224,427) { Left=280 Top=50 Width=85 Caption="Шансон" Data=String(https://chanson.hostingradio.ru:8041/chanson128.mp3?md5=xNkISERGLJmuCYeuyXylqg&e=1664540482) Glyphs=[] link(onClick,8681246:doEvent1,[]) } Add(ButtonRush,11052600,224,469) { Left=5 Top=80 Width=85 Caption="Рок" Data=String(https://radiorecord.hostingradio.ru/rock96.aacp) Glyphs=[] link(onClick,5367688:doEvent1,[]) } Add(ButtonRush,9203776,224,504) { Left=95 Top=80 Width=85 Caption="Ноч. Такси" Data=String(https://c24.radioboss.fm:18237/stream) Glyphs=[] link(onClick,2310622:doEvent1,[]) } Add(ButtonRush,3985586,224,546) { Left=190 Top=80 Width=85 Caption="Микс" Data=String(https://radiorecord.hostingradio.ru/rus96.aacp) Glyphs=[] link(onClick,2350814:doEvent1,[]) } Add(MinMaxSize,465265,70,42) { EnabledMinMax=0 ControlMaxLeftTop=0 MinWidth=378 MinHeight=186 MaxWidth=378 MaxHeight=186 } Add(Splitter,860935,70,84) { Top=42 Width=390 Height=3 } Add(Button,9524870,98,231) { Left=345 Top=135 Width=25 Caption="__" Data=Integer(0) link(onClick,2846521:doHide,[]) } Add(TrayIcon,2846521,154,224) { link(onClick,2846521:doShow,[(198,230)(198,218)(142,218)(142,230)]) } Add(Hub,13456302,280,301) { link(onEvent1,11320536:doEvent1,[]) link(onEvent2,11158065:doData,[]) } Add(DoData,11158065,315,308) { Data=String(Радио ENERGY) link(onEventData,11073018:doEvent1,[(359,314)(359,328)]) } Add(DoData,3778961,315,350) { Data=String(Радио Европпа) link(onEventData,11073018:doEvent2,[(359,356)(359,335)]) } Add(DoData,11318805,315,392) { Data=String(Радио Джаз) link(onEventData,11073018:doEvent3,[(359,398)(359,342)]) } Add(DoData,2181055,315,434) { Data=String(Радио Шансон) link(onEventData,11073018:doEvent4,[(359,440)(359,349)]) } Add(DoData,5220993,315,476) { Data=String(Радио Рок) link(onEventData,11073018:doEvent5,[(359,482)(359,356)]) } Add(DoData,2544931,315,511) { Data=String(Радио Ночное такси) link(onEventData,11073018:doEvent6,[(359,517)(359,363)]) } Add(Hub,4680628,280,343) { link(onEvent1,11320536:doEvent2,[(440,349)(440,314)]) link(onEvent2,3778961:doData,[]) } Add(Hub,4295968,273,385) { link(onEvent1,11320536:doEvent3,[(440,391)(440,321)]) link(onEvent2,11318805:doData,[]) } Add(Hub,8681246,273,427) { link(onEvent1,11320536:doEvent4,[(440,433)(440,328)]) link(onEvent2,2181055:doData,[]) } Add(Hub,5367688,280,469) { link(onEvent1,11320536:doEvent5,[(440,475)(440,335)]) link(onEvent2,5220993:doData,[]) } Add(Hub,2310622,280,504) { link(onEvent1,11320536:doEvent6,[(440,510)(440,342)]) link(onEvent2,2544931:doData,[]) } Add(Hub,2350814,280,546) { link(onEvent1,11320536:doEvent7,[(440,552)(440,349)]) link(onEvent2,6782597:doData,[]) } Add(DoData,6782597,315,553) { Data=String(Радио Микс) link(onEventData,11073018:doEvent7,[(359,559)(359,370)]) } Add(Hub,11073018,371,322) { InCount=7 link(onEvent1,3922249:In,[]) } Add(LineBreak,13272698,224,203) { link(Out,2953706:doCaption,[]) Primary=[3922249,175,119] }