Registry - FileExtensions eintragen

[Gregg]

Delphi-Quellcode:

   assignfile(temp,(extractfiledrive(paramstr(0))+'\Mediaplayer_System\temp.dat')); {Weise der Variable temp die temporäre Datei zu}
    if not fileexists(extractfiledrive(paramstr(0))+'\Mediaplayer_System\temp.dat') then {Wenn die temporäre Datei nicht existiert dann}
    rewrite(temp) {erstelle sie} else append(temp); {sonst öffne sie um Dateien anzuhängen}
 99: {label 99}
  strin:=''; {setze den zwischenspeicher für den Dateinamen auf nichts zurück}
if (paramcount>0) then {wenn einer oder mehrere Dateinamen übermittelt wurden dann}
  begin 
   {mehre Dateien in Temporärer Datei speichern} 
   while not fileexists(strin) do begin {solange (strin) nicht existiert füge den nächsten Parameter hinzu}
   i:=i+1; {da ich keine For-Schleife benutzen kann, aber der Parameter verändert werden soll}
    strin:=strin+paramstr(i); {Zwischenspeicher = Zw.Speicher + aktueller Parameter}
    end; 
    writeln(temp,strin); {temp ist die temporäre auslagerungsdatei; Schreibe in temp eine neue Zeile mit dem Inhalt (strin)}
    if i<paramcount then goto 99; {wenn i kleiner als die Gesamtanzahl an Paramtern ist, dann gehe zu label 99}
    closefile(temp); {Schließe die Temporäre Datei}
   {Überprüfung ende} 
    if GetLastError = ERROR_ALREADY_EXISTS then halt; {Wenn das Program schon geöffnet ist, schließe es (nachdem die temporäre Datei geschrieben wurde)}

So Hui
hoffe ich konnte dir etwas helfen