Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 28-09-2008
Avatar de jeremiselxi
jeremiselxi jeremiselxi is offline
Miembro
 
Registrado: ago 2008
Posts: 199
Poder: 16
jeremiselxi Va por buen camino
usar el Tregistry con delphi

hola amigos de el foro, como estan. Dios les bendiga...
leean lo que quiero hacer , busque en internet como hacer para k me aparesca un mensaje al inicio de windows y me encontre con este truco,
luego de escribir regedit en inicio-ejecutar,
buscar esta direccion en el registro
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WindowsNT\CurrentVersion\WinLogon]

Modificamos el valor de legalnoticecaption con el título del mensaje

Modificamos el valor de legalnoticetext con el texto del mensaje y listo. eso esta muy bien, pero como lo hago con delphi?

buscando y buscando,

logre hacer esto,
un boton para guardar los datos

Cita:
uses registry;
procedure TForm1.Button1Click(Sender: TObject);
var reg:tregistry;
begin

Reg := TRegistry.Create;

// Guardamos las opciones
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
if Reg.OpenKey( '\SOFTWARE\Microsoft\WindowsNT\CurrentVersion\WinLogon', True ) then
begin
Reg.WriteString( 'legalnoticecaption', edit1.Text );
Reg.WriteString( 'LegalNoticeText', memo1.Text );
Reg.CloseKey;
end;
finally
Reg.Free;
end;

end;
y luego este otro boton para mostrarlo a ver si es verdad k estan,
Cita:

procedure TForm1.Button2Click(Sender: TObject);
var reg:tregistry;
begin
// Creamos un objeto para manejar el registro
Reg := TRegistry.Create;

// Guardamos las opciones
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
if Reg.OpenKey( '\SOFTWARE\Microsoft\WindowsNT\CurrentVersion\WinLogon', True ) then
begin
edit2.Text := Reg.ReadString( 'LegalNoticeCaption' );
memo2.Text := Reg.ReadString( 'LegalNoticeText' );
Reg.CloseKey;
end;
finally
Reg.Free;
end;
end;
pero lo interezante es k lo escribo en el edit1 y en el memo1 aparece en el edit2 y el memo2, pero cuando busco con el regedit la ruta, no me aparece nada. alguien ayudeme por favor?,
y si me pueden poner comentarios seria mucho mejor ya k ahora es k estoy comenzando a usar el registro
__________________
Cristo te ama, ven a d él, ya k te espera con los brazos abiertos. Dios te bendiga mucho
Responder Con Cita
  #2  
Antiguo 28-09-2008
Avatar de seoane
[seoane] seoane is offline
Miembro Premium
 
Registrado: feb 2004
Ubicación: A Coruña, España
Posts: 3.717
Poder: 24
seoane Va por buen camino
No se si sera un error al escribir el mensaje pero en la ruta no es "WindowsNT" sino "Windows NT" (con un espacio en entre windows y NT)
Responder Con Cita
  #3  
Antiguo 28-09-2008
Avatar de jeremiselxi
jeremiselxi jeremiselxi is offline
Miembro
 
Registrado: ago 2008
Posts: 199
Poder: 16
jeremiselxi Va por buen camino
agradecimientos

mi hermano muchas gracias, ese era el error. Espero algun dia ser un fuerte como tu para ayudar a los demas
__________________
Cristo te ama, ven a d él, ya k te espera con los brazos abiertos. Dios te bendiga mucho
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Duda Sobre TRegistry... ZayDun API de Windows 2 28-05-2007 23:21:24
Problema al Construir un TRegistry D-MO Varios 3 24-08-2006 19:55:33
duda con funciones Tregistry friendspark API de Windows 3 10-11-2005 13:20:53
Ayuda con TRegistry CelestronFan Varios 12 11-10-2005 05:17:32
TRegistry en Delphi 7 REHome OOP 1 22-12-2004 18:45:32


La franja horaria es GMT +2. Ahora son las 18:21:18.


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
Copyright 1996-2007 Club Delphi