aclapi.imp

来自「East make Tray Icon in delphi」· IMP 代码 · 共 20 行

{$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}