科技行者

行者学院 转型私董会 科技行者专题报道 网红大战科技行者

知识库

知识库 安全导航

至顶网软件频道基础软件delphi三十六之网络篇

delphi三十六之网络篇

  • 扫一扫
    分享文章到微信

  • 扫一扫
    关注官方公众号
    至顶头条

在程序中实现用默认的Web浏览器打开URL以及发送电子邮件......

作者:陈立平 来源:yesky 2007年11月1日

关键字: Delphi 网络

  • 评论
  • 分享微博
  • 分享邮件
1.在程序中实现用默认的Web浏览器打开URL以及发送电子邮件

uses

shellapi;

….

Procedure TForm1.Label1Click(Sender:Tobject);

begin

 shellexecute(handle,"open","http://www.swissdelphicenter.ch", nil,nil,sw_show);

end;

procedure

 TForm1.Button1Click(Sender: Tobject);

begin

 shellexecute(handle,"open", "mailto:user@host.com", nil, nil,sw_shownormal);

end;

  2.得到网络适配器的MAC地址

//uses Windows, SysUtils, NB30, 以下为类型定义及函数代码

const sNetBiosError = "NetBIOS错误%d";

type TMACAddress = packed array[0..5] of Byte;

ENetBiosError = class( Exception );

TAStat = record Adapt : TAdapterStatus;

NameBuff : array[0..30] of TNameBuffer;

end;

function GetMacAddress( AdapterNum : Integer ) : TMACAddress;

var

 Ncb : TNCB; uRetCode : Char;

 J : Integer; Adapter : TAStat;

begin

 FillChar( NCB, SizeOf(NCB), 0 );

 with NCB do begin

 ncb_command := Char(NCBRESET);

 ncb_lana_num := Char( AdapterNum );

end;
    • 评论
    • 分享微博
    • 分享邮件
    閭欢璁㈤槄

    濡傛灉鎮ㄩ潪甯歌揩鍒囩殑鎯充簡瑙T棰嗗煙鏈€鏂颁骇鍝佷笌鎶€鏈俊鎭紝閭d箞璁㈤槄鑷抽《缃戞妧鏈偖浠跺皢鏄偍鐨勬渶浣抽€斿緞涔嬩竴銆�

    重磅专题
    往期文章
    最新文章