Manipular Registro

[Silva~]

1º Passo - Instale algum Gunbound no seu PC. (no nosso exemplo, começaremos com o GBS)

2º Passo - Agora, antes de instalar o GIS, vá em iniciar>executar e digite regedit, localize a chave

HKEY_LOCAL_MACHINE > SOFTWARE > SoftNyx >

Terá uma pasta dentro dessa chave, com o nome de GunboundWC, altere o nome para GunboundWC-GBS, feche os registros. (fexe a janela)

3º Passo - Instale o GIS normalmente. (ATENÇÃO! Na hora de instalar, colocar em pastas diferentes, se você tiver partições C: e D: melhor, mas não é estritamente necessário)

4º Passo - Volte na chave HKEY_LOCAL_MACHINE > SOFTWARE > SoftNyx

vai perceber que agora apareceu outra pasta GunboundWC, ficando lá com 2 pastas

GunboundWC

GunboundWC-GBS

Para jogar o Gunbound que queira, essa pasta precisa de estar com o nome de GunboundWC, no caso o GIS estaria funcionando agora, e caso queira jogar o GBS, vá em iniciar > executar > REGEDIT, e os passos anteriores e renomeie, para

GunboundWC-GIS

GunboundWC

Esse e o tutorial , no caso eu quero alterar os passos 2 e 4

Por 1 simples botao , apenas para criar as pasta do tutorial , invez de criar manualmente , criar pelo delphi

Tutorial para abrir 2 gunbounds , no caso ele manda instala o GBS e o Gunbound internacional e alterar o registro , eu quero fazer a parte de alteração do registro pelo delphi apenas

Obrigado , agradeço a toda ajuda!

[Douglas Soares]

Essa é facil!

Coloque um Botão no seu forme... de dois cliques nele que vai abrir o evento OnClick, depois no código dele coloque isso!

procedure TForm1.Button1Click(Sender: TObject);
var
myReg: TRegistry;
begin
    try
    myReg := TRegistry.Create;
    myReg.RootKey := HKEY_LOCAL_MACHINE;
    if myReg.OpenKey('SOFTWARE\SoftNyx', FALSE) then
    begin
    myReg.MoveKey('GunboundWC', 'GunboundWC-GBS', True);
    end;
    finally
    myReg.Free;
    end;
end;

Obs: não se esqueça de declarar a uses Registry, que fica no começo da unit....

P.S: Quero uma conta boa de GB por isso! rsrsrsrs...

Obrigado , agradeço a toda ajuda!

Dinada :rolleyes:

Abraços

Editado Setembro 30, 2009 por Douglas_Soares