VARIAS PERGUNTAS...

10/05/2003

1

ola a todos, tenho as seguintes perguntas (se puderem responder com um exemplo simples (tipo colocar a acao no clique de um botao))

como eu faco pra renomear uma pasta q esta em um diretorybox?
como eu faco pra editar o valor (Padrão) do registro do windows??
como crio um valor dword no registro do windows?
como crio um valor binario no registro do windows?

muito, muito obrigado !!!

:?:


Responder

Posts

11/05/2003

Smyle

qm nao saber algumas das perguntas tudo bem, se responderem apenas uma ja estou muito feliz, mas por favor me ajudem !

obrigado


Responder

11/05/2003

Obubiba

Para gravar um valor binário no registro:

Unit Registry.
Procedure WriteBinaryData(const Name: String; var Buffer; BufSize: Integer)

WriteBinaryData grava um valor do tipo binário na subchave atualmente aberta.
Name é uma string que contém o nome do valor de dados onde será armazenado este
valor. Caso ele já exista, seu valor atual é sobrescrito por WriteBinary e, caso contrário, o
valor de dados será criado. Buffer conterá os dados a ser armazena-
do no Registry e BufSize indica o tamanho deste Buffer.

O comprimentos dos dados estão limitados pela memória disponível. Valores longos (mais de 2048
bytes) deveriam ser armazenados como arquivos separados e esses nomes de arquivos deveriam ser
armazenados no registro. Elementos de aplicação como ícones, deveriam ser armazenados em bi tmaps
e arquivos executáveis como arquivos.

Se WriteBinaryData falhar, uma exceção será gerada e o valor não é gravado no registro.

O exemplo apresentado a seguir utiliza uma função da API declarada em SheIIAPI.
Ela chama-se GetUserName e retoma o nome do usuário atualmente logado no sistema em
uma variável do tipo PChar. Usarei este retorno e o gravarei no Registry em forma binária.

Veja o código a seguir:

[b:51498b387a]var[/b:51498b387a]
Reg:TRegistry;
Buffer:Array [o. .255]of Char;
NSize: Cardinal;
[b:51498b387a]begin[/b:51498b387a]
Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_LOCAL_MACHINE;
Reg.OpenKey(´\Chave´ ,True);
NSize:=255;
GetUserName(Buffer,NSize) ;
Reg.WriteBinaryData(´Valor Binário: ´,Buffer,SizeOf(Buffer));
Reg.Destroy;
[b:51498b387a]end[/b:51498b387a];


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira