Search the Community

Adicione a sessão uses MMSystem Código para iniciar gravação do áudio: mciSendString('OPEN NEW TYPE WAVEAUDIO ALIAS mysound', nil, 0, Handle); mciSendString('SET mysound TIME FORMAT MS ' + 'BITSPERSAMPLE 32 ' + 'CHANNELS 20 ' + 'SAMPLESPERSEC 250 ' + 'BYTESPERSEC 180000', nil, 0, Handle); mciSendString('RECORD mysound', nil, 0, Handle); Código para parar gravação: mciSendString('STOP mysound', nil, 0, Handle); Código para salvar o som wav: var arquivo: String; begin GetDir(0, arquivo); mciSendString(PChar('SAVE mysound ' + arquivo + '/test.wav'), nil, 0, Handle); mciSendString('CLOSE mysound', nil, 0, Handle); Som é salvo no mesmo diretório do executável