Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Claves de registro (https://www.clubdelphi.com/foros/showthread.php?t=53895)

rauros 04-03-2008 15:16:07

Claves de registro
 
¿Como puedo acceder a las claves de registro? Con el comando que se relaciona con ellas me sobra. Es que no lo encuentro en ningún lado...

Chris 04-03-2008 15:25:25

¿A que te refieres con claves de registro? No entiendo para nada tu pregunta.

Saludos.

rauros 04-03-2008 15:27:09

Pues lo que quiero hacer es que cuando se inicie una aplicación aparezca en la misma posición en la que la dejé. Y para eso quiero crear una clave de registro . Por si me equivoco de nombre a lo que me refiero con clave de registro es eso que aparece al ejecutar "regedit". Muchas gracias.

Chris 04-03-2008 15:39:49

Ahhh!! hubieras empezado por ahí. :)

Entonces, puedes utilizar el objeto TRegistry incluido en la unidad Registrry, para saber más sobre este objeto y la forma de utilizarlo, puedes consultar con la ayuda de Delphi o busca en los foros de acá en el club, que de él ya se ha hablado en varias ocaciones.

Saludos.

rauros 04-03-2008 16:28:13

Código Delphi [-]
with TRegistry.Create do
  try
    RootKey:= HKEY_CURRENT_USER;
    if OpenKey('\Software\edittxt',TRUE) then
    begin
      WriteInteger('top',form1.top);
      CloseKey;
      WriteInteger('left',form1.left);
      CloseKey;
    end;
  finally
    Free;
  end;
end;

Esto me da un error de los que obligan a cerrar la aplicación. Lo activo con CloseQuery.

ixMike 04-03-2008 22:18:28

Los CloseKey están de más. Puede que el error no sea debido a eso, pero desde luego están de más ;)

¡Y ya te dije que en Delphi no hay comandos! Sólo funciones, procedures, objetos, métodos, eventos, variables, constantes, propiedades... ¡pero no comandos! :D

rauros 05-03-2008 15:08:37

discúlpame, objeto. Y gracias por la ayuda.

rauros 05-03-2008 15:29:39

Ahora necesito saber si existen 3 valores. He intentado con:

Código Delphi [-]
if registro.GetDataInfo('Left',Dword(true)) then begin
if registro.GetDataInfo('top',Dword(true)) then begin
if registro.GetDataInfo('WindowState',Dword(true)) then begin

Pero me da errores... ¿Como puedo hacerlo?

cHackAll 05-03-2008 16:51:49

Código Delphi [-]
 with registro do
  if ValueExists('Left') and ValueExists('Top') and ValueExists('WindowState') then
...

Revisa tambien el funcionamiento de los archivos INI


La franja horaria es GMT +2. Ahora son las 06:36:05.

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