DELPHI基础开发技巧

• 然后就可以调用函数判断系统是否连接到INTERNET
  if InetIsOffline(0) then ShowMessage('not connected!')
  else ShowMessage('connected!');
  该函数返回TRUE如果本地系统没有连接到INTERNET。
  附：
  大多数装有IE或OFFICE97的系统都有此DLL可供调用。
  InetIsOffline
  BOOL InetIsOffline(
  DWORD dwFlags,
  );

  ◇[DELPHI]简单地播放和暂停WAV文件
  uses mmsystem;

  function PlayWav(const FileName: string): Boolean;
  begin
  Result := PlaySound(PChar(FileName), 0, SND_ASYNC);
  end;

  procedure StopWav;
  var
  buffer: array[0..2] of char;
  begin
  buffer[0] := #0;
  PlaySound(Buffer, 0, SND_PURGE);
  end;

  ◇[DELPHI]取机器BIOS信息
  with Memo1.Lines do
  begin
  Add('MainBoardBiosName:'+^I+string(Pchar(Ptr($FE061))));
  Add('MainBoardBiosCopyRight:'+^I+string(Pchar(Ptr($FE091))));
  Add('MainBoardBiosDate:'+^I+string(Pchar(Ptr($FFFF5))));
  Add('MainBoardBiosSerialNo:'+^I+string(Pchar(Ptr($FEC71))));
  end;

  ◇[DELPHI]网络下载文件
  uses UrlMon;

  function DownloadFile(Source, Dest: string): Boolean;
  begin
  try
  Result := UrlDownloadToFile(nil, PChar(source), PChar(Dest), 0, nil) = 0;
  except
  Result := False;
  end;
  end;

  if DownloadFile('http://www.borland.com/delphi6.zip, 'c:\kylix.zip') then
  ShowMessage('Download succesful')
  else ShowMessage('Download unsuccesful')

  ◇[DELPHI]解析服务器IP地址
  uses winsock

  function IPAddrToName(IPAddr : String): String;
  var
  SockAddrIn: TSockAddrIn;
  HostEnt: PHostEnt;
  WSAData: TWSAData;
  begin
  WSAStartup($101, WSAData);
  SockAddrIn.sin_addr.s_addr:= inet_addr(PChar(IPAddr));
  HostEnt:= gethostbyaddr(@SockAddrIn.sin_addr.S_addr, 4, AF_INET);
  if HostEnt<>nil then result:=StrPas(Hostent^.h_name) else result:='';
  end;

  ◇[DELPHI]取得快捷方式中的连接
  function ExeFromLink(const linkname: string): string;
  

• 上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [11] [12] [13] [14] [15] [16] [17] [18] [19] [20] [21] [22] [23] [24] [25] [26] [27] [28] [29] [30] [31] [32] 下一页 
• 复制本页网址和标题，发送给你QQ/Msn的好友一起分享
  
  
• DELPHI基础开发技巧 相关文章：
• ·Vista12个最实用操作技巧的基础课
• ·HTML基础:HTML的基本结构
• ·Java基础：你是否了解KVM的常量池
• ·搜索引擎优化的基础知识
• ·BPEL模型基础
• ·基础知识讲解 病毒的IFEO映像劫持技术
• ·初学者认识DOCTYPE的基础知识
• ·XHTML教程,简单认识XHTML基础知识
• ·交换机基础 第三层交换机技术
• ·PS基础教程 画笔应用之自定义画笔
• DELPHI基础开发技巧 相关软件
• ·《3D Max 动画基础教程》
• ·超频基础知识
• ·WTO基础知识
• ·全部知识学的基础
• ·财会基础课程
• ·鸟哥的linux私房菜：基础学习篇
• ·证券市场基础知识
• ·06同等学力英语辅导词汇语法部分讲义基础班
• ·06同等学力英语辅导阅读部分讲义基础班
• ·2006年1月自学考试法律基础与思想道德修养模拟试卷

上一篇:用Delphi实现整个网站图片的极速下载

下一篇:Windows的DDE原理

• 特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
• 者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
• 载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

精品推荐

热点TOP10

特别推荐