pubfun.pas

来自「一个自己总结的delphi常用函数（内有自己编写的一些技巧性函数 ）」· PAS 代码 · 共 27 行

{ ********************************************************************** }
{                                                                        }
{                    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.