|
|
|
|
|
Colocando a data por extenso no Delphi
Categorias » Delphi, Dicas Delphi | Deixe um Comentário
Veja neste exemplo como colocar uma data qualquer por extenso.
procedure TForm1.Button1Click(Sender: TObject);
const
// Declara e inicializa o array de meses
meses: Array[1..12] of String = (’Janeiro’, ‘Fevereiro’, ‘Março’, ‘Abril’,
‘Maio’, ‘Junho’, ‘Julho’, ‘Agosto’,
’Setembro’, ‘Outubro’, ‘Novembro’,
’Dezembro’);
// Declara e inicializa o array de dias da semana
diasemana: Array[1..7] of String = (’Domingo’, ‘Segunda-Feira’,
’Terça-Feira’, ‘Quarta-Feira’,
’Quinta-Feira’, ‘Sexta-Feira’,
’Sábado’);
var
dia, mes, ano: […]
Chamando o gerenciador padrão de e-mail
Categorias » Delphi, Dicas Delphi | Deixe um Comentário
Chamar o Gerenciador padrão de e-mail a partir do Delphi é muito simples como você poderá observar na linha de código a seguir. Para isso, você poderá utilizar a biblioteca ShellAPI.
procedure TForm1.Button1Click(Sender: TObject);
begin
shellexecute(handle,’open’,’mailto:intesoft@intesoft.com.br’,nil,nil,sw_show);
end;
Não esqueça de inserir a biblioteca ShellAPI no uses da Unit.
