pubfun.pas

Delphi函数查询器是你开发程序的好帮手

{ ********************************************************************** }
{                                                                        }
{                    DelphiFun 1.0 (Delphi函数查询器)                    }
{                         Public function Source                         }
{                                                                        }
{     Copyright (c) 2003 by netrobo & [e-mail] in changchun      }
{                                                                        }
{ ********************************************************************** }

unit PubFun;

interface

uses
  Forms,ShellAPI;

  procedure ToMyEmail();

implementation

procedure ToMyEmail();
begin
  ShellExecute(Application.Handle,'open','mailto:[e-mail]',nil,nil,0);
end;

end.