Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   API de Windows (https://www.clubdelphi.com/foros/forumdisplay.php?f=7)
-   -   Duda Sobre TRegistry... (https://www.clubdelphi.com/foros/showthread.php?t=44102)

ZayDun 28-05-2007 22:55:47

Duda Sobre TRegistry...
 
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 28-05-2007 22:57:25

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

// Saludos

jhonny 28-05-2007 23:21:24

A ver, quizá pueda adivinar el día de hoy, :D, 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:
Cita:

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;


La franja horaria es GMT +2. Ahora son las 12:11:00.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi