Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Coloboración Paypal con ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #5  
Antiguo 12-07-2004
Avatar de marcoszorrilla
marcoszorrilla marcoszorrilla is offline
Capo
 
Registrado: may 2003
Ubicación: Cantabria - España
Posts: 11.221
Poder: 10
marcoszorrilla Va por buen camino
Aquí tienes un ejemplo de como escribir y leer en el registro de Windows:
Código Delphi [-]
 En el uses tienes que agregar Registry, Windows
 
 procedure leerRegistro();
 var Registre: TRegistry;
 begin
   Registre := TRegistry.Create;
   Registre.RootKey := HKEY_LOCAL_MACHINE;
   Registre.OpenKey('\Software\iData\GestOptic', True);
   if ((not Registre.ValueExists('Servidor')) or (not
 Registre.ValueExists('BaseDeDades')) or (not
 Registre.ValueExists('Usuari'))) then begin
     try
       Registre.WriteString('Servidor', 'SERVIDOR');
       Registre.WriteString('BaseDeDades', 'GestOptic');
       Registre.WriteString('Usuari', 'SA');
     except
       Application.MessageBox('Por favor, la primera ejecución' + chr(13) +
 chr(10) + 'la debe realizar un usuario con derechos de Administración',
 'Atención', IdOk);
     end;
   end;
 
   Connexio_Servidor := Registre.ReadString('Servidor');
   Connexio_BaseDeDades := Registre.ReadString('BaseDeDades');
   Connexio_Usuari := Registre.ReadString('Usuari');
   Registre.CloseKey;
   Registre.Free;
 end;

Un Saludo.
__________________
Guía de Estilo de los Foros
Cita:
- Ça c'est la caisse. Le mouton que tu veux est dedans.
Responder Con Cita
 


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

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


La franja horaria es GMT +2. Ahora son las 08:05:30.


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