Prüfen der registrierten Dateitypen

[Christian Seehase]

Moin Matthias,

zwei Sachen noch, die mir aufgefallen sind:

Das

Delphi-Quellcode:

        if entrystring=Format('"%s" "%s"', [paramstr(0), '%1'])
           then Result:=true
           else result:=false;

kannst Du auch so
Result := entrystring=Format('"%s" "%s"', [paramstr(0), '%1']); schreiben.

Ausserdem gehört zu jedem erfolgreichen Reg.OpenKey auch ein Reg.CloseKey, da Du Dir ansonsten ein Resourcenleck einhandelst.