如何得到操作系统当前登录的域（或者没有登录到域）？

2004-03-24 05:40:35 116 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

STC15单片机双串口通信实战：串口2配置与多设备交互本文详细介绍了STC15单片机双串口通信的实战配置，重点解析串口2的硬件连接、寄存器设置及多设备交互实现。通过实际项目案例和完整代码示例，帮助开发者快速掌握STC15串口2的配置技巧，解决常见通信问题，提升嵌入式系统开发效率。阅读详情

...全文

Halcon dyn_threshold详解 dyn_threshold 原型 dyn_threshold(OrigImage, ThresholdImage : RegionDynThresh : Offset, LightDark : ) 功能利用局部阈值分割图像参数列表 OrigImage (input_object)：原始图像 ThresholdImage (input_object)：处理后图像（一般采用滤波处理） RegionDynThresh (output_object)：分割后区域 Offset (input_control)：灰阅读详情

coopa

Windows SDK/API 1,184 成员 22,326 内容

+ 关注 + 加入社区

切换为时间正序

udbw 2004-03-30

打赏
举报

好像有控件可以直接用的啊，找找看，我现在忘了，

udbw 2004-03-30

打赏
举报

关注

coopa 2004-03-30

打赏
举报

没错！可是我在98下运行不通过！

aiirii 2004-03-26

打赏
举报

你看我的代码,使支持的阿!!!

coopa 2004-03-25

打赏
举报

To aiirii(ari-爱的眼睛) :
Win98下不支持！小弟正是要解决98下获取域名的问题！拜托再指点一下！

aiirii 2004-03-24

打赏
举报

function GetDomainName: AnsiString;
type
WKSTA_INFO_100 = record
wki100_platform_id: Integer;
wki100_computername: PWideChar;
wki100_langroup: PWideChar;
wki100_ver_major: Integer;
wki100_ver_minor: Integer;
end;

WKSTA_USER_INFO_1 = record
wkui1_username: PChar;
wkui1_logon_domain: PChar;
wkui1_logon_server: PChar;
wkui1_oth_domains: PChar;
end;
type
//Win9X ANSI prototypes from RADMIN32.DLL and RLOCAL32.DLL

TWin95_NetUserGetInfo = function(ServerName, UserName: PChar; Level: DWORD; var
BfrPtr: Pointer): Integer;
stdcall;
TWin95_NetApiBufferFree = function(BufPtr: Pointer): Integer;
stdcall;
TWin95_NetWkstaUserGetInfo = function(Reserved: PChar; Level: Integer; var
BufPtr: Pointer): Integer;
stdcall;

//WinNT UNICODE equivalents from NETAPI32.DLL

TWinNT_NetWkstaGetInfo = function(ServerName: PWideChar; level: Integer; var
BufPtr: Pointer): Integer;
stdcall;
TWinNT_NetApiBufferFree = function(BufPtr: Pointer): Integer;
stdcall;

function IsWinNT: Boolean;
var
VersionInfo: TOSVersionInfo;
begin
VersionInfo.dwOSVersionInfoSize := SizeOf(TOSVersionInfo);
Result := GetVersionEx(VersionInfo);
if Result then
Result := VersionInfo.dwPlatformID = VER_PLATFORM_WIN32_NT;
end;
var

Win95_NetUserGetInfo: TWin95_NetUserGetInfo;
Win95_NetWkstaUserGetInfo: TWin95_NetWkstaUserGetInfo;
Win95_NetApiBufferFree: TWin95_NetApiBufferFree;

WinNT_NetWkstaGetInfo: TWinNT_NetWkstaGetInfo;
WinNT_NetApiBufferFree: TWinNT_NetApiBufferFree;

WSNT: ^WKSTA_INFO_100;
WS95: ^WKSTA_USER_INFO_1;

EC: DWORD;
hNETAPI: THandle;
begin
try

Result := '';

if IsWinNT then
begin
hNETAPI := LoadLibrary('NETAPI32.DLL');
if hNETAPI <> 0 then
begin @WinNT_NetWkstaGetInfo := GetProcAddress(hNETAPI, 'NetWkstaGetInfo');
@WinNT_NetApiBufferFree := GetProcAddress(hNETAPI, 'NetApiBufferFree');

EC := WinNT_NetWkstaGetInfo(nil, 100, Pointer(WSNT));
if EC = 0 then
begin
Result := WideCharToString(WSNT^.wki100_langroup);
WinNT_NetApiBufferFree(Pointer(WSNT));
end;
end;
end
else
begin
hNETAPI := LoadLibrary('RADMIN32.DLL');
if hNETAPI <> 0 then
begin @Win95_NetApiBufferFree := GetProcAddress(hNETAPI, 'NetApiBufferFree');
@Win95_NetUserGetInfo := GetProcAddress(hNETAPI, 'NetUserGetInfoA');

EC := Win95_NetWkstaUserGetInfo(nil, 1, Pointer(WS95));
if EC = 0 then
begin
Result := WS95^.wkui1_logon_domain;
Win95_NetApiBufferFree(Pointer(WS95));
end;
end;
end;

finally
if hNETAPI <> 0 then
FreeLibrary(hNETAPI);
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(GetDomainName);
end;

web700 2004-03-24

打赏
举报

应该可以从注册表中找到相应的记号

你查一下资料吧

如何得到操作系统当前登录的域（或者没有登录到域）？

相关推荐