Registro do Windows
Ai pessoal, to precisando de uma ajuda.
Como faço para editar no registro do windows Ex:
Quero que os usuarios abram um arquivo somente com um programa expecifico. ex:
gero relatórios com extensao .RAF que e uma extensao do Report Builder. entao fiz um programa que le estes arquivos mas o usuario quando clica pela primeira vez nao sabe qual arquivo vai ler.
entao queria fazer um programinha que registrasse isso..
Como e feito com o Word hoje voce da dois clics e pronto abre o word.
E o usuario for em parametros do arquivo e seta-lo para abrir com meu programa vai ficar registrado, mas usuarios sao usuarios. nao sabem fazer isso..
Alguem pode me ajudar.
e-mail neudimar@ieg.com.br
ICQ 68473014[quote:3279456303][/quote:3279456303]
Como faço para editar no registro do windows Ex:
Quero que os usuarios abram um arquivo somente com um programa expecifico. ex:
gero relatórios com extensao .RAF que e uma extensao do Report Builder. entao fiz um programa que le estes arquivos mas o usuario quando clica pela primeira vez nao sabe qual arquivo vai ler.
entao queria fazer um programinha que registrasse isso..
Como e feito com o Word hoje voce da dois clics e pronto abre o word.
E o usuario for em parametros do arquivo e seta-lo para abrir com meu programa vai ficar registrado, mas usuarios sao usuarios. nao sabem fazer isso..
Alguem pode me ajudar.
e-mail neudimar@ieg.com.br
ICQ 68473014[quote:3279456303][/quote:3279456303]
Anonymous
Curtidas 0
Respostas
Dbezerra
26/02/2003
// Esta funcao le uma sequencia no registro do Windows
funcion ReadRegistry: String;
begin
with TRegistry.Create do
try
RootKey := HKEY_CURRENT_USER; // esta eh a chave principal
if OpenKey(´Software\Windows\´, True) then // ´Software/Windows´ eh
// a chave secundaria
begin
Result := ReadString(´Sequencia´); // sequencia eh o valor
// da sequencia aonde vc quer pegar o valor
end;
finally
Free;
end;
end;
// Esta funcao escreve um valor numa sequencia no registro do Windows
function WriteRegistry(NomDiretorio:String): Boolean;
begin
Result := False;
with TRegistry.Create do
try
RootKey := HKEY_CURRENT_USER;
if OpenKey(´Software\Windows\´, True) then
begin
WriteString(´Sequencia´, NomDiretorio);
Result := True;
end;
finally
Free
end;
end;
espero ter ajudado!
Daniel Bezerra
funcion ReadRegistry: String;
begin
with TRegistry.Create do
try
RootKey := HKEY_CURRENT_USER; // esta eh a chave principal
if OpenKey(´Software\Windows\´, True) then // ´Software/Windows´ eh
// a chave secundaria
begin
Result := ReadString(´Sequencia´); // sequencia eh o valor
// da sequencia aonde vc quer pegar o valor
end;
finally
Free;
end;
end;
// Esta funcao escreve um valor numa sequencia no registro do Windows
function WriteRegistry(NomDiretorio:String): Boolean;
begin
Result := False;
with TRegistry.Create do
try
RootKey := HKEY_CURRENT_USER;
if OpenKey(´Software\Windows\´, True) then
begin
WriteString(´Sequencia´, NomDiretorio);
Result := True;
end;
finally
Free
end;
end;
espero ter ajudado!
Daniel Bezerra
GOSTEI 0