Gravando dados no registro do windows.....

Delphi

09/09/2003

Olá...

Estou tentando fazer um sistema que grave no registro do windows um dado valor que diz se ele é ´TRUE´ ou ´FALSE´, e estou usando o código abaixo:


PARA GRAVAR
procedure frmMain.GravarRegistro;
const
Raiz : String = ´Software\Programa´;
var
Registro : TRegistry;
begin
// Chama o construtor do objeto
Registro := TRegistry.Create;
{ Abre a chave (se o 2°. Parâmetro for True, ele cria a chave caso ela ainda não exista. }
Registro.OpenKey (Raiz, True);
// Grava as informações do form
Registro.WriteInteger (´Largura´, Width);
Registro.WriteInteger (´Altura´, Height);
Registro.WriteInteger (´Esquerda´, Left);
Registro.WriteInteger (´Topo´, Top);
// Grava as informações das caixas Abrir e Salvar.
Registro.WriteString (´Abrir Inicial´, OpenDialog1.InitialDir);
Registro.WriteString(´Salvar Inicial´, SaveDialog1.InitialDir);
// Fecha a chave e o objeto
Registro.CloseKey;
Registro.Free;
end;

Mas ele não quer funcionar com um CheckBox ou usando a Propriedade ´Checked´ de um item de menu, a idéia é que ao selecionar ou ´CHECKAR´ o componente ele grave na minha chave de registro o valor ´TRUE´, e ao desmarcar-(propriedade Checked=false)- ele grave no registro do windows o valor ´FALSE´, mas com o CheckBox e com o item de menu-(que é o que pretendo usar)- não funciona!
E que ao iniciar o sistema ele leia este valor do registro e execute conforme o registro.Se no registro estiver descrito ´TRUE´ ele abre o form com o componente ´CHECKADO´; Se no registro estiver descrito ´FALSE´, ele abre o form com o componente ´NÃO CHECKADO´.

Por que será?

Se alguém puder me ajudar???????????????????????????/


Um abraço


Cleverson LR

[b:2ddfd6bae1]Título editado pelo Moderador - AZ[/b:2ddfd6bae1]


Cleverson_rutes

Cleverson_rutes

Curtidas 0

Respostas

Nildo

Nildo

09/09/2003

Use o [b:38f3646613]WriteBool[/b:38f3646613][/b]


GOSTEI 0
POSTAR