Kod: Tümünü seç
program seskayit;
{$APPTYPE CONSOLE}
{$R *.res}
uses
System.SysUtils,
Winapi.MMSystem,
Winapi.Media,
FMX.Media;
var
AudioCapture : TAudioCaptureDevice;
begin
try
{ TODO -oUser -cConsole Main : Insert code here }
AudioCapture:= TCaptureDeviceManager.Current.DefaultAudioCaptureDevice;
if AudioCapture <> nil then
begin
AudioCapture.FileName:='test.wav';
AudioCapture.StartCapture;
end;
Readln;
except
on E: Exception do
Writeln(E.ClassName, ': ', E.Message);
end;
end.