Listbox Speichern, + Listbox und Shellexecute

[killerkarl]

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
if fileexists('conf.cfg') then Listbox1.Items.LoadFromFile('conf.cfg');
end;

procedure TForm1.HinzuClick(Sender: TObject);
begin
if opendialog1.execute then Listbox1.Items.Add(Opendialog1.FileName);
end;

procedure TForm1.loescheClick(Sender: TObject);
begin
Listbox1.Items.Delete(Listbox1.Itemindex);
end;

procedure TForm1.SaveClick(Sender: TObject);
begin
listbox1.Items.SaveToFile('t.cfg'); //Um zu testen ob er die Datei schreibt, wenn ich nichts verändere.
end;

procedure TForm1.ResetClick(Sender: TObject);
begin
if fileexists('conf.cfg') then Listbox1.Items.LoadFromFile('conf.cfg')
else Listbox1.Clear;
end;