捐赠 | 广告 | 注册 | 发布 | 上传 | 关于我们    
  粤ICP备10103342号-1 DELPHI盒子 | 盒子文章 | 盒子问答悬赏 | 最新更新 | 盒子检索 | 下载中心 | 高级搜索    
  精品专区 | 繁體中文 | 奖励公告栏 | 直通车账号登陆 | 关闭GOOGLE广告 | 临时留言    
盒子资源分类
全部展开 - 全部合拢
系统环境公共单元System.Environment.pas
关键字：机器名称, 用户名, 系统环境变量, 逻辑盘符, 特殊文件夹位置,本机ip地址,外网ip地址,mac地址,internet连接状态
来　自：原创
平　台：Win2k/XP/NT,Win2003 下载所需：0 火柴
深浅度：中级 完成时间：2009/4/26
发布者：zuobaoquan 发布时间：2009/4/26
编辑器：DELPHI7 语　　种：ENGLISH
分　类：系统 下载浏览：1686/7640
加入到我的收藏
下载错误报错
登陆以后才能下载
 用户名：
 密　码：
自动登陆(30天有效)
图片如果打不开，说明流量不够了，请稍候下载……
我们平时写Delphi程序的时候经常要获取一些系统信息，比如当前的机器名称、用户名、当前应用程序的路径、系统环境变量、逻辑盘符、某些特殊文件夹的位置、本机的IP地址、外网的IP地址、网卡的物理地址（MAC）、Internet连接状态等等。今天我把以前的这些代码整理并封装在一个单元里面，分享给大家。

原始单元名称为System.Environment.pas，命名参考了.Net里面的System.Environment类，同时根据Delphi的特性做了一些调整和扩充。

更多信息（在线帮助），请访问：
http://www.zuobaoquan.com/2009/04/26/delphi-system-environment-pas/
Google
 
本站原创作品，未经作者许可，严禁任何方式转载；转载作品，如果侵犯了您的权益，请联系我们！
龙脉加密锁 15元起 Grid++Report 报表 申请支付@网
　相关文章
没有相关文章
相关评论
共有评论11条 当前显示最后6条评论
zuobaoquan 2009/4/27 18:05:18
@huboy
要靠外网，你可以看看代码，方法还是很简单的。
tuao 2009/4/29 10:00:40
E文不好，作者就不能用中文做注释和demo
zuobaoquan 2009/4/29 19:39:36
@tuao，抱歉，近来在学英文。。。
gbhui21 2009/5/4 14:02:18
 在WIN2K下第二TABSHEET 报错
zuobaoquan 2009/5/4 19:00:25
@gbhui21
谢谢！我已经测试出来了，尽快更正。
zuobaoquan 2009/5/5 11:32:54
大家可以先手工修改一下：（近期将有大幅更新，敬请关注）

class procedure TEnvironment.GetEnvironmentVariables(list: TStrings);
var
  pEnv: PChar;
  p: PChar;
  s: string;
begin
  pEnv := GetEnvironmentStrings;
  try
    p := pEnv;
    list.BeginUpdate;
    try
      list.Clear;
      while p^ <> #0 do
      begin
        s := p;
        if Pos('=', s) > 1 then  // Skip when begins with '='
          list.Add(s);
        Inc(p, Length(s) + 1);   // Jump to the next variable
      end;
    finally
      list.EndUpdate;
    end;
  finally
    Win32Check(FreeEnvironmentStrings(pEnv));
  end;
end;
我要发表评论 查看全部评论
 
  DELPHI盒子版权所有 技术支持:深圳市麟瑞科技有限公司 1999-2024 V4.01 粤ICP备10103342号-1 更新RSS列表