Código Delphi [-] procedure TAboutBox.ContactClick(Sender: TObject); begin ShellExecute(GetDesktopWindow(),nil, pChar('mailto:[email protected]'), nil,nil,SW_SHOWNORMAL); end;
procedure TAboutBox.ContactClick(Sender: TObject); begin ShellExecute(GetDesktopWindow(),nil, pChar('mailto:[email protected]'), nil,nil,SW_SHOWNORMAL); end;