Script für K8055N

Deutsch / German Scripts
7

Ich habe hier noch etwas älteres gefunden, was man gegebenenfalls umstricken kann. Das Skript fragt jede Sekunde ab, ob ein Mikrofon offen ist und schreibt dann den entsprechenden Zustand in eine Datei. Ob das mit der Version 6 läuft, müssen andere feststellen:

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)

Kopierte Grüße

TSD