如何获得系统的登录者名称

[sfanpu]

在CSDN上查了一下，发现要实现这个好复杂，目前我还是一知半解，有没有简单一些的方法？

[劣势]

什么系统的登录者名称？搞不懂在问什么呀

[才子鸣]

用API.
GetUserName

[sfanpu]

怎么调用API呢，可以说清楚点吗？

[tiankj]

function TFormSet.SelectComputer: String;//从对话框返回的计算机名
var
WindowList: Pointer;
BrowseInfo: TBrowseInfo;
Buffer: PChar;
RootItemIDList, ItemIDList: PItemIDList;
ShellMalloc: IMalloc;
begin
Result := '';
FillChar(BrowseInfo, SizeOf(BrowseInfo), 0);
if (ShGetMalloc(ShellMalloc) = S_OK) and (ShellMalloc <> nil) then
begin
Buffer := ShellMalloc.Alloc(MAX_PATH);
try
RootItemIDList := nil;
SHGetSpecialFolderLocation(Application.Handle, CSIDL_NETWORK, RootItemIDList);
with BrowseInfo do
begin
hwndOwner := Application.Handle;
pidlRoot := RootItemIDList;
pszDisplayName := Buffer;
lpszTitle := '选择机器名';
ulFlags := BIF_BROWSEFORCOMPUTER;
end;
WindowList := DisableTaskWindows(0);
try
ItemIDList := ShBrowseForFolder(BrowseInfo);
finally
EnableTaskWindows(WindowList);
end;
if ItemIDList <> nil then
begin
Result := StrPas(Buffer);
ShGetPathFromIDList(ItemIDList, Buffer);
ShellMalloc.Free(ItemIDList);
end;
finally
ShellMalloc.Free(Buffer);
end;
end;
end;

[sfanpu]

up

[yimibaer]

登陸界面做一個共用變量
其它界面直接調用就可以了