Konfiguration abspeichern

[N30N]

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var i, Data1, Data2: longint;
begin
  timer1.enabled:=false;
  ReadAllAnalog(Data1,Data2);
  i:=ReadAllDigital;
  CheckBox1.checked:=(i and 1)>0;
  if Checkbox1.checked = true then shellexecute(handle,'open',pchar('wmplayer.exe'),pchar(video1),nil,sw_show);
  CheckBox2.checked:=(i and 2)>0;
  if Checkbox2.checked = true then shellexecute(handle,'open',pchar('wmplayer.exe'),pchar(video2),nil,sw_show);
  CheckBox3.checked:=(i and 4)>0;
  if Checkbox3.checked = true then shellexecute(handle,'open',pchar('wmplayer.exe'),pchar(video3),nil,sw_show);
  CheckBox4.checked:=(i and 8)>0;
  if Checkbox4.checked = true then shellexecute(handle,'open',pchar('wmplayer.exe'),pchar(video4),nil,sw_show);
  CheckBox5.checked:=(i and 16)>0;
  if Checkbox5.checked = true then shellexecute(handle,'open',pchar('wmplayer.exe'),pchar(video5),nil,sw_show);
  timer1.enabled:=true;
end;

Das wäre der Startaufruf. Aber solange ich die Videos manuell festlege und nicht aus der cfg Datei lade funktioniert alles einwandfrei.