Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[18.220.16.184] |
|
Сообщ.
#1
,
|
|
|
Private Declare Function GetTickCount Lib "kernel32" () As Long Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long Private Delay As Long Private Sub Form_Load() Call mciSendString("open new type waveaudio alias mywav", 0, 0, 0) Me.Caption = "Rec" Call mciSendString("record mywav", 0, 0, 0) Delay = GetTickCount + 3000: Do Until GetTickCount > Delay DoEvents Loop Call mciSendString("stop mywav", 0, 0, 0) Call mciSendString("save mywav c:\cdtest.wav", 0, 0, 0) Call mciSendString("close mywav", 0, 0, 0) Me.Caption = "OK" End Sub Данный код записывает звук, с устройства, выбранного по умолчанию в панели Громкость->Запись |