Buscar

Altera a tela inicial do internet explorer

Código

// Fonte: www.DelphiBoy.rg3.net
function HPPrincipal(APage : string) : boolean;
Var
  Reg : TRegistry;
begin
  Reg:= TRegistry.Create;
  try
  Reg.RootKey:= HKEY_CURRENT_USER;
  Reg.OpenKey('SoftwareMicrosoftInternet ExplorerMain',false);
  try
  Reg.WriteString('Start Page',APage);
  result := true;
  finally
  Reg.CloseKey;
  result := false;
  end;
  finally
  Reg.Free;
  end;
end;

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%

Detalhes da dica

Categoria: Object pascal
Adicionada dia: 10/05/04
Por: Marcus Barbosa
Visualizada: 3036 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009