jwawincred.pas

比较全面的win32api开发包

  asm
    mov esp, ebp
    pop ebp
    jmp [_CredWriteDomainCredentials]
  end;
end;
{$ELSE}
function CredWriteDomainCredentials; external credapi name 'CredWriteDomainCredentialsA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}

{$IFDEF DYNAMIC_LINK}
var
  _CredReadDomainCredentialsW: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _CredReadDomainCredentialsA: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _CredReadDomainCredentials: Pointer;

function CredReadDomainCredentials;
begin
  GetProcedureAddress(_CredReadDomainCredentials, credapi, 'CredReadDomainCredentialsW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_CredReadDomainCredentials]
  end;
end;
{$ELSE}
function CredReadDomainCredentials; external credapi name 'CredReadDomainCredentialsW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}

{$IFDEF DYNAMIC_LINK}
var
  _CredReadDomainCredentials: Pointer;

function CredReadDomainCredentials;
begin
  GetProcedureAddress(_CredReadDomainCredentials, credapi, 'CredReadDomainCredentialsA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_CredReadDomainCredentials]
  end;
end;
{$ELSE}
function CredReadDomainCredentials; external credapi name 'CredReadDomainCredentialsA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}

{$IFDEF DYNAMIC_LINK}
var
  _CredDeleteW: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _CredDeleteA: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _CredDelete: Pointer;

function CredDelete;
begin
  GetProcedureAddress(_CredDelete, credapi, 'CredDeleteW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_CredDelete]
  end;
end;
{$ELSE}
function CredDelete; external credapi name 'CredDeleteW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}

{$IFDEF DYNAMIC_LINK}
var
  _CredDelete: Pointer;

function CredDelete;
begin
  GetProcedureAddress(_CredDelete, credapi, 'CredDeleteA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_CredDelete]
  end;
end;
{$ELSE}
function CredDelete; external credapi name 'CredDeleteA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}

{$IFDEF DYNAMIC_LINK}
var
  _CredRenameW: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _CredRenameA: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _CredRename: Pointer;

function CredRename;
begin
  GetProcedureAddress(_CredRename, credapi, 'CredRenameW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_CredRename]
  end;
end;
{$ELSE}
function CredRename; external credapi name 'CredRenameW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}

{$IFDEF DYNAMIC_LINK}
var
  _CredRename: Pointer;

function CredRename;
begin
  GetProcedureAddress(_CredRename, credapi, 'CredRenameA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_CredRename]
  end;
end;
{$ELSE}
function CredRename; external credapi name 'CredRenameA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}

{$IFDEF DYNAMIC_LINK}
var
  _CredGetTargetInfoW: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _CredGetTargetInfoA: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _CredGetTargetInfo: Pointer;

function CredGetTargetInfo;
begin
  GetProcedureAddress(_CredGetTargetInfo, credapi, 'CredGetTargetInfoA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_CredGetTargetInfo]
  end;
end;
{$ELSE}
function CredGetTargetInfo; external credapi name 'CredGetTargetInfoA';
{$ENDIF DYNAMIC_LINK}
{$ELSE}

{$IFDEF DYNAMIC_LINK}
var
  _CredGetTargetInfo: Pointer;

function CredGetTargetInfo;
begin
  GetProcedureAddress(_CredGetTargetInfo, credapi, 'CredGetTargetInfoA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_CredGetTargetInfo]
  end;
end;
{$ELSE}
function CredGetTargetInfo; external credapi name 'CredGetTargetInfoA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}

{$IFDEF DYNAMIC_LINK}
var
  _CredMarshalCredentialW: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _CredMarshalCredentialA: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _CredMarshalCredential: Pointer;

function CredMarshalCredential;
begin
  GetProcedureAddress(_CredMarshalCredential, credapi, 'CredMarshalCredentialW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_CredMarshalCredential]
  end;
end;
{$ELSE}
function CredMarshalCredential; external credapi name 'CredMarshalCredentialW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}

{$IFDEF DYNAMIC_LINK}
var
  _CredMarshalCredential: Pointer;

function CredMarshalCredential;
begin
  GetProcedureAddress(_CredMarshalCredential, credapi, 'CredMarshalCredentialA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_CredMarshalCredential]
  end;
end;
{$ELSE}
function CredMarshalCredential; external credapi name 'CredMarshalCredentialA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}

{$IFDEF DYNAMIC_LINK}
var
  _CredUnmarshalCredentialW: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _CredUnmarshalCredentialA: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _CredUnmarshalCredential: Pointer;

function CredUnmarshalCredential;
begin
  GetProcedureAddress(_CredUnmarshalCredential, credapi, 'CredUnmarshalCredentialW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_CredUnmarshalCredential]
  end;
end;