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.