(cherry picked from commit 25450a99ed7d01fa0df4b6a156fcbeb8e62a8d94)
@@ -266,7 +266,7 @@ begin
aType:= Reg.ReadString('Content Type');
Reg.CloseKey;
if aType<>'' then
- AddType(aType,Ext);
+ AddType(aType,Copy(Ext,2,Length(Ext)-1));
end;