jwawincred.pas

比较全面的win32api开发包

{$ELSE}
function CredUnmarshalCredential; external credapi name 'CredUnmarshalCredentialW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}

{$IFDEF DYNAMIC_LINK}
var
  _CredUnmarshalCredential: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _CredIsMarshaledCredentialW: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _CredIsMarshaledCredentialA: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _CredIsMarshaledCredential: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _CredIsMarshaledCredential: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _CredGetSessionTypes: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _CredFree: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _CredUIPromptForCredentialsW: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _CredUIPromptForCredentialsA: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _CredUIPromptForCredentials: Pointer;

function CredUIPromptForCredentials;
begin
  GetProcedureAddress(_CredUIPromptForCredentials, credui, 'CredUIPromptForCredentialsW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_CredUIPromptForCredentials]
  end;
end;
{$ELSE}
function CredUIPromptForCredentials; external credui name 'CredUIPromptForCredentialsW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}

{$IFDEF DYNAMIC_LINK}
var
  _CredUIPromptForCredentials: Pointer;

function CredUIPromptForCredentials;
begin
  GetProcedureAddress(_CredUIPromptForCredentials, credui, 'CredUIPromptForCredentialsA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_CredUIPromptForCredentials]
  end;
end;
{$ELSE}
function CredUIPromptForCredentials; external credui name 'CredUIPromptForCredentialsA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}

{$IFDEF DYNAMIC_LINK}
var
  _CredUIParseUserNameW: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _CredUIParseUserNameA: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _CredUIParseUserName: Pointer;

function CredUIParseUserName;
begin
  GetProcedureAddress(_CredUIParseUserName, credui, 'CredUIParseUserNameW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_CredUIParseUserName]
  end;
end;
{$ELSE}
function CredUIParseUserName; external credui name 'CredUIParseUserNameW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}

{$IFDEF DYNAMIC_LINK}
var
  _CredUIParseUserName: Pointer;

function CredUIParseUserName;
begin
  GetProcedureAddress(_CredUIParseUserName, credui, 'CredUIParseUserNameA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_CredUIParseUserName]
  end;
end;
{$ELSE}
function CredUIParseUserName; external credui name 'CredUIParseUserNameA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}

{$IFDEF DYNAMIC_LINK}
var
  _CredUICmdLinePromptForCredentialsW: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _CredUICmdLinePromptForCredentialsA: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _CredUICmdLinePromptForCredentials: Pointer;

function CredUICmdLinePromptForCredentials;
begin
  GetProcedureAddress(_CredUICmdLinePromptForCredentials, credui, 'CredUICmdLinePromptForCredentialsW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_CredUICmdLinePromptForCredentials]
  end;
end;
{$ELSE}
function CredUICmdLinePromptForCredentials; external credui name 'CredUICmdLinePromptForCredentialsW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}

{$IFDEF DYNAMIC_LINK}
var
  _CredUICmdLinePromptForCredentials: Pointer;

function CredUICmdLinePromptForCredentials;
begin
  GetProcedureAddress(_CredUICmdLinePromptForCredentials, credui, 'CredUICmdLinePromptForCredentialsA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_CredUICmdLinePromptForCredentials]
  end;
end;
{$ELSE}
function CredUICmdLinePromptForCredentials; external credui name 'CredUICmdLinePromptForCredentialsA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}

{$IFDEF DYNAMIC_LINK}
var
  _CredUIConfirmCredentialsW: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _CredUIConfirmCredentialsA: Pointer;

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

{$IFDEF DYNAMIC_LINK}
var
  _CredUIConfirmCredentials: Pointer;

function CredUIConfirmCredentials;
begin
  GetProcedureAddress(_CredUIConfirmCredentials, credui, 'CredUIConfirmCredentialsW');
  asm
    mov esp, ebp
    pop ebp
    jmp [_CredUIConfirmCredentials]
  end;
end;
{$ELSE}
function CredUIConfirmCredentials; external credui name 'CredUIConfirmCredentialsW';
{$ENDIF DYNAMIC_LINK}
{$ELSE}

{$IFDEF DYNAMIC_LINK}
var
  _CredUIConfirmCredentials: Pointer;

function CredUIConfirmCredentials;
begin
  GetProcedureAddress(_CredUIConfirmCredentials, credui, 'CredUIConfirmCredentialsA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_CredUIConfirmCredentials]
  end;
end;
{$ELSE}
function CredUIConfirmCredentials; external credui name 'CredUIConfirmCredentialsA';
{$ENDIF DYNAMIC_LINK}
{$ENDIF}

end.