[poli-smen]

Сообщение от reqyz

тут ясно, только как мне сид в PSID преобразовать тогда, нашёл функцию

procedure ConvertSidToStringSid(SID: PSID; var StringSid: LPSTR); stdcall; external advapi32 name 'ConvertSidToStringSidA';

вместо сид мне как "S-1-5-18" указывать?

Смотри в статье "Защита объектов в NT" функцию GetUserSIDStr.
Используешь её так:

Код:

  if GetUserSIDStr('', UserName) = 'S-1-5-18' then ShowMessage('Это система');