procedure TForm1.Button1Click(Sender: TObject);
var
Mail : String;
begin
Mail := 'mailto:rudineirosa@gmail.com';
ShellExecute(GetDesktopWindow,'open',pchar(Mail),nil,nil,sw_ShowNormal);
end;
Assinar:
Postar comentários (Atom)
-
function GetIP:string;//--> Declare a Winsock na clausula uses da unit var WSAData: TWSAData; HostEnt: PHostEnt; Name:string; begin...
-
Vamos criar uma API REST simples em Delphi. Para isso, usaremos o Delphi 7 com Indy components (se for o que você tem disponível) ou, se est...
Nenhum comentário:
Postar um comentário