Mal versuchen, ob es besser aussieht when IE11 emuliert wird:
Delphi-Quellcode:
var exename:string;
exename:=TPath.GetFileName(ParamStr(0));
reg := TRegistry.Create(KEY_SET_VALUE);
reg.RootKey := HKEY_CURRENT_USER;
Win32Check(reg.OpenKey(registryPath,True) );
reg.WriteInteger(exeName, 11000);
reg.CloseKey;
reg.Free;