域名:
function GetNTDomainName: string;
var
hReg: TRegistry;
begin
hReg := TRegistry.Create;
hReg.RootKey := HKEY_LOCAL_MACHINE;
hReg.OpenKey('SOFTWARE\Microsoft\Windows NT\CurrentVersion
\Winlogon', false );
Result := hReg.ReadString( 'DefaultDomainName' );
hReg.CloseKey;
hReg.Destroy;
end;
function GetNTDomainName: string;
var
hReg: TRegistry;
begin
hReg := TRegistry.Create;
hReg.RootKey := HKEY_LOCAL_MACHINE;
hReg.OpenKey('SOFTWARE\Microsoft\Windows NT\CurrentVersion
\Winlogon', false );
Result := hReg.ReadString( 'DefaultDomainName' );
hReg.CloseKey;
hReg.Destroy;
end;
解决方案 »
- DBGridEh能否显示备注字段?
- 将没有太多时间上网,散分,“对不起”
- 用 ClientDataSet 如何像query:的requestlive设置能够动态更改数据! 急
- 看看我的程序代码出现什么问题?特急!!!!
- 如何在delphi中实现打印条码 有相关的控件么?
- 基于PC的多电机变频调速系统监控软件开发与实现
- 如何使数据表中的特殊符号去除?
- 在foxpro中要想查ID在61000到65000之间的数据,用between怎么用?急急!!
- 红旗Linux哪儿有下载啊?
- 如何在delphi中调入gif动画
- 哪位老兄用过函数ReadEventLog
- 如何在浏览器中显示/调用ActiveXForm
WNetOpenEnum( RESOURCE_GLOBALNET,
RESOURCETYPE_ANY,
0,
@WorkgroupRS,
EnumHandle );
//EnumHandle : THandle;
//WorkgroupRS : TNetResource;