12-24-2005, 06:10 AM
i was playing around with windows beep earlier, on nt you can make it do some nice sounds. Here it is as part of a windows version finder
Code:
#include "windows.bi"
Option NoKeyWord Beep
Option Explicit
Declare Function Beep Alias "Beep" (ByVal dwFreq As DWORD, ByVal dwDuration As DWORD) As BOOL
Dim osv As OSVERSIONINFO
osv.dwOSVersionInfoSize = sizeof(OSVERSIONINFO)
GetVersionEx(@osv)
Select Case osv.dwPlatformId
Case VER_PLATFORM_WIN32s
Print "Windows 3.x"
Case VER_PLATFORM_WIN32_WINDOWS
Print "Windows 95"
Case VER_PLATFORM_WIN32_NT
Print "Windows NT"
Beep(440 * 1, 50)
Beep(440 * 2, 50)
Beep(440 * 3, 50)
Beep(440 * 4, 50)
End Select
Print "Version : " & osv.dwMajorVersion & "." & osv.dwMinorVersion
Print "Build : " & osv.dwBuildNumber
Print osv.szCSDVersion
Sleep