forum.boolean.name - Будильник))

ЗДРАВСТВУЙТЕ!
Вот на днях решил написать на Блитце будильник(сессия началась), и вот что вышло:

Цитата:

AppTitle "будильник v.0.0.1"
Graphics 400,300,16,2

Color 110,110,150
Global snd=LoadSound("Bon Jovi-It's my life.mp3")
SoundPitch snd, 44100
LoopSound snd

Global gfxPlayer=LoadImage("fon.bmp")
DrawImage gfxPlayer,0,0

Global font=LoadFont("arial",17)
Global font2=LoadFont("arial",25)

SetFont font
Global time$=Input$("input timer (HH:MM:SS) ")

Repeat
DrawImage gfxPlayer,0,0
SetFont font
Text 10,10,"time: "+CurrentTime$()
Text 10,30,"podyom: "+time$

If time$=CurrentTime$() chn=PlaySound (snd)

If time$<CurrentTime$() Then
SetFont font2
Text 20,100,"I`I O D `e' M"
If KeyHit (57)=1 Then
time$=Input$("input new timer (HH:MM:SS) ")
StopChannel(chn)
EndIf
EndIf

Cls

Until KeyHit(1)

FreeSound snd
FreeFont font
FreeFont font2

End

просто вводим время и ложимся спать.
вот что хотелось бы добавить:
1) сворачивание в трей(спасибо ИМПЕРУ за ссылку на ВинБ3Д но разобратся неудалось);
2) поблема со звуком(происходит искажение);
3) если виндовс уходит в заставку то программа неработает(незнаю что и сказать);

кто сможет плизз :SOS: с треем, остальное не так критично.

p.s. ВОТ те файлы которые я использую

ссылка 2