Registry - FileExtensions eintragen

[Gregg]

Delphi-Quellcode:

procedure TForm1.Timer2Timer(Sender: TObject);
var j,groesse:integer;
    fmp:TFileStream;
    s:string;
    i:integer;
label 1,3;

begin
  if ((label1.caption<>'Verzeichnis') or fileexists(extractfiledrive(paramstr(0))+'\Mediaplayer_System\temp.dat')) and (mediaplayer1.error=0) then
  begin
  if fileexists(extractfiledrive(paramstr(0))+'\Mediaplayer_System\temp.dat') then {Überprüfe ob die temporäre Datei existiert und wenn ja dann}
   begin
    memo1.lines.loadfromfile(extractfiledrive(paramstr(0))+'\Mediaplayer_System\temp.dat'); {Der Inhalt der Playlist wird der inhalt der temporären Datei übergeben}
    listbox1.items:=memo1.lines;
    deletefile(extractfiledrive(paramstr(0))+'\Mediaplayer_System\temp.dat'); {lösche die temporäre Datei}
 {...Nochn paar andere Einstelungen...}
  playbutton.glyph:=pausebutton.glyph;
  if playlistnamen.checked=false then for i:=0 to memo1.lines.count-1 do listbox1.items[i]:=extractfilename(listbox1.items[i]);
  listbox1.sorted:=false;
  listbox1.itemindex:=0;
  zaehler:=0;
  maxlied:=memo1.Lines.count-1;
  Label1.caption:=extractfilename(memo1.lines[0]);
   mediaplayer1.close;
   mediaplayer1.filename:=memo1.lines[0];
   FillID3TagInformation(mediaplayer1.filename,title,artist,album,year,comment,genre);
   mediaplayer1.open;
   trackbar1.max:=mediaplayer1.length;
   gauge1.maxvalue:=mediaplayer1.length;
   gesamtzeitsek:=(mediaplayer1.length div 1000);
   gesamtzeitmin:=0;
   while (gesamtzeitsek>=60) do
    begin
     gesamtzeitsek:=gesamtzeitsek-60;
     gesamtzeitmin:=gesamtzeitmin+1;
    end;
   if gesamtzeitsek<10 then gesamtzeit.caption:=inttostr(gesamtzeitmin)+':0'+inttostr(gesamtzeitsek)
   else gesamtzeit.caption:=inttostr(gesamtzeitmin)+':'+inttostr(gesamtzeitsek);
   mediaplayer1.play;
  end;

Ich überprüfe im Intervall von einer Sekunde mit einem OnTimer Event