求助

Question

本人长时间没有编写程序了，现在找不到delpi中获取windows当前登陆计算机用户的帐号的api函数，请指教，另外，如何获取用户登陆期间所访问的程序？

Answer 1

//以下函数用以获得计算机名。
function GetComputerName: AnsiString;
var lpBuffer: array[0..MAX_PATH] of char;
dwSize: DWORD;
begin
dwSize:= MAX_PATH;
if not Windows.GetComputerName(lpBuffer, dwSize) then
raise
Exception.Create(SysErrorMessage(GetLastError()));
Result:= StrPas(lpBuffer);
end;
{function GetUserName: AnsiString;
var lpBuffer: array[0..MAX_PATH] of char;
dwSize: DWORD;
begin
dwSize:= MAX_PATH;if not Windows.GetUserName(lpBuffer, dwSize) then
raise Exception.Create(SysErrorMessage(GetLastError()));Result:= StrPas(lpBuffer);
end;}
----------------------------
记得uses Winsock

Answer 2

取得当前登陆计算机用户的帐号一般就是当前程序运行的账号:给你个VC的参考:
http://www.vckbase.com/document/viewdoc/?id=687