Keylogger Capturar Áudio Da Placa De Som

[V¡®u§ 849]

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