Also, ich habe jetzt folgenden Code drinne:
Zitat:
procedure Speichern;
begin
Memo1.Lines.SaveToFile(ExtractFilePath(ParamStr(0) ) + 'Videos.cfg');
end;
procedure Laden;
begin
if FileExists(ExtractFilePath(ParamStr(0)) + 'Videos.cfg') then
begin
Memo1.Lines.LoadFromFile(ExtractFilePath(ParamStr( 0)) + 'Videos.cfg');
if Memo1.Lines.Count > 4 then
try
Video1 := Memo1.Lines.Strings[0];
Video2 := Memo1.Lines.Strings[1];
Video3 := Memo1.Lines.Strings[2];
Video4 := Memo1.Lines.Strings[3];
Video5 := Memo1.Lines.Strings[4];
except
MessageBox(0,'Fehler beim Laden der Liste','Fehler',MB_OK or MB_ICONERROR);
end;
end;
end;
In der Datei stehen die richtigen Dateipfade drinne. Das ist ja schonmal okay.
Doch nur der Hammer: Ich starte das Programm, klicke auf "Laden" (procedure Laden), Versuche Video 1 zu starten und bekomme vom Mediaplayer eine Fehlermeldung zurück:
http://slave1.imagebeaver.com/files/...7wmpfehler.jpg
Ich weiss echt net mehr weiter...wo liegt denn jetzt der Fehler?