Редактировалось 1 раз(а), последний 2017-03-03 10:05:32

Посмотри здесь,
не совсем то, но все-таки

http://hiasm.hexshock.com/users/examp/ex.php?com=load&cat=1&sha_id=743

Редактировалось 1 раз(а), последний 2017-03-03 10:05:32

В PlaySound нельзя

Может типа так?[code:1]Add(MainForm,7880220,21,112) {
Left=20
Top=105
Point(Close)
link(onCreate,4023386:doEvent1,[])
link(Close,8395585:GetData,[])
}
Add(Memory,9591390,266,56)
{
}
Add(MediaPlayer,9375415,238,175)
{
link(FileName,13659776:Var2,[(244,115)(139,115)])
}
Add(MemoryStream,6152567,77,238)
{
}
Add(FileStream,4344864,168,273)
{
Mode=1
Point(doCopyFromStream)
link(FileName,13659776:Var3,[(174,51)])
}
Add(StreamCopy,12134274,70,301)
{
link(Dest,4344864:Stream,[(76,291)(135,291)(135,315)(174,315)])
link(Source,6152567:Stream,[])
link(Count,6152567:Size,[])
link(onCopy,4344864:doCopyFromStream,[(145,307)(145,293)])
}
Add(EventFromData,8395585,21,70)
{
link(onEvent,1419950:doDelete,[(86,76)(86,111)])
}
Add(Hub,4023386,77,147)
{
OutCount=4
link(onEvent1,7274119:doStrCat,[(166,153)(166,62)])
link(onEvent2,4344864:doOpen,[(138,160)(138,279)])
link(onEvent3,12134274:doCopy,[(119,167)(119,240)(60,240)(60,307)])
link(onEvent4,4344864:doClose,[(138,174)(138,286)])
}
Add(FileTools,1419950,119,91)
{
link(FileName,13659776:Var1,[(125,51)])
}
Add(Memory,7968374,245,14)
{
Default=String(sound.mp3)
}
Add(Button,10099904,189,175)
{
Left=185
Top=185
link(onClick,9375415:doPlay,[])
}
Add(GetDataEx,13659776,126,42)
{
link(Data,9591390:Value,[(139,36)(208,36)(208,98)(272,98)])
}
Add(StrCat,7274119,224,56)
{
link(onStrCat,9591390:doValue,[])
link(Str1,12940077:TempDir,[])
link(Str2,7968374:Value,[(237,51)(251,51)])
}
Add(InfoTip,5051969,35,203)
{
Info=#19:MP3 загружать сюда!|
Width=85
Height=74
}
Add(Dir,12940077,210,14)
{
}
[/code:1] Большой код получился правда