jwaaclapi.pas

比较全面的win32api开发包

var
  _BuildTrusteeWithObjectsAndNameA: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _BuildTrusteeWithObjectsAndNameW: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _BuildTrusteeWithObjectsAndName: Pointer;

procedure BuildTrusteeWithObjectsAndName;
begin
  GetProcedureAddress(_BuildTrusteeWithObjectsAndName, aclapilib, 'BuildTrusteeWithObjectsAndNameW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_BuildTrusteeWithObjectsAndName]
  end;
end;
{$ELSE}
procedure BuildTrusteeWithObjectsAndName; external aclapilib name 'BuildTrusteeWithObjectsAndNameW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}

{$IFDEF DYNAMIC_LINK}
var
  _BuildTrusteeWithObjectsAndName: Pointer;

procedure BuildTrusteeWithObjectsAndName;
begin
  GetProcedureAddress(_BuildTrusteeWithObjectsAndName, aclapilib, 'BuildTrusteeWithObjectsAndNameA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_BuildTrusteeWithObjectsAndName]
  end;
end;
{$ELSE}
procedure BuildTrusteeWithObjectsAndName; external aclapilib name 'BuildTrusteeWithObjectsAndNameA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}

{$IFDEF DYNAMIC_LINK}
var
  _GetTrusteeNameA: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _GetTrusteeNameW: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _GetTrusteeName: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _GetTrusteeName: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _GetTrusteeTypeA: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _GetTrusteeTypeW: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _GetTrusteeType: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _GetTrusteeType: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _GetTrusteeFormA: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _GetTrusteeFormW: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _GetTrusteeForm: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _GetTrusteeForm: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _GetMultipleTrusteeOperationA: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _GetMultipleTrusteeOperationW: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _GetMultipleTrusteeOperation: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _GetMultipleTrusteeOperation: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _GetMultipleTrusteeA: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _GetMultipleTrusteeW: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _GetMultipleTrustee: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _GetMultipleTrustee: Pointer;

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

end.