[poli-smen]

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

сгруппировал) вот что получилось)

Код:

function isSystemProcess:boolean;
var
  UserName :PChar;
  UserNameLen:LongWord;
  PSID, PRef: Pointer;
  SIDSize, RefSize, peUse: Cardinal;
  sSID:Pchar;
begin
  result:=false;
  UserNameLen := 255;
  GetUserName(UserName,UserNameLen);
.....

Хм... Для функции GetUserName вроде нужно самому резервировать память.