如何获取windows的域用户帐号
老板要我做一个程序，这个程序的登录用户名就取windows的登录帐号。
我先建一个用户权限表，这个表名记录的是域用户帐号
当我运行这个程序时，先要取得windows的帐号，然后查询用户权限表中是否有此帐号，如果有，这个程序就可以运行，没有就退出这个程序。
我不知如何获取windows的用户帐号，麻烦各位告知。
问题点数：50、回复次数：2Top
1 楼nyf1220（我是党员----不过听说最近风声紧，打算换名字）回复于 2004-12-01 18:19:23 得分 0
不知道Top
2 楼network0022（network）回复于 2004-12-01 18:45:37 得分 50
procedure TForm1.Button1Click(Sender: TObject);
var
LoginName: array[0..30] of Char;
len: dword;
begin
len := SizeOf(LoginName);
if GetUserName(LoginName,len) then
showmessage(LoginName);
end;Top
