Script: Mikrofonzustand abfragen und text in txt Datei speichern?

Deutsch / German Scripts
2 
procedure OnTimer;
var
  sl: TStringList;
begin
  sl := TStringList.Create;
  try
    if Encoder.GetMicInputEnabled then
      sl.Add('Mikrofon On Air')
    else
      sl.Add('Mikfrofon nicht On Air');
    sl.SaveToFile('\\irgendeinrechner\pfad\Mikrofonscript.txt');
  finally
    sl.Free;
  end;
end;

procedure OnLoad;
begin
  EnableTimer(1000);
end;

begin
end.

(ungetestet)