E/A Fehler-32 Was ist das?

[hedie]

Perfekt es war der RID3 Teil

So habs herausgefunden was zu ändern war

Delphi-Quellcode:

var 
ran:integer; 
begin 
ran := random(listbox1.Items.Capacity); 
if mp.Position = MP.Length then begin 
Listbox1.Selected[ran] := true; 
mp.FileName := Listbox2.Items.Strings[ran]; 
mp.Open; <---- HIER IST DIE DATEI SCHO IN VERWENDUNG
mp.Play; 
RID3(mp.FileName); <---- HIER WILL ER SIE ERST ÖFFNEN
Label1.Caption := TitleTag; 
Label2.Caption := ArtistTag; 
if Settings.ReadBool('SETTINGS','BALLOON',False) = True then begin 
TI.BalloonHint := (Label1.Caption + '  ' + Label2.Caption); 
TI.ShowBalloonHint; 
end; 
sleep(100); 
end;

Und zwar so

Delphi-Quellcode:

var 
ran:integer; 
begin 
ran := random(listbox1.Items.Capacity); 
if mp.Position = MP.Length then begin 
Listbox1.Selected[ran] := true; 
mp.FileName := Listbox2.Items.Strings[ran]; 
RID3(mp.FileName); <--------------------
mp.Open;                               -
mp.Play;                               -
                   <--------------------                
Label1.Caption := TitleTag; 
Label2.Caption := ArtistTag; 
if Settings.ReadBool('SETTINGS','BALLOON',False) = True then begin 
TI.BalloonHint := (Label1.Caption + '  ' + Label2.Caption); 
TI.ShowBalloonHint; 
end; 
sleep(100); 
end;