| zuobaoquan
37407
|
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; |
| zuobaoquan
37406
|
2009/5/4 19:00:25 |
@gbhui21
谢谢！我已经测试出来了，尽快更正。 |
| gbhui21
37405
|
2009/5/4 14:02:18 |
| 在WIN2K下第二TABSHEET 报错 |
| zuobaoquan
37378
|
2009/4/29 19:39:36 |
| @tuao，抱歉，近来在学英文。。。 |
| tuao
37370
|
2009/4/29 10:00:40 |
| E文不好，作者就不能用中文做注释和demo |
| zuobaoquan
37346
|
2009/4/27 18:05:18 |
@huboy
要靠外网，你可以看看代码，方法还是很简单的。 |
| huboy
37342
|
2009/4/27 16:09:17 |
| 外网IP地址？不借助其他，自己能得到？ |
| zuobaoquan
37339
|
2009/4/27 10:22:56 |
谢谢大家的支持！
@dejoy
这个单元功能注意参考了.Net里面的Environment类，以后会再补充。
btw. 管理员权限在什么情况下需要判断？ |
| dejoy
37338
|
2009/4/27 10:17:11 |
| 顶一个，请问作者，你这个有能看出来当前登录是否是管理员的函数？ 及当前进程是否是管理员权限的函数？(在非管理员用户下“以管理员身份运行” |
| xiaohua0851
37337
|
2009/4/27 8:28:16 |
| 顶一个 |
| zuobaoquan
37336
|
2009/4/27 1:07:15 |
| 呵呵，现在盒子发布的速度真快。 |
