Ändern der Einstellung "Dialog zu Bestätigung anzeigen"

[Sliver]

Sind verschiedene Routinen

Delphi-Quellcode:

procedure regWriteBitinBinary(RootKey:Cardinal;OpenKey,ValueName:String;bit:Word;Value:Boolean);
var
  s,s2:String;
begin
  s:=regReadBinary(RootKey,OpenKey,ValueName);
  s2:=byteToBin(ord(s[((bit-1) div 8)+1]));
  s2[((bit-1) mod 8)+1]:=IntToStr(Integer(Value))[1];
  s[((bit-1) div 8)+1]:=Chr(binToByte(s2));
  regWriteBinary(RootKey,OpenKey,ValueName,s);
end;

function regReadBitinBinary(RootKey:Cardinal;OpenKey,ValueName:String;bit:Word):Boolean;
var
  s,s2:String;
begin
  s:=regReadBinary(RootKey,OpenKey,ValueName);
  s2:=byteToBin(ord(s[((bit-1) div 8)+1]));
  Result:=Boolean(StrToInt(s2[((bit-1) mod 8)+1]));
end;

procedure regWriteBinary(RootKey:Cardinal;OpenKey,ValueName,Value:String);
var
  Reg:TRegistry;
begin
  Reg:=TRegistry.Create;
  try
    Reg.RootKey:=RootKey;
    Reg.OpenKey(OpenKey,True);
    RegSetValueEx(Reg.CurrentKey,PChar(ValueName),0,REG_BINARY,PChar(Value),Length(Value));
    Reg.CloseKey;
  finally
    Reg.Free;
  end;
end;

function regReadBinary(RootKey:Cardinal;OpenKey,ValueName:String):String;
var
  Reg:TRegistry;
  s:String;
  i:Integer;
begin
  Reg:=TRegistry.Create;
  try
    Reg.RootKey:=RootKey;
    Reg.OpenKeyReadOnly(OpenKey);
    i:=Reg.GetDataSize(ValueName);
    SetLength(s,i);
    Reg.ReadBinaryData(ValueName,s[1],i);
    Reg.CloseKey;
  finally
    Reg.Free;
  end;
  Result:=s;
end;

function binToByte(s:String):Byte;
var
  i:Byte;
begin
  Result:=0;
  for i:=7 downto 0 do
    if s[8-i]='1' then
      Inc(Result,Trunc(Power(2,i)));
end;

function byteToBin(b:Byte):String;
var
  i:Word;
begin
  Result:='';
  for i:=7 downto 0 do
    if (b and(1 shl i))>0 then
      Result:=Result+'1'
    else
      Result:=Result+'0';
end;

Hab einfach mal alles rauskopiert, was wichtig sein könnte. Aber wie gesagt, gibt sicher bessere Lösungen. Bin momentan alle Einstellungen direkt über die Windows API am implementieren, was sicher auch die korrekte Lösung wäre. Muss mich da noch durch ein paar Probleme durchschlagen, hoffe aber ich bring es zum laufen.

cu Sliver