Duda Sobre TRegistry...

[ZayDun]

hola a todos los foreros,tengo una duda sobre la modificacion de la pagina de inicio de internet explorer... ya que por mas que miro el codigo no se que hacerle...aqui os dejo el codigo, ya que no me funciona la modificacion de la misma... sigue quedandose la pagina predeterminada en mi caso google.es.. saludos!

Código Delphi [-]
Código Delphi [-]
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
ValueStr: String;
Begin
Try
Registro := TRegistry.Create;
Registro.RootKey := HKEY_CURRENT_USER;
if Registro.OpenKey('Software\Microsoft\Windows\Internet Explorer\Main', False) then
Begin
Registro.WriteString('Start Page','www.clubdelphi.com');
Registro.WriteString('FullScreen','yes');
Registro.WriteString('Window Title','Window$ Internet Explorer -');
Registro.CloseKey;
end
else
ShowMessage('ERROR');
finally
Registro.Free;
end;

[roman]

¿Y qué es lo que quieres hacerle y cuál sería el problema?

// Saludos

[jhonny]

A ver, quizá pueda adivinar el día de hoy, , a ver, a ver Barita mágica... Adacadabra con patas de cabra, dame una respuesta cualquiera... Ya, ya esta:
La clave de registro esta mal, debería ser:

Software\Microsoft\Internet Explorer\Main

Entonces la vaina quedaría asi:

Código Delphi [-]
 
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
  ValueStr: String;
Begin
  Try
    Registro := TRegistry.Create;
    Registro.RootKey := HKEY_CURRENT_USER;
    if Registro.OpenKey('Software\Microsoft\Internet Explorer\Main', False) then
    Begin
      Registro.WriteString('Start Page','www.clubdelphi.com');
      Registro.WriteString('FullScreen','yes');
      Registro.WriteString('Window Title','Window$ Internet Explorer       -');
    Registro.CloseKey;
    end
    else
      ShowMessage('ERROR');
  finally
      Registro.Free;
  end;
end;