判断是否在系统账户下运行程序(Win2K,XP)

  • 主题发起人 主题发起人 import
  • 开始时间 开始时间
I

import

Unregistered / Unconfirmed
GUEST, unregistred user!
determine if my program/Service is running under the System account? function OnSystemAccount(): Boolean;
const
cnMaxNameLen = 254;
var
sName: string;
dwNameLen: DWORD;
begin
dwNameLen := cnMaxNameLen - 1;
SetLength(sName, cnMaxNameLen);
GetUserName(PChar(sName), dwNameLen);
SetLength(sName, dwNameLen);
if UpperCase(Trim(sName)) = 'SYSTEM' then Result := True
else
Result := False;
end;
 
后退
顶部