source: Include/Classes/System/Media/SystemSound.ab@ 100

Last change on this file since 100 was 98, checked in by NoWest, 18 years ago
File size: 302 bytes
Line 
1Class SystemSound
2 Const SoundID As Long
3
4Public
5 Sub SystemSound(value As Long)
6 SoundID=value
7 End Sub
8
9Public
10 Sub Play()
11 PlaySound(SoundID,GetModuleHandle(NULL),SND_ALIAS_ID)
12 End Sub
13
14Public
15 Override Function ToString() As String
16 Return "SystemSound"
17 End Function
18End Class
Note: See TracBrowser for help on using the repository browser.