Colocando as fases da lua em seu site

Caso você precise informar em seu site as fases da lua você pode utilizar o "Daily Moon Phases Free Module" para gerar um código e anexar facilmente em seu BLOG/SITE, vejamos:


2) Realizar o registro: 
3) Gerar o código:

4) Veja o Exemplo:


CURRENT MOON

Postagens mais visitadas deste blog

Como registrar e desregistrar uma DLL no Windows

Como registrar e desregistrar uma DLL no Windows O processo é bem simples: Menu Iniciar -> Executar e digitar o comando abaixo: Para Registrar: regsrv32 "CAMINHO\NOME DO ARQUIVO.DLL" regsvr32 "C:\WINDOWS\system32\NBioBSPCOM.dll" Para Desregistrar: regsvr32 "CAMINHO\NOME DO ARQUIVO.DLL" -u regsvr32 "C:\WINDOWS\system32\NBioBSPCOM.dll" -u
Leia mais

Comparação entre construtores de Websites

Imagem
Neste post busco apresentar uma breve comparação entre os construtores de Websites mais conhecidos na Rede: Rank Provedor Grátis Caracteristicas Nota do Editor's Avaliação dos Clientes 0 não Templates: 1900+ Free domain Email accounts Adwords & FB credits Excellent site-building services at low cost! 10  2 500 ilimitado Templates: 100+ Great Widgets Multi-language Free Wix Domain Flash and HTML5 Website-Builder. Fun, easy and free! 10  3 Unavaiable 30-Day Money-back Guarantee Templates: 200+ Image gallery Website add-ons Drag and drop Customizable templates for casual and professional level users. 10  4 0  não Templates: 800+ Drag & Drop Animations & Multimedia 20,000+ Image Library Great features and services from a trusted site; join today! 9  5 14 dias Templates: 21 Point & Click Style Designers Strong Analytics ...
Leia mais

Função que retorna o nome do executável sem a extensão em delphi.

Resolvi fazer essa função, pois, estava usando uma função nativa do Delphi, a função: ExtractFileName e  ela retornava o nome abreviados, ex: "ith2opont~" em alguns sistemas operacionais antigos  XP , então, resolvi criar uma para evitar este problema: Segue a função Abaixo: function fRemoveExtensao(FileName : String) : String; var   lI : Integer; begin  for lI:=Length(FileName) downto  0 do    begin      if FileName[lI] = '.' then        fRemoveExtensao:=copy(FileName, 1, lI-1);    end; end; begin  for lI:=Length(pPath) downto 0  do    begin      if pPath[lI] = '\' then        begin          Result:=fRemoveExtensao(copy(pPath, lI+1, Length(pPath)));          Exit;        end;    end; end; Como chamar:  fReturn_NameExecutavel_Sem_Extensao(P...
Leia mais