rastreo de codigo.

[[newtron]]

Empezado por Al González

Por cierto, un servidor jamás ha leído la famosa guía de estilo

Aprovecho la ocasión para recomendarte que leas la susodicha guía de estilo, gracias por tu colaboración. (Ya me sale casi como a los modes )

Edito: Catchis... que alguien borre este que me han salido dos con un problema de la adsl.

[Casimiro Notevi]

Por favor, no repitas hilos, ¿ya leiste nuestra guía de estilo?, gracias por tu colaboración

[[newtron]]

Empezado por Casimiro Notevi

Por favor, no repitas hilos, ¿ya leiste nuestra guía de estilo?, gracias por tu colaboración

No, si al final el que va a salir escaldado soy yo.

[Casimiro Notevi]

Empezado por newtron

No, si al final el que va a salir escaldado soy yo.

.

[[Al González]]

Empezado por newtron

No, si al final el que va a salir escaldado soy yo.

[Yun-i]

Gracias, una disculpa a todos ahora solo quiero sabes como guardarlo en el registro una vez que mande el mensaje no existe informacion en la empresa, pero si se conecta a la base. osea manda el error porque supongo que no lo esta guardando en el registro pero despues hace la conexion y si corre la aplicacion.

[[newtron]]

Hola.

Para escribir en el registros hay bastantes hilos, échale un vistazo a este.

http://www.clubdelphi.com/foros/show...gistro+windows

Saludos

[Yun-i]

Gracia Newtron. solo para concluir el tema como la marca la dichosa guia asi quedo mi codigo:

Código Delphi [-]
  Programa := ChangeFileExt(ExtractFileName(Application.ExeName),'');
  if not Assigned(WinReg) then winReg := TRegistry.Create;
  WinReg.RootKey := HKEY_LOCAL_MACHINE;
  if MessageDlg('Se le pedirá que confirme los Parametros de Conección'#13'¿ Desea Continuar ?',mtWarning,[mbYes,mbNo],0) = mrYes then
  if not WinReg.OpenKey('\Software\GrupoVRO\'+Programa, False) then begin
    if WinReg.OpenKey('\Software\GrupoVRO\'+Programa, True) then begin
      WinReg.WriteString('BaseDatos', InputBox('Base de Datos','Escriba el Nombre de la Base de Datos','Base de Datos'));
      WinReg.WriteString('Servidor', InputBox('Servidor','Proporcione el Nombre del Servidor','(local)'));
      WinReg.WriteString('Pasword', InputBox('Pasword Enlace Remoto','Digite el PASSWORD','*******')); end
    else ShowMessage('La llave no ha podido ser creada'#13'.  Contacte al Administrador del Sistema.');
  end
  else begin
    WinReg.WriteString('BaseDatos', InputBox('Base de Datos','Escriba el Nombre de la BASE de DATOS', WinReg.ReadString('BaseDatos')));
    WinReg.WriteString('Servidor', InputBox('Servidor','Proporcione el Nombre del SERVIDOR',WinReg.ReadString('Servidor')));
    WinReg.WriteString('Pasword', InputBox('Pasword Enalce Remoto','Digite el PASSWORD','*******'));
  end;

como comentario a Casimiro notevi que desde su username es sarcastico diria que si en la guia pide hablar con educacion y demas si me pide leerla creo que el tambien debria darle una repasada, o como es la cosa no hay que ser grocero ni faltar al repeto, pero sarcastico si se puede? entonces talvez a la guia le falte agregarle eso.

Gracias a todos los foristas de sus conociemientos hemos aprendido muchos.