[jeremiselxi]

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

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,

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