DELPHI基础开发技巧

•          if i<4 then
           ipstr:=ipstr+IP+'.'
          else
           edit1.Text:=ipstr+ip;
          end;
         end;
         WSACleanup;
      end;
  (17).取得计算机名。
      function tform1.get_name:string;
      var  ComputerName: PChar;  size: DWord;
      begin
          GetMem(ComputerName,255);
          size:=255;
          if GetComputerName(ComputerName,size)=False then
             result:=''
          else
             result:=ComputerName;
          FreeMem(ComputerName);
      end;
      procedure TForm1.Button1Click(Sender: TObject);
      begin
        label1.Caption:=get_name;
      end;

  
  (18).取得硬盘序列号。
      function tform1.GetHDSerialNumber: LongInt;
      {$IFDEF WIN32}
      var
        pdw : pDWord;
        mc, fl : dword;
      {$ENDIF}
      begin
        {$IfDef WIN32}
        New(pdw);
        GetVolumeInformation('c:\',nil,0,pdw,mc,fl,nil,0);
  

• 上一页 [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

特别推荐