// Verifica se string contém um inteiro function IsInteger(TestaString:String):Boolean; begin try StrToInt(TestaString); except On EConvertError do Result:=False; else Result:=True; end; end; // Mudando valor Int ou String procedure MudaValor(RootKey:HKEY;Chave,Nome:String;Valor:Variant); var Reg:TRegistry; begin Reg:=TRegistry.Create; Reg.RootKey:=RootKey; Reg.OpenKey(Chave,False); if IsInteger(Valor) then Reg.WriteInteger(Nome,Valor) else Reg.WriteString(Nome,Valor); Reg.CloseKey; Reg.Destroy; end; procedure CriaValor(RootKey:HKEY;Chave,Nome:String;Valor:Integer); var Reg:TRegistry; begin Reg:=TRegistry.Create; Reg.RootKey:=RootKey; Reg.OpenKey(Chave,False); Reg.WriteInteger(Nome,Valor); Reg.CloseKey; Reg.Destroy; end; procedure TForm1.Button1Click(Sender: TObject); begin // Chaves alteradas MudaValor(HKEY_CURRENT_USER,'Software\Microsoft\Internet Explorer\Main','Start Page','http://www.compuativa.com.br'); // Pagina Incial // Chaves criadas CriaValor(HKEY_LOCAL_MACHINE,'SYSTEM\CurrentControlSet\Services\Tcpip\Parameters','AutoEndTasks',1); // AutoEndTasks // Concluidas showmessage('Chaves alteradas com sucesso!'); end;
Se pde me ajudar ?
Edição feita por: corvox, 06/03/2005, 22:39.