- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
MediaPlayer1.FileName := './data/gong.wav';
MediaPlayer1.Open;
g1 := timetostr(time);
g2 := timetostr(strtotime('0:00:00'));
g3 := timetostr(strtotime('3:00:00'));
g4 := timetostr(strtotime('6:00:00'));
g5 := timetostr(strtotime('5:00:00'));
g6 := timetostr(strtotime('12:00:00'));
g7 := timetostr(strtotime('15:00:00'));
g8 := timetostr(strtotime('18:00:00'));
g9 := timetostr(strtotime('21:00:00'));
if g1 = g2 then
MediaPlayer1.Play
else
Label2.Caption := 'не работает тварь...';
bugmenot 27.11.2011 16:22 # +5
i-- 27.11.2011 16:23 # +4
Label2.Caption := 'Ай щайтан!';
TheHamstertamer 27.11.2011 17:13 # +11
MAXIMUM DELPHI
lucidfoxGovno 27.11.2011 17:18 # 0
nobody 27.11.2011 18:04 # +3
Lure Of Chaos 27.11.2011 18:53 # 0
lucidfoxGovno 27.11.2011 19:15 # +2
bugmenot 27.11.2011 22:04 # 0
ZX_Spectrum 28.11.2011 20:02 # +4
guest 29.11.2011 04:02 # +2
/me вспомнил боян про эквалайзер
bugmenot 29.11.2011 08:56 # 0
defecate-plusplus 29.11.2011 09:55 # −2
gorky 29.11.2011 11:22 # +3
guest 29.11.2011 12:02 # −6
guest8 09.04.2019 12:14 # −999