Posts para a Categoria 'Dicas Delphi'
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: […]
Capturando o ícone do executável para um TImage
Categorias » Delphi, Dicas Delphi | Deixe um Comentário
Captura o ícone do executável e atribui a um TImage. Inclua a biblioteca ShellAPI no uses do seu form.
procedure TForm1.Button1Click(Sender: TObject);
begin
Image1.Picture.Icon.Handle := ExtractIcon(Handle, PChar(’C:\Windows\Calc.exe’),0);
end;
No exemplo acima, é capturado o ícone da calculadora do Windows e atribuído a um objeto TImage.
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.
Acessando uma URL na Internet
Categorias » Delphi, Dicas Delphi | Deixe um Comentário
Utilizando a linha de código a seguir, você poderá acessar qualquer URL na Internet. Para isso, você poderá utilizar a função shellexecute da biblioteca ShellAPI.
procedure TForm1.Button1Click(Sender: TObject);
begin
shellexecute(handle,’open’,’http://www.intesoft.com.br’,nil,nil,sw_show);
end;
Não esqueça de inserir a biblioteca ShellAPI no uses da Unit.
