Проверить запущена ли программа от System account?

Материал из DRKB

Проверить запущена ли программа от 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;


Source: Взято с сайта http://www.swissdelphicenter.ch/en/tipsindex.php
ID: 01723