jwaaclapi.pas

来自「比较全面的win32api开发包」· PAS 代码 · 共 2,139 行 · 第 1/5 页

{$IFDEF DYNAMIC_LINK}
var
  _BuildExplicitAccessWithNameA: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _BuildExplicitAccessWithNameW: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _BuildExplicitAccessWithName: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _BuildExplicitAccessWithName: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _BuildImpersonateExplAccWNA: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _BuildImpersonateExplAccWNW: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _BuildImpersonateExplAccWN: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _BuildImpersonateExplAccWN: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _BuildTrusteeWithNameA: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _BuildTrusteeWithNameW: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _BuildTrusteeWithName: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _BuildTrusteeWithName: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _BuildImpersonateTrusteeA: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _BuildImpersonateTrusteeW: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _BuildImpersonateTrustee: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _BuildImpersonateTrustee: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _BuildTrusteeWithSidA: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _BuildTrusteeWithSidW: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _BuildTrusteeWithSid: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _BuildTrusteeWithSid: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _BuildTrusteeWithObjectsAndSidA: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _BuildTrusteeWithObjectsAndSidW: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _BuildTrusteeWithObjectsAndSid: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _BuildTrusteeWithObjectsAndSid: Pointer;

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

{$IFDEF DYNAMIC_LINK}