Fórum E possivel checar meu email atraves do delphi #172831

eu já vi resposta sobre isto aqui mesmo parece-me que foi este
Estes examplos utilizam uma API do Windows muito popular, a shellexecute, por isso não se esqueça de colocar a ShellApi unit no uses clause da sua unit.
// URL(endereço da internet)
procedure TForm1.Label1Click(Sender: TObject);
begin
ShellExecute(Handle,´open´,´http://www.bytesul.com.br´,nil,nil,SW_SHOW);
end;
// e-mail
procedure TForm1.Label2Click(Sender: TObject);
begin
ShellExecute(Handle,´open´,´mailto:melo@bytesul.com.br´,nil,nil,SW_SHOW);
end;

Vc pode utilizar os componentes da paleta FASTNET ou INDY (se não tiver, pode baixar na net e instalar, é OpenSource) ... para construir clientes de email POP ou IMAP.


T+

Oi,

Estou testando o exemplo citado, mas devo ter deixado algo importante de fora, pois não está funcionando.

Veja:

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ShellApi,
StdCtrls, Buttons;
type
TFGLD456 = class(TForm)
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
Label1: TLabel;
Label2: TLabel;
procedure Label1Click(Sender: TObject);
procedure Label2Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

e,

// URL(endereço da internet)
procedure TFGLD456.Label1Click(Sender: TObject);
begin
ShellExecute(Handle,´open´,´http://www.bytesul.com.br´,nil,nil,SW_SHOW);
end;

// e-mail
procedure TFGLD456.Label2Click(Sender: TObject);
begin
ShellExecute(Handle,´open´,´mailto:melo@bytesul.com.br´,nil,nil,SW_SHOW);
end;

Um abraço,