怎样获得登陆到我的机子的连接的用户名?
解决方案 »
- delphi7.0+winxp+officexp中,操作excel的问题。
- treeview 加了 checkbox 后如何判断节点是否 为checked
- 3层连接问题,在先等待
- 询问一下:大家的报表都是怎么做的(用什么做的?或则用什么方式做的?)
- 大伙来说说delphi都用什么来制做的安装程序!
- 字符串问题
- 多文档窗口中,当子窗体最大化时,问题就在这里???
- 关于窗体透明的问题!
- 怎样将ODlgsy打开后所选中的bmp图标通过dbimage存入数据库?
- 如何根据登陆用户名来判断用户的权限?
- 急急!!请高手解决delphi+oracle8.04打包问题???
- ******关于MEMO控件类型的值在Quick Report报表中的显示问题?******
有哪些计算机与自己的电脑连接?bbkxjy, 时间:2001-5-31 20:23:57, ID:549334
以前回答过类似的问题,这次又可以骗分了,;)
const
MaxNetArrayItems = 512;
type
TSessionInfo50 = packed record
sesi50_cname: PChar; //remote computer name (connection id in Netware)
sesi50_username: PChar;
sesi50_key: DWORD; // used to delete session (not used in Netware)
sesi50_num_conns: Word;
sesi50_num_opens: Word; //not available in Netware
sesi50_time: DWORD;
sesi50_idle_time: DWORD; //not available in Netware
sesi50_protocol: Char;
padl: Char;
end; TNetSessionEnum = function (const pszServer: PChar; sLevel: SmallInt;
pbBuffer: Pointer; cbBuffer: Word; var pcEntriesRead: Word;
var pcTotalAvail: Word): DWORD; stdcall;
procedure GetNetSessions(ComputerNames: TStrings);
var
SessionInfo: array[0..MaxNetArrayItems] of TSessionInfo50;
EntriesRead, TotalAvail: Word;
I: Integer;
Str: string;
NetSessionEnum: TNetSessionEnum;
LibHandle: THandle;
begin
ComputerNames.Clear;
LibHandle := LoadLibrary('SVRAPI.DLL');
if LibHandle <> 0 then
begin
try
@NetSessionEnum := GetProcAddress(LibHandle, 'NetSessionEnum');
if (@NetSessionEnum <> nil) then
if NetSessionEnum(nil, 50, @SessionInfo, Sizeof(SessionInfo), EntriesRead, TotalAvail) = 0 then
begin
for I := 0 to EntriesRead - 1 do
with SessionInfo[I] do
begin
SetString(Str, sesi50_cname, StrLen(sesi50_cname));
ComputerNames.Add(Str);
end;
end;
finally
FreeLibrary(LibHandle);
end;
end;
end;
连接的计算机名存放在 ComputerNames 中,可以在 Win9x 下使用。