extensoes ocultas

gostaria de saber se tem como criar uma rotina no delphi, pra que aparecas as estensoes dos arquivos quando eu entro no windows explorer e depois torna ocultas de novo.

Outra pergunta
O Delphi consegue renomear a estensao de um arquivo mesmo ela estando oculta?