aclapi.imp

East make Tray Icon in delphi

{$IFDEF MSWINDOWS}

const
  aclapilib = 'advapi32.dll';

var
  _SetNamedSecurityInfoW: Pointer;

function SetNamedSecurityInfoW;
begin
  GetProcedureAddress(_SetNamedSecurityInfoW, aclapilib, 'SetNamedSecurityInfoW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_SetNamedSecurityInfoW]
  end;
end;

{$ENDIF MSWINDOWS}