{ ********************************************************************** }
{                                                                        }
{                    DelphiFun 1.0 (Delphi函數查詢器)                    }
{                         Public function Source                         }
{                                                                        }
{     Copyright (c) 2003 by netrobo & netrobo@sohu.com in changchun      }
{                                                                        }
{ ********************************************************************** }

unit PubFun;

interface

uses
  Forms,ShellAPI;

  procedure ToMyEmail();

implementation

procedure ToMyEmail();
begin
  ShellExecute(Application.Handle,'open','mailto:netrobo@sohu.com',nil,nil,0);
end;

end.