jwaaclapi.pas

比较全面的win32api开发包

{$ELSE}
function GetNamedSecurityInfo; external aclapilib name 'GetNamedSecurityInfoW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}

{$IFDEF DYNAMIC_LINK}
var
  _GetNamedSecurityInfo: Pointer;

function GetNamedSecurityInfo;
begin
  GetProcedureAddress(_GetNamedSecurityInfo, aclapilib, 'GetNamedSecurityInfoA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_GetNamedSecurityInfo]
  end;
end;
{$ELSE}
function GetNamedSecurityInfo; external aclapilib name 'GetNamedSecurityInfoA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}

{$IFDEF DYNAMIC_LINK}
var
  _GetSecurityInfo: Pointer;

function GetSecurityInfo;
begin
  GetProcedureAddress(_GetSecurityInfo, aclapilib, 'GetSecurityInfo');
  asm
    mov esp, ebp
    pop ebp
    jmp [_GetSecurityInfo]
  end;
end;
{$ELSE}
function GetSecurityInfo; external aclapilib name 'GetSecurityInfo';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _SetNamedSecurityInfoA: Pointer;

function SetNamedSecurityInfoA;
begin
  GetProcedureAddress(_SetNamedSecurityInfoA, aclapilib, 'SetNamedSecurityInfoA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_SetNamedSecurityInfoA]
  end;
end;
{$ELSE}
function SetNamedSecurityInfoA; external aclapilib name 'SetNamedSecurityInfoA';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _SetNamedSecurityInfoW: Pointer;

function SetNamedSecurityInfoW;
begin
  GetProcedureAddress(_SetNamedSecurityInfoW, aclapilib, 'SetNamedSecurityInfoW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_SetNamedSecurityInfoW]
  end;
end;
{$ELSE}
function SetNamedSecurityInfoW; external aclapilib name 'SetNamedSecurityInfoW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}

{$IFDEF DYNAMIC_LINK}
var
  _SetNamedSecurityInfo: Pointer;

function SetNamedSecurityInfo;
begin
  GetProcedureAddress(_SetNamedSecurityInfo, aclapilib, 'SetNamedSecurityInfoW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_SetNamedSecurityInfo]
  end;
end;
{$ELSE}
function SetNamedSecurityInfo; external aclapilib name 'SetNamedSecurityInfoW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}

{$IFDEF DYNAMIC_LINK}
var
  _SetNamedSecurityInfo: Pointer;

function SetNamedSecurityInfo;
begin
  GetProcedureAddress(_SetNamedSecurityInfo, aclapilib, 'SetNamedSecurityInfoA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_SetNamedSecurityInfo]
  end;
end;
{$ELSE}
function SetNamedSecurityInfo; external aclapilib name 'SetNamedSecurityInfoA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}

{$IFDEF DYNAMIC_LINK}
var
  _SetSecurityInfo: Pointer;

function SetSecurityInfo;
begin
  GetProcedureAddress(_SetSecurityInfo, aclapilib, 'SetSecurityInfo');
  asm
    mov esp, ebp
    pop ebp
    jmp [_SetSecurityInfo]
  end;
end;
{$ELSE}
function SetSecurityInfo; external aclapilib name 'SetSecurityInfo';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _GetInheritanceSourceA: Pointer;

function GetInheritanceSourceA;
begin
  GetProcedureAddress(_GetInheritanceSourceA, aclapilib, 'GetInheritanceSourceA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_GetInheritanceSourceA]
  end;
end;
{$ELSE}
function GetInheritanceSourceA; external aclapilib name 'GetInheritanceSourceA';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _GetInheritanceSourceW: Pointer;

function GetInheritanceSourceW;
begin
  GetProcedureAddress(_GetInheritanceSourceW, aclapilib, 'GetInheritanceSourceW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_GetInheritanceSourceW]
  end;
end;
{$ELSE}
function GetInheritanceSourceW; external aclapilib name 'GetInheritanceSourceW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}

{$IFDEF DYNAMIC_LINK}
var
  _GetInheritanceSource: Pointer;

function GetInheritanceSource;
begin
  GetProcedureAddress(_GetInheritanceSource, aclapilib, 'GetInheritanceSourceW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_GetInheritanceSource]
  end;
end;
{$ELSE}
function GetInheritanceSource; external aclapilib name 'GetInheritanceSourceW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}

{$IFDEF DYNAMIC_LINK}
var
  _GetInheritanceSource: Pointer;

function GetInheritanceSource;
begin
  GetProcedureAddress(_GetInheritanceSource, aclapilib, 'GetInheritanceSourceA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_GetInheritanceSource]
  end;
end;
{$ELSE}
function GetInheritanceSource; external aclapilib name 'GetInheritanceSourceA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}

{$IFDEF DYNAMIC_LINK}
var
  _FreeInheritedFromArray: Pointer;

function FreeInheritedFromArray;
begin
  GetProcedureAddress(_FreeInheritedFromArray, aclapilib, 'FreeInheritedFromArray');
  asm
    mov esp, ebp
    pop ebp
    jmp [_FreeInheritedFromArray]
  end;
end;
{$ELSE}
function FreeInheritedFromArray; external aclapilib name 'FreeInheritedFromArray';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _TreeResetNamedSecurityInfoA: Pointer;

function TreeResetNamedSecurityInfoA;
begin
  GetProcedureAddress(_TreeResetNamedSecurityInfoA, aclapilib, 'TreeResetNamedSecurityInfoA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_TreeResetNamedSecurityInfoA]
  end;
end;
{$ELSE}
function TreeResetNamedSecurityInfoA; external aclapilib name 'TreeResetNamedSecurityInfoA';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _TreeResetNamedSecurityInfoW: Pointer;

function TreeResetNamedSecurityInfoW;
begin
  GetProcedureAddress(_TreeResetNamedSecurityInfoW, aclapilib, 'TreeResetNamedSecurityInfoW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_TreeResetNamedSecurityInfoW]
  end;
end;
{$ELSE}
function TreeResetNamedSecurityInfoW; external aclapilib name 'TreeResetNamedSecurityInfoW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}

{$IFDEF DYNAMIC_LINK}
var
  _TreeResetNamedSecurityInfo: Pointer;

function TreeResetNamedSecurityInfo;
begin
  GetProcedureAddress(_TreeResetNamedSecurityInfo, aclapilib, 'TreeResetNamedSecurityInfoW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_TreeResetNamedSecurityInfo]
  end;
end;
{$ELSE}
function TreeResetNamedSecurityInfo; external aclapilib name 'TreeResetNamedSecurityInfoW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}

{$IFDEF DYNAMIC_LINK}
var
  _TreeResetNamedSecurityInfo: Pointer;

function TreeResetNamedSecurityInfo;
begin
  GetProcedureAddress(_TreeResetNamedSecurityInfo, aclapilib, 'TreeResetNamedSecurityInfoA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_TreeResetNamedSecurityInfo]
  end;
end;
{$ELSE}
function TreeResetNamedSecurityInfo; external aclapilib name 'TreeResetNamedSecurityInfoA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}

{$IFDEF DYNAMIC_LINK}
var
  _BuildSecurityDescriptorA: Pointer;

function BuildSecurityDescriptorA;
begin
  GetProcedureAddress(_BuildSecurityDescriptorA, aclapilib, 'BuildSecurityDescriptorA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_BuildSecurityDescriptorA]
  end;
end;
{$ELSE}
function BuildSecurityDescriptorA; external aclapilib name 'BuildSecurityDescriptorA';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _BuildSecurityDescriptorW: Pointer;

function BuildSecurityDescriptorW;
begin
  GetProcedureAddress(_BuildSecurityDescriptorW, aclapilib, 'BuildSecurityDescriptorW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_BuildSecurityDescriptorW]
  end;
end;
{$ELSE}
function BuildSecurityDescriptorW; external aclapilib name 'BuildSecurityDescriptorW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}

{$IFDEF DYNAMIC_LINK}
var
  _BuildSecurityDescriptor: Pointer;

function BuildSecurityDescriptor;
begin
  GetProcedureAddress(_BuildSecurityDescriptor, aclapilib, 'BuildSecurityDescriptorW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_BuildSecurityDescriptor]
  end;
end;
{$ELSE}
function BuildSecurityDescriptor; external aclapilib name 'BuildSecurityDescriptorW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}

{$IFDEF DYNAMIC_LINK}
var
  _BuildSecurityDescriptor: Pointer;

function BuildSecurityDescriptor;
begin
  GetProcedureAddress(_BuildSecurityDescriptor, aclapilib, 'BuildSecurityDescriptorA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_BuildSecurityDescriptor]
  end;
end;
{$ELSE}
function BuildSecurityDescriptor; external aclapilib name 'BuildSecurityDescriptorA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}

{$IFDEF DYNAMIC_LINK}
var
  _LookupSecurityDescriptorPartsA: Pointer;

function LookupSecurityDescriptorPartsA;
begin
  GetProcedureAddress(_LookupSecurityDescriptorPartsA, aclapilib, 'LookupSecurityDescriptorPartsA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_LookupSecurityDescriptorPartsA]
  end;
end;
{$ELSE}
function LookupSecurityDescriptorPartsA; external aclapilib name 'LookupSecurityDescriptorPartsA';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _LookupSecurityDescriptorPartsW: Pointer;

function LookupSecurityDescriptorPartsW;
begin
  GetProcedureAddress(_LookupSecurityDescriptorPartsW, aclapilib, 'LookupSecurityDescriptorPartsW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_LookupSecurityDescriptorPartsW]
  end;
end;
{$ELSE}
function LookupSecurityDescriptorPartsW; external aclapilib name 'LookupSecurityDescriptorPartsW';
{$ENDIF DYNAMIC_LINK}
{$IFDEF UNICODE}

{$IFDEF DYNAMIC_LINK}
var
  _LookupSecurityDescriptorParts: Pointer;

function LookupSecurityDescriptorParts;
begin
  GetProcedureAddress(_LookupSecurityDescriptorParts, aclapilib, 'LookupSecurityDescriptorPartsW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_LookupSecurityDescriptorParts]
  end;
end;
{$ELSE}
function LookupSecurityDescriptorParts; external aclapilib name 'LookupSecurityDescriptorPartsW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}

{$IFDEF DYNAMIC_LINK}
var
  _LookupSecurityDescriptorParts: Pointer;

function LookupSecurityDescriptorParts;
begin
  GetProcedureAddress(_LookupSecurityDescriptorParts, aclapilib, 'LookupSecurityDescriptorPartsA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_LookupSecurityDescriptorParts]
  end;
end;
{$ELSE}
function LookupSecurityDescriptorParts; external aclapilib name 'LookupSecurityDescriptorPartsA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}