Program der ændrer værdi i regeristreringsdatabasen

har du kigget i nogle af de mange eksmepler på nettet ?

http://www.aimtec.com.au/articles/RegistryInDelphi/default.htm

http://www.mindspring.com/~cityzoo/registry.html

http://www.swissdelphicenter.ch/torry/showcode.php?id=1054
http://www.swissdelphicenter.ch/torry/showcode.php?id=1260

Her er et kode eks., unden nogen form for fejl check (try except):

Husk at tilføje Registry til din uses:

-----------------

function GetKeyValue(keyname : string) : string;
var
  Reg : TRegistry;
begin
  Reg:=TRegistry.Create;
  Reg.Rootkey:=HKey_Local_machine;
  Reg.Openkey('SOFTWARE\Microsoft\Windows\CurrentVersion\URL\Prefixes',true);
    if Reg.ValueExists(keyname) then
      result:=Reg.ReadString(keyname)
  else
      result:='';
  Reg.Free;
end;

function SetKeyValue(keyname,value : string) : string;
var
  Reg : TRegistry;
begin
  Reg:=TRegistry.Create;
  Reg.Rootkey:=HKey_Local_machine;
  Reg.Openkey('SOFTWARE\Microsoft\Windows\CurrentVersion\URL\Prefixes',true);
  Reg.WriteString(keyname,value);
  Reg.Free;
end;

---------------------

var
    Temp : string;

begin
//sætter Temp til den aktuelle værdi
    Temp:=GetKeyValue('www');

//sætter www til http://localhost/
    SetKeyValue('www','http://localhost/');

//sætter www til den tidligere værdi
    SetKeyValue('www',Temp);
end;

Kunne du bruge noget af det?

Nu er det ikke kun een værdi du vil ændre, er det? I min database har jeg "mosaic", "www" og "home". Nedenstående laver det du spurgte om.

procedure ToggleHTTPValue;
const
  RegKey = 'SOFTWARE\Microsoft\Windows\CurrentVersion\URL\Prefixes';
  HTTPPrefix = 'http://';
  HTTPIdefix = 'localhost/';
var
  i : integer;
  Value : string;
  Reg : TRegistry;
  ValNames : TStringList;
begin
  ValNames := TStringList.Create;
  Reg := TRegistry.Create;
  try
    Reg.Rootkey := HKey_Local_machine;
    if Reg.Openkey(RegKey,false) then begin
      Reg.GetValueNames(ValNames);
      for i := 0 to ValNames.Count - 1 do
        if Reg.GetDataType(ValNames[i]) = rdString then begin
          Value := Reg.ReadString(ValNames[i]);
          if pos(HTTPPrefix,Value) = 1 then
            if SameText(Value,HTTPPrefix) then
              Reg.WriteString(ValNames[i],HTTPPrefix + HTTPIdefix)
            else
              Reg.WriteString(ValNames[i],HTTPPrefix);
        end;
    end;
  finally
    Reg.Free;
    ValNames.Free;
  end;
end;