[Ajuda] Registro do Windows

[Anonymous]

Olah pessoal ... Estou fazendo um programa...
E precizo Bloquear alguma chaves do resgistro...
Eu consegui faze isso por um arquivo .Reg...mas quando coloko para executar ele pela função ShellExecute ele da aquela msg "Tem certeza q deseja adicionar as informaçoes contidar em "lugar do arquivo" ao registro"

o conteudo do reg seria isso..

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Shell Extensions\Blocked]
@="Chave1"
"{Chave1}"="Nome "
"{Chave2}"=hex(2):47,00,62,00,50,00,6c,00,75,00,\
  67,00,69,00,6e,00,20,00,53,00,68,00,6c,00,4f,00,62,00,6a,00,00,00

Tem como alguem me ajudar a executar o arquivo sem da a MSG.. Ou faze essas alteraçoes no registro pelo delphi mesmo ??

Fico grato

[whit3_sh4rk]

Tu vai acessar o registro através do seu próprio aplicativo e não por arquivos externos..

Use a unit Registry

Declare a variavel:

Code Select Expand

var
Reg: TRegistry;
begin
Reg:=TRegistry.Create;
...
end;

O resto é contigo.. isso é fácil de encontrar cara.. principalmente em inglês..

Google:
Registry Delphi

TRegistry.Create Delphi (portugues)

etc..

[]s

[Anonymous]

sim eu jah pesquisei sobre isoo...
Mais n consequi faze essa parte aqui... pq n entendi bem como ela funciona   

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Shell Extensions\Blocked]
@="Chave1"
"{Chave1}"="Nome "

fico grato

[Anonymous]

Eu consegui chegar ateh aqui..
Agora como eu faço pra gravar os dados da mesma maneira q esta no arquivo reg ??

var
Reg: TRegistry;
begin
Reg:=TRegistry.Create;
reg.RootKey :=HKEY_LOCAL_MACHINE;
reg.openKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Shell Extensions\Blocked',true);

end;

[Hacker Xtreme]

veio dps eh soh vc escrever os dados ... escreve reg.write e num tira do menu vai aparecer um monte de opção...

[Anonymous]

Vlw ai galera consegui faze   

soh amis uma duvida ??

Como altero um atributo de uma pasta ... como somente leitura.. ( tirar a opção somente leitura de uma pasta ?)

[Hacker Xtreme]

na uses windows tem uma função que altera o atributo não me lembro de cabeça kara..

[whit3_sh4rk]

[Hacker Xtreme]
Se não sabe da função, deixe de postar para não "floodar" o tópico.

[Darman]
API » FileGetAttr
http://delphi.about.com/library/rtl/blr ... etAttr.htm (inglês)

API » FileSetAttr
http://delphi.about.com/library/rtl/blr ... etAttr.htm (inglês)

Exemplo:

Code Select Expand

FileSetAttr('C:\teste', faHidden);ou

Code Select Expand

FileSetAttr('C:\teste', 2);
Irá ocultar a pasta.. para saber o resto é só entrar nos links acima.

[]s