开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 查看源码
JwaWinCred.pas
资源名称：win32api.zip　[点击查看]
上传用户：davidchvip
上传日期：2009-07-28
资源大小：1749k
文件大小：62k
源码类别：

Windows编程

开发平台：

Delphi

JwaWinCred.pas：源码内容
  1. {******************************************************************************}
  2. {                                                                       }
  3. { Credentials Manager API interface Unit for Object Pascal                     }
  4. {                                                                       }
  5. { Portions created by Microsoft are Copyright (C) 1995-2001 Microsoft          }
  6. { Corporation. All Rights Reserved.                                            }
  7. {                 }
  8. { The original file is: wincred.h, released November 2001. The original Pascal }
  9. { code is: WinCred.pas, released March 2002. The initial developer of the      }
  10. { Pascal code is Marcel van Brakel (brakelm@chello.nl).                        }
  11. {                                                                              }
  12. { Portions created by Marcel van Brakel are Copyright (C) 1999-2001            }
  13. { Marcel van Brakel. All Rights Reserved.                                      }
  14. {                 }
  15. { Obtained through: Joint Endeavour of Delphi Innovators (Project JEDI)        }
  16. {                }
  17. { You may retrieve the latest version of this file at the Project JEDI home    }
  18. { page, located at http://delphi-jedi.org or my personal homepage located at   }
  19. { http://members.chello.nl/m.vanbrakel2                                        }
  20. {                }
  21. { The contents of this file are used with permission, subject to the Mozilla   }
  22. { Public License Version 1.1 (the "License"); you may not use this file except }
  23. { in compliance with the License. You may obtain a copy of the License at      }
  24. { http://www.mozilla.org/MPL/MPL-1.1.html                                      }
  25. {                                                                              }
  26. { Software distributed under the License is distributed on an "AS IS" basis,   }
  27. { WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for }
  28. { the specific language governing rights and limitations under the License.    }
  29. {                                                                              }
  30. { Alternatively, the contents of this file may be used under the terms of the  }
  31. { GNU Lesser General Public License (the  "LGPL License"), in which case the   }
  32. { provisions of the LGPL License are applicable instead of those above.        }
  33. { If you wish to allow use of your version of this file only under the terms   }
  34. { of the LGPL License and not to allow others to use your version of this file }
  35. { under the MPL, indicate your decision by deleting  the provisions above and  }
  36. { replace  them with the notice and other provisions required by the LGPL      }
  37. { License.  If you do not delete the provisions above, a recipient may use     }
  38. { your version of this file under either the MPL or the LGPL License.          }
  39. {                 }
  40. { For more information about the LGPL: http://www.gnu.org/copyleft/lesser.html }
  41. {                 }
  42. {******************************************************************************}
  44. unit JwaWinCred;
  46. {$WEAKPACKAGEUNIT}
  48. {$HPPEMIT ''}
  49. {$HPPEMIT '#include "wincred.h"'}
  50. {$HPPEMIT ''}
  52. {$I WINDEFINES.INC}
  54. interface
  56. uses
  57.   JwaLmCons, JwaWinBase, JwaWinError, JwaWinType, JwaNtSecApi;
  59. type
  60.   PCtxtHandle = PSecHandle;
  61.   {$EXTERNALSYM PCtxtHandle}
  63. //-----------------------------------------------------------------------------
  64. // Macros
  65. //-----------------------------------------------------------------------------
  67. //
  68. // Macro to determine whether CredUIPromptForCredentials should be called upon a failed
  69. //      authentication attempt.
  70. //
  71. // Implemented as a macro so that the caller can delay load credui.dll only if this
  72. //      macro returns TRUE.
  73. //
  74. // Include only status codes that imply the username/password are wrong or that the
  75. //      password is expired.  In the former case, asking for a another username or password
  76. //      is appropriate.  In the later case, we put up a different dialog asking the
  77. //      user to change the password on the server.
  78. //
  79. // Don't include status codes such as ERROR_ACCOUNT_DISABLED, ERROR_ACCOUNT_RESTRICTION,
  80. //      ERROR_ACCOUNT_LOCKED_OUT, ERROR_ACCOUNT_EXPIRED, ERROR_LOGON_TYPE_NOT_GRANTED.
  81. //      For those, the user isn't going to have another account so prompting him
  82. //      won't help.
  83. //
  84. // STATUS_DOWNGRADE_DETECTED is included to handle the case where a corporate laptop
  85. //      is brought to another LAN.  A downgrade attack will indeed be detected,
  86. //      but we want to popup UI to allow the user to connect to resources in the
  87. //      other LAN.
  88. //
  89. // Don't use the CREDUIP_* macros directly.  Their definition is private to credui.dll.
  90. //
  92. // Don't require ntstatus.h
  94. const
  95.   STATUS_LOGON_FAILURE          = NTSTATUS($C000006D); // ntsubauth
  96.   {$EXTERNALSYM STATUS_LOGON_FAILURE}
  97.   STATUS_WRONG_PASSWORD         = NTSTATUS($C000006A); // ntsubauth
  98.   {$EXTERNALSYM STATUS_WRONG_PASSWORD}
  99.   STATUS_PASSWORD_EXPIRED       = NTSTATUS($C0000071); // ntsubauth
  100.   {$EXTERNALSYM STATUS_PASSWORD_EXPIRED}
  101.   STATUS_PASSWORD_MUST_CHANGE   = NTSTATUS($C0000224); // ntsubauth
  102.   {$EXTERNALSYM STATUS_PASSWORD_MUST_CHANGE}
  103.   STATUS_ACCESS_DENIED          = NTSTATUS($C0000022);
  104.   {$EXTERNALSYM STATUS_ACCESS_DENIED}
  105.   STATUS_DOWNGRADE_DETECTED     = NTSTATUS($C0000388);
  106.   {$EXTERNALSYM STATUS_DOWNGRADE_DETECTED}
  107.   STATUS_AUTHENTICATION_FIREWALL_FAILED = NTSTATUS($C0000413);
  108.   {$EXTERNALSYM STATUS_AUTHENTICATION_FIREWALL_FAILED}
  109.   STATUS_ACCOUNT_DISABLED       = NTSTATUS($C0000072);   // ntsubauth
  110.   {$EXTERNALSYM STATUS_ACCOUNT_DISABLED}
  111.   STATUS_ACCOUNT_RESTRICTION    = NTSTATUS($C000006E);   // ntsubauth
  112.   {$EXTERNALSYM STATUS_ACCOUNT_RESTRICTION}
  113.   STATUS_ACCOUNT_LOCKED_OUT     = NTSTATUS($C0000234);   // ntsubauth
  114.   {$EXTERNALSYM STATUS_ACCOUNT_LOCKED_OUT}
  115.   STATUS_ACCOUNT_EXPIRED        = NTSTATUS($C0000193);   // ntsubauth
  116.   {$EXTERNALSYM STATUS_ACCOUNT_EXPIRED}
  117.   STATUS_LOGON_TYPE_NOT_GRANTED = NTSTATUS($C000015B);
  118.   {$EXTERNALSYM STATUS_LOGON_TYPE_NOT_GRANTED}
  120. // Don't require lmerr.h
  122.   NERR_BASE            = 2100;
  123.   {$EXTERNALSYM NERR_BASE}
  124.   NERR_PasswordExpired = (NERR_BASE+142); // The password of this user has expired.
  125.   {$EXTERNALSYM NERR_PasswordExpired}
  127. function CREDUIP_IS_USER_PASSWORD_ERROR(_Status: NTSTATUS): BOOL;
  128. {$EXTERNALSYM CREDUIP_IS_USER_PASSWORD_ERROR}
  130. function CREDUIP_IS_DOWNGRADE_ERROR(_Status: NTSTATUS): BOOL;
  131. {$EXTERNALSYM CREDUIP_IS_DOWNGRADE_ERROR}
  133. function CREDUIP_IS_EXPIRED_ERROR(_Status: NTSTATUS): BOOL;
  134. {$EXTERNALSYM CREDUIP_IS_EXPIRED_ERROR}
  136. function CREDUI_IS_AUTHENTICATION_ERROR(_Status: NTSTATUS): BOOL;
  137. {$EXTERNALSYM CREDUI_IS_AUTHENTICATION_ERROR}
  139. function CREDUI_NO_PROMPT_AUTHENTICATION_ERROR(_Status: NTSTATUS): BOOL;
  140. {$EXTERNALSYM CREDUI_NO_PROMPT_AUTHENTICATION_ERROR}
  142. //-----------------------------------------------------------------------------
  143. // Structures
  144. //-----------------------------------------------------------------------------
  146. //
  147. // Credential Attribute
  148. //
  150. const
  152. // Maximum length of the various credential string fields (in characters)
  154.   CRED_MAX_STRING_LENGTH = 256;
  155.   {$EXTERNALSYM CRED_MAX_STRING_LENGTH}
  157. // Maximum length of the UserName field.  The worst case is <User>@<DnsDomain>
  159.   CRED_MAX_USERNAME_LENGTH = (256+1+256);
  160.   {$EXTERNALSYM CRED_MAX_USERNAME_LENGTH}
  162. // Maximum length of the TargetName field for CRED_TYPE_GENERIC (in characters)
  164.   CRED_MAX_GENERIC_TARGET_NAME_LENGTH = 32767;
  165.   {$EXTERNALSYM CRED_MAX_GENERIC_TARGET_NAME_LENGTH}
  167. // Maximum length of the TargetName field for CRED_TYPE_DOMAIN_* (in characters)
  168. //      Largest one is <DfsRoot><DfsShare>
  170.   CRED_MAX_DOMAIN_TARGET_NAME_LENGTH = (256+1+80);
  171.   {$EXTERNALSYM CRED_MAX_DOMAIN_TARGET_NAME_LENGTH}
  173. // Maximum size of the Credential Attribute Value field (in bytes)
  175.   CRED_MAX_VALUE_SIZE = 256;
  176.   {$EXTERNALSYM CRED_MAX_VALUE_SIZE}
  178. // Maximum number of attributes per credential
  180.   CRED_MAX_ATTRIBUTES = 64;
  181.   {$EXTERNALSYM CRED_MAX_ATTRIBUTES}
  183. type
  184.   PCREDENTIAL_ATTRIBUTEA = ^CREDENTIAL_ATTRIBUTEA;
  185.   {$EXTERNALSYM PCREDENTIAL_ATTRIBUTEA}
  186.   _CREDENTIAL_ATTRIBUTEA = record
  187.     Keyword: LPSTR;
  188.     Flags: DWORD;
  189.     ValueSize: DWORD;
  190.     Value: LPBYTE;
  191.   end;
  192.   {$EXTERNALSYM _CREDENTIAL_ATTRIBUTEA}
  193.   CREDENTIAL_ATTRIBUTEA = _CREDENTIAL_ATTRIBUTEA;
  194.   {$EXTERNALSYM CREDENTIAL_ATTRIBUTEA}
  195.   TCredentialAttributeA = CREDENTIAL_ATTRIBUTEA;
  196.   PCredentialAttributeA = PCREDENTIAL_ATTRIBUTEA;
  198.   PCREDENTIAL_ATTRIBUTEW = ^CREDENTIAL_ATTRIBUTEW;
  199.   {$EXTERNALSYM PCREDENTIAL_ATTRIBUTEW}
  200.   _CREDENTIAL_ATTRIBUTEW = record
  201.     Keyword: LPWSTR;
  202.     Flags: DWORD;
  203.     ValueSize: DWORD;
  204.     Value: LPBYTE;
  205.   end;
  206.   {$EXTERNALSYM _CREDENTIAL_ATTRIBUTEW}
  207.   CREDENTIAL_ATTRIBUTEW = _CREDENTIAL_ATTRIBUTEW;
  208.   {$EXTERNALSYM CREDENTIAL_ATTRIBUTEW}
  209.   TCredentialAttributeW = CREDENTIAL_ATTRIBUTEW;
  210.   PCredentialAttributeW = PCREDENTIAL_ATTRIBUTEW;
  212. {$IFDEF UNICODE}
  213.   CREDENTIAL_ATTRIBUTE = CREDENTIAL_ATTRIBUTEW;
  214.   {$EXTERNALSYM CREDENTIAL_ATTRIBUTE}
  215.   PCREDENTIAL_ATTRIBUTE = PCREDENTIAL_ATTRIBUTEW;
  216.   {$EXTERNALSYM PCREDENTIAL_ATTRIBUTE}
  217.   TCredentialAttribute = TCredentialAttributeW;
  218.   PCredentialAttribute = PCredentialAttributeW;
  219. {$ELSE}
  220.   CREDENTIAL_ATTRIBUTE = CREDENTIAL_ATTRIBUTEA;
  221.   {$EXTERNALSYM CREDENTIAL_ATTRIBUTE}
  222.   PCREDENTIAL_ATTRIBUTE = PCREDENTIAL_ATTRIBUTEA;
  223.   {$EXTERNALSYM PCREDENTIAL_ATTRIBUTE}
  224.   TCredentialAttribute = TCredentialAttributeA;
  225.   PCredentialAttribute = PCredentialAttributeA;
  226. {$ENDIF}
  228. //
  229. // Special values of the TargetName field
  230. //
  232. const
  233.   CRED_SESSION_WILDCARD_NAME_W      = WideString('*Session');
  234.   {$EXTERNALSYM CRED_SESSION_WILDCARD_NAME_W}
  235.   CRED_SESSION_WILDCARD_NAME_A      = '*Session';
  236.   {$EXTERNALSYM CRED_SESSION_WILDCARD_NAME_A}
  237.   CRED_SESSION_WILDCARD_NAME_LENGTH = SizeOf(CRED_SESSION_WILDCARD_NAME_A) - 1;
  238.   {$EXTERNALSYM CRED_SESSION_WILDCARD_NAME_LENGTH}
  240. {$IFDEF UNICODE}
  241.   CRED_SESSION_WILDCARD_NAME = CRED_SESSION_WILDCARD_NAME_W;
  242.   {$EXTERNALSYM CRED_SESSION_WILDCARD_NAME}
  243. {$ELSE}
  244.   CRED_SESSION_WILDCARD_NAME = CRED_SESSION_WILDCARD_NAME_A;
  245.   {$EXTERNALSYM CRED_SESSION_WILDCARD_NAME}
  246. {$ENDIF}
  248. //
  249. // Values of the Credential Flags field.
  250. //
  252. const
  253.   CRED_FLAGS_PASSWORD_FOR_CERT  = $0001;
  254.   {$EXTERNALSYM CRED_FLAGS_PASSWORD_FOR_CERT}
  255.   CRED_FLAGS_PROMPT_NOW         = $0002;
  256.   {$EXTERNALSYM CRED_FLAGS_PROMPT_NOW}
  257.   CRED_FLAGS_USERNAME_TARGET    = $0004;
  258.   {$EXTERNALSYM CRED_FLAGS_USERNAME_TARGET}
  259.   CRED_FLAGS_OWF_CRED_BLOB      = $0008;
  260.   {$EXTERNALSYM CRED_FLAGS_OWF_CRED_BLOB}
  261.   CRED_FLAGS_VALID_FLAGS        = $000F;  // Mask of all valid flags
  262.   {$EXTERNALSYM CRED_FLAGS_VALID_FLAGS}
  264. //
  265. // Values of the Credential Type field.
  266. //
  268.   CRED_TYPE_GENERIC                 = 1;
  269.   {$EXTERNALSYM CRED_TYPE_GENERIC}
  270.   CRED_TYPE_DOMAIN_PASSWORD         = 2;
  271.   {$EXTERNALSYM CRED_TYPE_DOMAIN_PASSWORD}
  272.   CRED_TYPE_DOMAIN_CERTIFICATE      = 3;
  273.   {$EXTERNALSYM CRED_TYPE_DOMAIN_CERTIFICATE}
  274.   CRED_TYPE_DOMAIN_VISIBLE_PASSWORD = 4;
  275.   {$EXTERNALSYM CRED_TYPE_DOMAIN_VISIBLE_PASSWORD}
  276.   CRED_TYPE_MAXIMUM                 = 5; // Maximum supported cred type
  277.   {$EXTERNALSYM CRED_TYPE_MAXIMUM}
  278.   CRED_TYPE_MAXIMUM_EX              = (CRED_TYPE_MAXIMUM+1000);  // Allow new applications to run on old OSes
  279.   {$EXTERNALSYM CRED_TYPE_MAXIMUM_EX}
  281. //
  282. // Maximum size of the CredBlob field (in bytes)
  283. //
  285.   CRED_MAX_CREDENTIAL_BLOB_SIZE = 512;
  286.   {$EXTERNALSYM CRED_MAX_CREDENTIAL_BLOB_SIZE}
  288. //
  289. // Values of the Credential Persist field
  290. //
  292.   CRED_PERSIST_NONE          = 0;
  293.   {$EXTERNALSYM CRED_PERSIST_NONE}
  294.   CRED_PERSIST_SESSION       = 1;
  295.   {$EXTERNALSYM CRED_PERSIST_SESSION}
  296.   CRED_PERSIST_LOCAL_MACHINE = 2;
  297.   {$EXTERNALSYM CRED_PERSIST_LOCAL_MACHINE}
  298.   CRED_PERSIST_ENTERPRISE    = 3;
  299.   {$EXTERNALSYM CRED_PERSIST_ENTERPRISE}
  301. //
  302. // A credential
  303. //
  305. type
  306.   PCREDENTIALA = ^CREDENTIALA;
  307.   {$EXTERNALSYM PCREDENTIALA}
  308.   _CREDENTIALA = record
  309.     Flags: DWORD;
  310.     Type_: DWORD;
  311.     TargetName: LPSTR;
  312.     Comment: LPSTR;
  313.     LastWritten: FILETIME;
  314.     CredentialBlobSize: DWORD;
  315.     CredentialBlob: LPBYTE;
  316.     Persist: DWORD;
  317.     AttributeCount: DWORD;
  318.     Attributes: PCREDENTIAL_ATTRIBUTEA;
  319.     TargetAlias: LPSTR;
  320.     UserName: LPSTR;
  321.   end;
  322.   {$EXTERNALSYM _CREDENTIALA}
  323.   CREDENTIALA = _CREDENTIALA;
  324.   {$EXTERNALSYM CREDENTIALA}
  325.   TCredentialA = CREDENTIALA;
  327.   PCREDENTIALW = ^CREDENTIALW;
  328.   {$EXTERNALSYM PCREDENTIALW}
  329.   _CREDENTIALW = record
  330.     Flags: DWORD;
  331.     Type_: DWORD;
  332.     TargetName: LPWSTR;
  333.     Comment: LPWSTR;
  334.     LastWritten: FILETIME;
  335.     CredentialBlobSize: DWORD;
  336.     CredentialBlob: LPBYTE;
  337.     Persist: DWORD;
  338.     AttributeCount: DWORD;
  339.     Attributes: PCREDENTIAL_ATTRIBUTEW;
  340.     TargetAlias: LPWSTR;
  341.     UserName: LPWSTR;
  342.   end;
  343.   {$EXTERNALSYM _CREDENTIALW}
  344.   CREDENTIALW = _CREDENTIALW;
  345.   {$EXTERNALSYM CREDENTIALW}
  346.   TCredentialW = CREDENTIALW;
  348. {$IFDEF UNICODE}
  349.   CREDENTIAL = CREDENTIALW;
  350.   {$EXTERNALSYM CREDENTIAL}
  351.   PCREDENTIAL = PCREDENTIALW;
  352.   {$EXTERNALSYM PCREDENTIAL}
  353.   TCredential = TCredentialW;
  354. {$ELSE}
  355.   CREDENTIAL = CREDENTIALA;
  356.   {$EXTERNALSYM CREDENTIAL}
  357.   PCREDENTIAL = PCREDENTIALA;
  358.   {$EXTERNALSYM PCREDENTIAL}
  359.   TCredential = TCredentialA;
  360. {$ENDIF}
  362. //
  363. // Value of the Flags field in CREDENTIAL_TARGET_INFORMATION
  364. //
  366. const
  367.   CRED_TI_SERVER_FORMAT_UNKNOWN  = $0001; // Don't know if server name is DNS or netbios format
  368.   {$EXTERNALSYM CRED_TI_SERVER_FORMAT_UNKNOWN}
  369.   CRED_TI_DOMAIN_FORMAT_UNKNOWN  = $0002; // Don't know if domain name is DNS or netbios format
  370.   {$EXTERNALSYM CRED_TI_DOMAIN_FORMAT_UNKNOWN}
  371.   CRED_TI_ONLY_PASSWORD_REQUIRED = $0004; // Server only requires a password and not a username
  372.   {$EXTERNALSYM CRED_TI_ONLY_PASSWORD_REQUIRED}
  373.   CRED_TI_USERNAME_TARGET        = $0008; // TargetName is username
  374.   {$EXTERNALSYM CRED_TI_USERNAME_TARGET}
  375.   CRED_TI_CREATE_EXPLICIT_CRED   = $0010; // When creating a cred, create one named TargetInfo->TargetName
  376.   {$EXTERNALSYM CRED_TI_CREATE_EXPLICIT_CRED}
  377.   CRED_TI_WORKGROUP_MEMBER       = $0020; // Indicates the machine is a member of a workgroup
  378.   {$EXTERNALSYM CRED_TI_WORKGROUP_MEMBER}
  379.   CRED_TI_VALID_FLAGS            = $003F;
  380.   {$EXTERNALSYM CRED_TI_VALID_FLAGS}
  382. //
  383. // A credential target
  384. //
  386. type
  387.   PCREDENTIAL_TARGET_INFORMATIONA = ^CREDENTIAL_TARGET_INFORMATIONA;
  388.   {$EXTERNALSYM PCREDENTIAL_TARGET_INFORMATIONA}
  389.   _CREDENTIAL_TARGET_INFORMATIONA = record
  390.     TargetName: LPSTR;
  391.     NetbiosServerName: LPSTR;
  392.     DnsServerName: LPSTR;
  393.     NetbiosDomainName: LPSTR;
  394.     DnsDomainName: LPSTR;
  395.     DnsTreeName: LPSTR;
  396.     PackageName: LPSTR;
  397.     Flags: ULONG;
  398.     CredTypeCount: DWORD;
  399.     CredTypes: LPDWORD;
  400.   end;
  401.   {$EXTERNALSYM _CREDENTIAL_TARGET_INFORMATIONA}
  402.   CREDENTIAL_TARGET_INFORMATIONA = _CREDENTIAL_TARGET_INFORMATIONA;
  403.   {$EXTERNALSYM CREDENTIAL_TARGET_INFORMATIONA}
  404.   TCredentialTargetInformationA = CREDENTIAL_TARGET_INFORMATIONA;
  405.   PCredentialTargetInformationA = PCREDENTIAL_TARGET_INFORMATIONA;
  407.   PCREDENTIAL_TARGET_INFORMATIONW = ^CREDENTIAL_TARGET_INFORMATIONW;
  408.   {$EXTERNALSYM PCREDENTIAL_TARGET_INFORMATIONW}
  409.   _CREDENTIAL_TARGET_INFORMATIONW = record
  410.     TargetName: LPWSTR;
  411.     NetbiosServerName: LPWSTR;
  412.     DnsServerName: LPWSTR;
  413.     NetbiosDomainName: LPWSTR;
  414.     DnsDomainName: LPWSTR;
  415.     DnsTreeName: LPWSTR;
  416.     PackageName: LPWSTR;
  417.     Flags: ULONG;
  418.     CredTypeCount: DWORD;
  419.     CredTypes: LPDWORD;
  420.   end;
  421.   {$EXTERNALSYM _CREDENTIAL_TARGET_INFORMATIONW}
  422.   CREDENTIAL_TARGET_INFORMATIONW = _CREDENTIAL_TARGET_INFORMATIONW;
  423.   {$EXTERNALSYM CREDENTIAL_TARGET_INFORMATIONW}
  424.   TCredentialTargetInformationW = CREDENTIAL_TARGET_INFORMATIONW;
  425.   PCredentialTargetInformationW = PCREDENTIAL_TARGET_INFORMATIONW;
  427. {$IFDEF UNICODE}
  428.   CREDENTIAL_TARGET_INFORMATION = CREDENTIAL_TARGET_INFORMATIONW;
  429.   {$EXTERNALSYM CREDENTIAL_TARGET_INFORMATION}
  430.   PCREDENTIAL_TARGET_INFORMATION = PCREDENTIAL_TARGET_INFORMATIONW;
  431.   {$EXTERNALSYM PCREDENTIAL_TARGET_INFORMATION}
  432.   TCredentialTargetInformation = TCredentialTargetInformationW;
  433.   PCredentialTargetInformation = PCredentialTargetInformationW;
  434. {$ELSE}
  435.   CREDENTIAL_TARGET_INFORMATION = CREDENTIAL_TARGET_INFORMATIONA;
  436.   {$EXTERNALSYM CREDENTIAL_TARGET_INFORMATION}
  437.   PCREDENTIAL_TARGET_INFORMATION = PCREDENTIAL_TARGET_INFORMATIONA;
  438.   {$EXTERNALSYM PCREDENTIAL_TARGET_INFORMATION}
  439.   TCredentialTargetInformation = TCredentialTargetInformationA;
  440.   PCredentialTargetInformation = PCredentialTargetInformationA;
  441. {$ENDIF}
  443. //
  444. // Certificate credential information
  445. //
  446. // The cbSize should be the size of the structure, sizeof(CERT_CREDENTIAL_INFO),
  447. // rgbHashofCert is the hash of the cert which is to be used as the credential.
  448. //
  450. const
  451.   CERT_HASH_LENGTH = 20; // SHA1 hashes are used for cert hashes
  452.   {$EXTERNALSYM CERT_HASH_LENGTH}
  454. type
  455.   PCERT_CREDENTIAL_INFO = ^CERT_CREDENTIAL_INFO;
  456.   {$EXTERNALSYM PCERT_CREDENTIAL_INFO}
  457.   _CERT_CREDENTIAL_INFO = record
  458.     cbSize: ULONG;
  459.     rgbHashOfCert: array [0..CERT_HASH_LENGTH - 1] of UCHAR;
  460.   end;
  461.   {$EXTERNALSYM _CERT_CREDENTIAL_INFO}
  462.   CERT_CREDENTIAL_INFO = _CERT_CREDENTIAL_INFO;
  463.   {$EXTERNALSYM CERT_CREDENTIAL_INFO}
  464.   TCertCredentialInfo = CERT_CREDENTIAL_INFO;
  465.   PCertCredentialInfo = PCERT_CREDENTIAL_INFO;
  467. //
  468. // Username Target credential information
  469. //
  470. // This credential can be pass to LsaLogonUser to ask it to find a credential with a
  471. // TargetName of UserName.
  472. //
  474.   PUSERNAME_TARGET_CREDENTIAL_INFO = ^USERNAME_TARGET_CREDENTIAL_INFO;
  475.   {$EXTERNALSYM PUSERNAME_TARGET_CREDENTIAL_INFO}
  476.   _USERNAME_TARGET_CREDENTIAL_INFO = record
  477.     UserName: LPWSTR;
  478.   end;
  479.   {$EXTERNALSYM _USERNAME_TARGET_CREDENTIAL_INFO}
  480.   USERNAME_TARGET_CREDENTIAL_INFO = _USERNAME_TARGET_CREDENTIAL_INFO;
  481.   {$EXTERNALSYM USERNAME_TARGET_CREDENTIAL_INFO}
  482.   TUsernameTargetCredentialInfo = USERNAME_TARGET_CREDENTIAL_INFO;
  483.   PUsernameTargetCredentialInfo = PUSERNAME_TARGET_CREDENTIAL_INFO;
  485. //
  486. // Credential type for credential marshaling routines
  487. //
  489.   _CRED_MARSHAL_TYPE = DWORD;
  490.   {$EXTERNALSYM _CRED_MARSHAL_TYPE}
  491.   CRED_MARSHAL_TYPE = _CRED_MARSHAL_TYPE;
  492.   {$EXTERNALSYM CRED_MARSHAL_TYPE}
  493.   PCRED_MARSHAL_TYPE = ^CRED_MARSHAL_TYPE;
  494.   {$EXTERNALSYM PCRED_MARSHAL_TYPE}
  495.   TCredMarshalType = CRED_MARSHAL_TYPE;
  496.   PCredMarshalType = PCRED_MARSHAL_TYPE;
  498. const
  499.   CertCredential = 1;
  500.   {$EXTERNALSYM CertCredential}
  501.   UsernameTargetCredential = 2;
  502.   {$EXTERNALSYM UsernameTargetCredential}
  504. //
  505. // Credential UI info
  506. //
  508. type
  509.   PCREDUI_INFOA = ^CREDUI_INFOA;
  510.   {$EXTERNALSYM PCREDUI_INFOA}
  511.   _CREDUI_INFOA = record
  512.     cbSize: DWORD;
  513.     hwndParent: HWND;
  514.     pszMessageText: PCSTR;
  515.     pszCaptionText: PCSTR;
  516.     hbmBanner: HBITMAP;
  517.   end;
  518.   {$EXTERNALSYM _CREDUI_INFOA}
  519.   CREDUI_INFOA = _CREDUI_INFOA;
  520.   {$EXTERNALSYM CREDUI_INFOA}
  521.   TCredUIInfoA = CREDUI_INFOA;
  522.   PCredUIInfoA = PCREDUI_INFOA;
  524.   PCREDUI_INFOW = ^CREDUI_INFOW;
  525.   {$EXTERNALSYM PCREDUI_INFOW}
  526.   _CREDUI_INFOW = record
  527.     cbSize: DWORD;
  528.     hwndParent: HWND;
  529.     pszMessageText: LPCWSTR;
  530.     pszCaptionText: LPCWSTR;
  531.     hbmBanner: HBITMAP;
  532.   end;
  533.   {$EXTERNALSYM _CREDUI_INFOW}
  534.   CREDUI_INFOW = _CREDUI_INFOW;
  535.   {$EXTERNALSYM CREDUI_INFOW}
  536.   TCredUIInfoW = CREDUI_INFOW;
  537.   PCredUIInfoW = PCREDUI_INFOW;
  539. {$IFDEF UNICODE}
  540.   CREDUI_INFO = CREDUI_INFOW;
  541.   {$EXTERNALSYM CREDUI_INFO}
  542.   PCREDUI_INFO = PCREDUI_INFOW;
  543.   {$EXTERNALSYM PCREDUI_INFO}
  544.   TCredUIInfo = TCredUIInfoW;
  545.   PCredUIInfo = PCredUIInfoW;
  546. {$ELSE}
  547.   CREDUI_INFO = CREDUI_INFOA;
  548.   {$EXTERNALSYM CREDUI_INFO}
  549.   PCREDUI_INFO = PCREDUI_INFOA;
  550.   {$EXTERNALSYM PCREDUI_INFO}
  551.   TCredUIInfo = TCredUIInfoA;
  552.   PCredUIInfo = PCredUIInfoA;
  553. {$ENDIF}
  555. //-----------------------------------------------------------------------------
  556. // Values
  557. //-----------------------------------------------------------------------------
  559. // String length limits:
  561. const
  562.   CREDUI_MAX_MESSAGE_LENGTH        = 32767;
  563.   {$EXTERNALSYM CREDUI_MAX_MESSAGE_LENGTH}
  564.   CREDUI_MAX_CAPTION_LENGTH        = 128;
  565.   {$EXTERNALSYM CREDUI_MAX_CAPTION_LENGTH}
  566.   CREDUI_MAX_GENERIC_TARGET_LENGTH = CRED_MAX_GENERIC_TARGET_NAME_LENGTH;
  567.   {$EXTERNALSYM CREDUI_MAX_GENERIC_TARGET_LENGTH}
  568.   CREDUI_MAX_DOMAIN_TARGET_LENGTH  = CRED_MAX_DOMAIN_TARGET_NAME_LENGTH;
  569.   {$EXTERNALSYM CREDUI_MAX_DOMAIN_TARGET_LENGTH}
  570.   CREDUI_MAX_USERNAME_LENGTH       = CRED_MAX_USERNAME_LENGTH;
  571.   {$EXTERNALSYM CREDUI_MAX_USERNAME_LENGTH}
  572.   CREDUI_MAX_PASSWORD_LENGTH       = (CRED_MAX_CREDENTIAL_BLOB_SIZE div 2);
  573.   {$EXTERNALSYM CREDUI_MAX_PASSWORD_LENGTH}
  575. //
  576. // Flags for CredUIPromptForCredentials and/or CredUICmdLinePromptForCredentials
  577. //
  579.   CREDUI_FLAGS_INCORRECT_PASSWORD          = $00001; // indicates the username is valid, but password is not
  580.   {$EXTERNALSYM CREDUI_FLAGS_INCORRECT_PASSWORD}
  581.   CREDUI_FLAGS_DO_NOT_PERSIST              = $00002; // Do not show "Save" checkbox, and do not persist credentials
  582.   {$EXTERNALSYM CREDUI_FLAGS_DO_NOT_PERSIST}
  583.   CREDUI_FLAGS_REQUEST_ADMINISTRATOR       = $00004; // Populate list box with admin accounts
  584.   {$EXTERNALSYM CREDUI_FLAGS_REQUEST_ADMINISTRATOR}
  585.   CREDUI_FLAGS_EXCLUDE_CERTIFICATES        = $00008; // do not include certificates in the drop list
  586.   {$EXTERNALSYM CREDUI_FLAGS_EXCLUDE_CERTIFICATES}
  587.   CREDUI_FLAGS_REQUIRE_CERTIFICATE         = $00010;
  588.   {$EXTERNALSYM CREDUI_FLAGS_REQUIRE_CERTIFICATE}
  589.   CREDUI_FLAGS_SHOW_SAVE_CHECK_BOX         = $00040;
  590.   {$EXTERNALSYM CREDUI_FLAGS_SHOW_SAVE_CHECK_BOX}
  591.   CREDUI_FLAGS_ALWAYS_SHOW_UI              = $00080;
  592.   {$EXTERNALSYM CREDUI_FLAGS_ALWAYS_SHOW_UI}
  593.   CREDUI_FLAGS_REQUIRE_SMARTCARD           = $00100;
  594.   {$EXTERNALSYM CREDUI_FLAGS_REQUIRE_SMARTCARD}
  595.   CREDUI_FLAGS_PASSWORD_ONLY_OK            = $00200;
  596.   {$EXTERNALSYM CREDUI_FLAGS_PASSWORD_ONLY_OK}
  597.   CREDUI_FLAGS_VALIDATE_USERNAME           = $00400;
  598.   {$EXTERNALSYM CREDUI_FLAGS_VALIDATE_USERNAME}
  599.   CREDUI_FLAGS_COMPLETE_USERNAME           = $00800;
  600.   {$EXTERNALSYM CREDUI_FLAGS_COMPLETE_USERNAME}
  601.   CREDUI_FLAGS_PERSIST                     = $01000; // Do not show "Save" checkbox, but persist credentials anyway
  602.   {$EXTERNALSYM CREDUI_FLAGS_PERSIST}
  603.   CREDUI_FLAGS_SERVER_CREDENTIAL           = $04000;
  604.   {$EXTERNALSYM CREDUI_FLAGS_SERVER_CREDENTIAL}
  605.   CREDUI_FLAGS_EXPECT_CONFIRMATION         = $20000; // do not persist unless caller later confirms credential via CredUIConfirmCredential() api
  606.   {$EXTERNALSYM CREDUI_FLAGS_EXPECT_CONFIRMATION}
  607.   CREDUI_FLAGS_GENERIC_CREDENTIALS         = $40000; // Credential is a generic credential
  608.   {$EXTERNALSYM CREDUI_FLAGS_GENERIC_CREDENTIALS}
  609.   CREDUI_FLAGS_USERNAME_TARGET_CREDENTIALS = $80000; // Credential has a username as the target
  610.   {$EXTERNALSYM CREDUI_FLAGS_USERNAME_TARGET_CREDENTIALS}
  611.   CREDUI_FLAGS_KEEP_USERNAME               = $100000; // don't allow the user to change the supplied username
  612.   {$EXTERNALSYM CREDUI_FLAGS_KEEP_USERNAME}
  614. //
  615. // Mask of flags valid for CredUIPromptForCredentials
  616. //
  618.   CREDUI_FLAGS_PROMPT_VALID =
  619.     CREDUI_FLAGS_INCORRECT_PASSWORD or
  620.     CREDUI_FLAGS_DO_NOT_PERSIST or
  621.     CREDUI_FLAGS_REQUEST_ADMINISTRATOR or
  622.     CREDUI_FLAGS_EXCLUDE_CERTIFICATES or
  623.     CREDUI_FLAGS_REQUIRE_CERTIFICATE or
  624.     CREDUI_FLAGS_SHOW_SAVE_CHECK_BOX or
  625.     CREDUI_FLAGS_ALWAYS_SHOW_UI or
  626.     CREDUI_FLAGS_REQUIRE_SMARTCARD or
  627.     CREDUI_FLAGS_PASSWORD_ONLY_OK or
  628.     CREDUI_FLAGS_VALIDATE_USERNAME or
  629.     CREDUI_FLAGS_COMPLETE_USERNAME or
  630.     CREDUI_FLAGS_PERSIST or
  631.     CREDUI_FLAGS_SERVER_CREDENTIAL or
  632.     CREDUI_FLAGS_EXPECT_CONFIRMATION or
  633.     CREDUI_FLAGS_GENERIC_CREDENTIALS or
  634.     CREDUI_FLAGS_USERNAME_TARGET_CREDENTIALS or
  635.     CREDUI_FLAGS_KEEP_USERNAME;
  636.   {$EXTERNALSYM CREDUI_FLAGS_PROMPT_VALID}
  638. //-----------------------------------------------------------------------------
  639. // Functions
  640. //-----------------------------------------------------------------------------
  642. //
  643. // Values of flags to CredWrite and CredWriteDomainCredentials
  644. //
  646. const
  647.   CRED_PRESERVE_CREDENTIAL_BLOB = $1;
  648.   {$EXTERNALSYM CRED_PRESERVE_CREDENTIAL_BLOB}
  650. function CredWriteW(Credential: PCREDENTIALW; Flags: DWORD): BOOL; stdcall;
  651. {$EXTERNALSYM CredWriteW}
  653. function CredWriteA(Credential: PCREDENTIALA; Flags: DWORD): BOOL; stdcall;
  654. {$EXTERNALSYM CredWriteA}
  656. {$IFDEF UNICODE}
  657. function CredWrite(Credential: PCREDENTIALW; Flags: DWORD): BOOL; stdcall;
  658. {$EXTERNALSYM CredWrite}
  659. {$ELSE}
  660. function CredWrite(Credential: PCREDENTIALA; Flags: DWORD): BOOL; stdcall;
  661. {$EXTERNALSYM CredWrite}
  662. {$ENDIF}
  664. function CredReadW(TargetName: LPCWSTR; Type_: DWORD; Flags: DWORD; var Credential: PCREDENTIALW): BOOL; stdcall;
  665. {$EXTERNALSYM CredReadW}
  667. function CredReadA(TargetName: LPCSTR; Type_: DWORD; Flags: DWORD; var Credential: PCREDENTIALA): BOOL; stdcall;
  668. {$EXTERNALSYM CredReadA}
  670. {$IFDEF UNICODE}
  671. function CredRead(TargetName: LPCWSTR; Type_: DWORD; Flags: DWORD; var Credential: PCREDENTIALW): BOOL; stdcall;
  672. {$EXTERNALSYM CredRead}
  673. {$ELSE}
  674. function CredRead(TargetName: LPCSTR; Type_: DWORD; Flags: DWORD; var Credential: PCREDENTIALA): BOOL; stdcall;
  675. {$EXTERNALSYM CredRead}
  676. {$ENDIF}
  678. function CredEnumerateW(Filter: LPCWSTR; Flags: DWORD; var Count: DWORD; var Credential: PCREDENTIALW): BOOL; stdcall;
  679. {$EXTERNALSYM CredEnumerateW}
  681. function CredEnumerateA(Filter: LPCSTR; Flags: DWORD; var Count: DWORD; var Credential: PCREDENTIALA): BOOL; stdcall;
  682. {$EXTERNALSYM CredEnumerateA}
  684. {$IFDEF UNICODE}
  685. function CredEnumerate(Filter: LPCWSTR; Flags: DWORD; var Count: DWORD; var Credential: PCREDENTIALW): BOOL; stdcall;
  686. {$EXTERNALSYM CredEnumerate}
  687. {$ELSE}
  688. function CredEnumerate(Filter: LPCSTR; Flags: DWORD; var Count: DWORD; var Credential: PCREDENTIALA): BOOL; stdcall;
  689. {$EXTERNALSYM CredEnumerate}
  690. {$ENDIF}
  692. function CredWriteDomainCredentialsW(TargetInfo: PCREDENTIAL_TARGET_INFORMATIONW; Credential: PCREDENTIALW; Flags: DWORD): BOOL; stdcall;
  693. {$EXTERNALSYM CredWriteDomainCredentialsW}
  695. function CredWriteDomainCredentialsA(TargetInfo: PCREDENTIAL_TARGET_INFORMATIONA; Credential: PCREDENTIALA; Flags: DWORD): BOOL; stdcall;
  696. {$EXTERNALSYM CredWriteDomainCredentialsA}
  698. {$IFDEF UNICODE}
  699. function CredWriteDomainCredentials(TargetInfo: PCREDENTIAL_TARGET_INFORMATIONW; Credential: PCREDENTIALW; Flags: DWORD): BOOL; stdcall;
  700. {$EXTERNALSYM CredWriteDomainCredentials}
  701. {$ELSE}
  702. function CredWriteDomainCredentials(TargetInfo: PCREDENTIAL_TARGET_INFORMATIONA; Credential: PCREDENTIALA; Flags: DWORD): BOOL; stdcall;
  703. {$EXTERNALSYM CredWriteDomainCredentials}
  704. {$ENDIF}
  706. //
  707. // Values of flags to CredReadDomainCredentials
  708. //
  710. const
  711.   CRED_CACHE_TARGET_INFORMATION = $1;
  712.   {$EXTERNALSYM CRED_CACHE_TARGET_INFORMATION}
  714. function CredReadDomainCredentialsW(TargetInfo: PCREDENTIAL_TARGET_INFORMATIONW; Flags: DWORD; var Count: DWORD; var Credential: PCREDENTIALW): BOOL; stdcall;
  715. {$EXTERNALSYM CredReadDomainCredentialsW}
  717. function CredReadDomainCredentialsA(TargetInfo: PCREDENTIAL_TARGET_INFORMATIONA; Flags: DWORD; var Count: DWORD; var Credential: PCREDENTIALA): BOOL; stdcall;
  718. {$EXTERNALSYM CredReadDomainCredentialsA}
  720. {$IFDEF UNICODE}
  721. function CredReadDomainCredentials(TargetInfo: PCREDENTIAL_TARGET_INFORMATIONW; Flags: DWORD; var Count: DWORD; var Credential: PCREDENTIALW): BOOL; stdcall;
  722. {$EXTERNALSYM CredReadDomainCredentials}
  723. {$ELSE}
  724. function CredReadDomainCredentials(TargetInfo: PCREDENTIAL_TARGET_INFORMATIONA; Flags: DWORD; var Count: DWORD; var Credential: PCREDENTIALA): BOOL; stdcall;
  725. {$EXTERNALSYM CredReadDomainCredentials}
  726. {$ENDIF}
  728. function CredDeleteW(TargetName: LPCWSTR; Type_: DWORD; Flags: DWORD): BOOL; stdcall;
  729. {$EXTERNALSYM CredDeleteW}
  731. function CredDeleteA(TargetName: LPCSTR; Type_: DWORD; Flags: DWORD): BOOL; stdcall;
  732. {$EXTERNALSYM CredDeleteA}
  734. {$IFDEF UNICODE}
  735. function CredDelete(TargetName: LPCWSTR; Type_: DWORD; Flags: DWORD): BOOL; stdcall;
  736. {$EXTERNALSYM CredDelete}
  737. {$ELSE}
  738. function CredDelete(TargetName: LPCSTR; Type_: DWORD; Flags: DWORD): BOOL; stdcall;
  739. {$EXTERNALSYM CredDelete}
  740. {$ENDIF}
  742. function CredRenameW(OldTargetName: LPCWSTR; NewTargetName: LPCWSTR; Type_: DWORD; Flags: DWORD): BOOL; stdcall;
  743. {$EXTERNALSYM CredRenameW}
  745. function CredRenameA(OldTargetName: LPCSTR; NewTargetName: LPCSTR; Type_: DWORD; Flags: DWORD): BOOL; stdcall;
  746. {$EXTERNALSYM CredRenameA}
  748. {$IFDEF UNICODE}
  749. function CredRename(OldTargetName: LPCWSTR; NewTargetName: LPCWSTR; Type_: DWORD; Flags: DWORD): BOOL; stdcall;
  750. {$EXTERNALSYM CredRename}
  751. {$ELSE}
  752. function CredRename(OldTargetName: LPCSTR; NewTargetName: LPCSTR; Type_: DWORD; Flags: DWORD): BOOL; stdcall;
  753. {$EXTERNALSYM CredRename}
  754. {$ENDIF}
  756. //
  757. // Values of flags to CredGetTargetInfo
  758. //
  760. const
  761.   CRED_ALLOW_NAME_RESOLUTION = $1;
  762.   {$EXTERNALSYM CRED_ALLOW_NAME_RESOLUTION}
  764. function CredGetTargetInfoW(TargetName: LPCWSTR; Flags: DWORD; var TargetInfo: PCREDENTIAL_TARGET_INFORMATIONW): BOOL; stdcall;
  765. {$EXTERNALSYM CredGetTargetInfoW}
  767. function CredGetTargetInfoA(TargetName: LPCSTR; Flags: DWORD; var TargetInfo: PCREDENTIAL_TARGET_INFORMATIONA): BOOL; stdcall;
  768. {$EXTERNALSYM CredGetTargetInfoA}
  770. {$IFDEF UNICODE}
  771. function CredGetTargetInfo(TargetName: LPCWSTR; Flags: DWORD; var TargetInfo: PCREDENTIAL_TARGET_INFORMATIONW): BOOL; stdcall;
  772. {$EXTERNALSYM CredGetTargetInfo}
  773. {$ELSE}
  774. function CredGetTargetInfo(TargetName: LPCSTR; Flags: DWORD; var TargetInfo: PCREDENTIAL_TARGET_INFORMATIONA): BOOL; stdcall;
  775. {$EXTERNALSYM CredGetTargetInfo}
  776. {$ENDIF}
  778. function CredMarshalCredentialW(CredType: CRED_MARSHAL_TYPE; Credential: PVOID; var MarshaledCredential: LPWSTR): BOOL; stdcall;
  779. {$EXTERNALSYM CredMarshalCredentialW}
  781. function CredMarshalCredentialA(CredType: CRED_MARSHAL_TYPE; Credential: PVOID; MarshaledCredential: LPSTR): BOOL; stdcall;
  782. {$EXTERNALSYM CredMarshalCredentialA}
  784. {$IFDEF UNICODE}
  785. function CredMarshalCredential(CredType: CRED_MARSHAL_TYPE; Credential: PVOID; var MarshaledCredential: LPWSTR): BOOL; stdcall;
  786. {$EXTERNALSYM CredMarshalCredential}
  787. {$ELSE}
  788. function CredMarshalCredential(CredType: CRED_MARSHAL_TYPE; Credential: PVOID; MarshaledCredential: LPSTR): BOOL; stdcall;
  789. {$EXTERNALSYM CredMarshalCredential}
  790. {$ENDIF}
  792. function CredUnmarshalCredentialW(MarshaledCredential: LPCWSTR; CredType: PCRED_MARSHAL_TYPE; var Credential: PVOID): BOOL; stdcall;
  793. {$EXTERNALSYM CredUnmarshalCredentialW}
  795. function CredUnmarshalCredentialA(MarshaledCredential: LPCSTR; CredType: PCRED_MARSHAL_TYPE; Credential: PVOID): BOOL; stdcall;
  796. {$EXTERNALSYM CredUnmarshalCredentialA}
  798. {$IFDEF UNICODE}
  799. function CredUnmarshalCredential(MarshaledCredential: LPCWSTR; CredType: PCRED_MARSHAL_TYPE; var Credential: PVOID): BOOL; stdcall;
  800. {$EXTERNALSYM CredUnmarshalCredential}
  801. {$ELSE}
  802. function CredUnmarshalCredential(MarshaledCredential: LPCSTR; CredType: PCRED_MARSHAL_TYPE; Credential: PVOID): BOOL; stdcall;
  803. {$EXTERNALSYM CredUnmarshalCredential}
  804. {$ENDIF}
  806. function CredIsMarshaledCredentialW(MarshaledCredential: LPCWSTR): BOOL; stdcall;
  807. {$EXTERNALSYM CredIsMarshaledCredentialW}
  809. function CredIsMarshaledCredentialA(MarshaledCredential: LPCSTR): BOOL; stdcall;
  810. {$EXTERNALSYM CredIsMarshaledCredentialA}
  812. {$IFDEF UNICODE}
  813. function CredIsMarshaledCredential(MarshaledCredential: LPCWSTR): BOOL; stdcall;
  814. {$EXTERNALSYM CredIsMarshaledCredential}
  815. {$ELSE}
  816. function CredIsMarshaledCredential(MarshaledCredential: LPCSTR): BOOL; stdcall;
  817. {$EXTERNALSYM CredIsMarshaledCredential}
  818. {$ENDIF}
  820. function CredGetSessionTypes(MaximumPersistCount: DWORD; MaximumPersist: LPDWORD): BOOL; stdcall;
  821. {$EXTERNALSYM CredGetSessionTypes}
  823. procedure CredFree(Buffer: PVOID); stdcall;
  824. {$EXTERNALSYM CredFree}
  826. function CredUIPromptForCredentialsW(pUiInfo: PCREDUI_INFOW; pszTargetName: LPCWSTR; pContext: PCtxtHandle; dwAuthError: DWORD; pszUserName: PWSTR; ulUserNameBufferSize: ULONG; pszPassword: PWSTR; ulPasswordBufferSize: ULONG; var save: BOOL; dwFlags: DWORD): DWORD; stdcall;
  827. {$EXTERNALSYM CredUIPromptForCredentialsW}
  829. function CredUIPromptForCredentialsA(pUiInfo: PCREDUI_INFOA; pszTargetName: PCSTR; pContext: PCtxtHandle; dwAuthError: DWORD; pszUserName: PSTR; ulUserNameBufferSize: ULONG; pszPassword: PSTR; ulPasswordBufferSize: ULONG; var save: BOOL; dwFlags: DWORD): DWORD; stdcall;
  830. {$EXTERNALSYM CredUIPromptForCredentialsA}
  832. {$IFDEF UNICODE}
  833. function CredUIPromptForCredentials(pUiInfo: PCREDUI_INFOW; pszTargetName: LPCWSTR; pContext: PCtxtHandle; dwAuthError: DWORD; pszUserName: PWSTR; ulUserNameBufferSize: ULONG; pszPassword: PWSTR; ulPasswordBufferSize: ULONG; var save: BOOL; dwFlags: DWORD): DWORD; stdcall;
  834. {$EXTERNALSYM CredUIPromptForCredentials}
  835. {$ELSE}
  836. function CredUIPromptForCredentials(pUiInfo: PCREDUI_INFOA; pszTargetName: PCSTR; pContext: PCtxtHandle; dwAuthError: DWORD; pszUserName: PSTR; ulUserNameBufferSize: ULONG; pszPassword: PSTR; ulPasswordBufferSize: ULONG; var save: BOOL; dwFlags: DWORD): DWORD; stdcall;
  837. {$EXTERNALSYM CredUIPromptForCredentials}
  838. {$ENDIF}
  840. function CredUIParseUserNameW(pszUserName: LPCWSTR; pszUser: PWSTR; ulUserBufferSize: ULONG; pszDomain: PWSTR; ulDomainBufferSize: ULONG): DWORD; stdcall;
  841. {$EXTERNALSYM CredUIParseUserNameW}
  843. function CredUIParseUserNameA(pszUserName: PCSTR; pszUser: PSTR; ulUserBufferSize: ULONG; pszDomain: PSTR; ulDomainBufferSize: ULONG): DWORD; stdcall;
  844. {$EXTERNALSYM CredUIParseUserNameA}
  846. {$IFDEF UNICODE}
  847. function CredUIParseUserName(pszUserName: LPCWSTR; pszUser: PWSTR; ulUserBufferSize: ULONG; pszDomain: PWSTR; ulDomainBufferSize: ULONG): DWORD; stdcall;
  848. {$EXTERNALSYM CredUIParseUserName}
  849. {$ELSE}
  850. function CredUIParseUserName(pszUserName: PCSTR; pszUser: PSTR; ulUserBufferSize: ULONG; pszDomain: PSTR; ulDomainBufferSize: ULONG): DWORD; stdcall;
  851. {$EXTERNALSYM CredUIParseUserName}
  852. {$ENDIF}
  854. function CredUICmdLinePromptForCredentialsW(pszTargetName: LPCWSTR; pContext: PCtxtHandle; dwAuthError: DWORD; UserName: PWSTR; ulUserBufferSize: ULONG; pszPassword: PWSTR; ulPasswordBufferSize: ULONG; pfSave: PBOOL; dwFlags: DWORD): DWORD; stdcall;
  855. {$EXTERNALSYM CredUICmdLinePromptForCredentialsW}
  857. function CredUICmdLinePromptForCredentialsA(pszTargetName: PCSTR; pContext: PCtxtHandle; dwAuthError: DWORD; UserName: PSTR; ulUserBufferSize: ULONG; pszPassword: PSTR; ulPasswordBufferSize: ULONG; pfSave: PBOOL; dwFlags: DWORD): DWORD; stdcall;
  858. {$EXTERNALSYM CredUICmdLinePromptForCredentialsA}
  860. {$IFDEF UNICODE}
  861. function CredUICmdLinePromptForCredentials(pszTargetName: LPCWSTR; pContext: PCtxtHandle; dwAuthError: DWORD; UserName: PWSTR; ulUserBufferSize: ULONG; pszPassword: PWSTR; ulPasswordBufferSize: ULONG; pfSave: PBOOL; dwFlags: DWORD): DWORD; stdcall;
  862. {$EXTERNALSYM CredUICmdLinePromptForCredentials}
  863. {$ELSE}
  864. function CredUICmdLinePromptForCredentials(pszTargetName: PCSTR; pContext: PCtxtHandle; dwAuthError: DWORD; UserName: PSTR; ulUserBufferSize: ULONG; pszPassword: PSTR; ulPasswordBufferSize: ULONG; pfSave: PBOOL; dwFlags: DWORD): DWORD; stdcall;
  865. {$EXTERNALSYM CredUICmdLinePromptForCredentials}
  866. {$ENDIF}
  868. //
  869. // Call this API with bConfirm set to TRUE to confirm that the credential (previously created
  870. // via CredUIGetCredentials or CredUIPromptForCredentials worked, or with bConfirm set to FALSE
  871. // to indicate it didn't
  873. function CredUIConfirmCredentialsW(pszTargetName: LPCWSTR; bConfirm: BOOL): DWORD; stdcall;
  874. {$EXTERNALSYM CredUIConfirmCredentialsW}
  876. function CredUIConfirmCredentialsA(pszTargetName: PCSTR; bConfirm: BOOL): DWORD; stdcall;
  877. {$EXTERNALSYM CredUIConfirmCredentialsA}
  879. {$IFDEF UNICODE}
  880. function CredUIConfirmCredentials(pszTargetName: LPCWSTR; bConfirm: BOOL): DWORD; stdcall;
  881. {$EXTERNALSYM CredUIConfirmCredentials}
  882. {$ELSE}
  883. function CredUIConfirmCredentials(pszTargetName: PCSTR; bConfirm: BOOL): DWORD; stdcall;
  884. {$EXTERNALSYM CredUIConfirmCredentials}
  885. {$ENDIF}
  887. implementation
  889. function CREDUIP_IS_USER_PASSWORD_ERROR(_Status: NTSTATUS): BOOL;
  890. begin
  891.   Result :=
  892.     (DWORD(_Status) = ERROR_LOGON_FAILURE) or
  893.     (_Status = HRESULT_FROM_WIN32(ERROR_LOGON_FAILURE)) or
  894.     (_Status = STATUS_LOGON_FAILURE) or
  895.     (_Status = HRESULT_FROM_NT(STATUS_LOGON_FAILURE)) or
  896.     (DWORD(_Status) = ERROR_ACCESS_DENIED) or
  897.     (_Status = HRESULT_FROM_WIN32(ERROR_ACCESS_DENIED)) or
  898.     (_Status = STATUS_ACCESS_DENIED) or
  899.     (_Status = HRESULT_FROM_NT(STATUS_ACCESS_DENIED)) or
  900.     (DWORD(_Status) = ERROR_INVALID_PASSWORD) or
  901.     (_Status = HRESULT_FROM_WIN32(ERROR_INVALID_PASSWORD)) or
  902.     (_Status = STATUS_WRONG_PASSWORD) or
  903.     (_Status = HRESULT_FROM_NT(STATUS_WRONG_PASSWORD)) or
  904.     (_Status = SEC_E_NO_CREDENTIALS) or
  905.     (_Status = SEC_E_LOGON_DENIED);
  906. end;
  908. function CREDUIP_IS_DOWNGRADE_ERROR(_Status: NTSTATUS): BOOL;
  909. begin
  910.   Result :=
  911.     (DWORD(_Status) = ERROR_DOWNGRADE_DETECTED) or
  912.     (_Status = HRESULT_FROM_WIN32(ERROR_DOWNGRADE_DETECTED)) or
  913.     (_Status = STATUS_DOWNGRADE_DETECTED) or
  914.     (_Status = HRESULT_FROM_NT(STATUS_DOWNGRADE_DETECTED))
  915. end;
  917. function CREDUIP_IS_EXPIRED_ERROR(_Status: NTSTATUS): BOOL;
  918. begin
  919.   Result :=
  920.     (DWORD(_Status) = ERROR_PASSWORD_EXPIRED) or
  921.     (_Status = HRESULT_FROM_WIN32( ERROR_PASSWORD_EXPIRED)) or
  922.     (_Status = STATUS_PASSWORD_EXPIRED) or
  923.     (_Status = HRESULT_FROM_NT( STATUS_PASSWORD_EXPIRED)) or
  924.     (DWORD(_Status) = ERROR_PASSWORD_MUST_CHANGE) or
  925.     (_Status = HRESULT_FROM_WIN32( ERROR_PASSWORD_MUST_CHANGE)) or
  926.     (_Status = STATUS_PASSWORD_MUST_CHANGE) or
  927.     (_Status = HRESULT_FROM_NT( STATUS_PASSWORD_MUST_CHANGE)) or
  928.     (_Status = NERR_PasswordExpired) or
  929.     (_Status = HRESULT_FROM_WIN32(NERR_PasswordExpired));
  930. end;
  932. function CREDUI_IS_AUTHENTICATION_ERROR(_Status: NTSTATUS): BOOL;
  933. begin
  934.   Result := CREDUIP_IS_USER_PASSWORD_ERROR(_Status) or CREDUIP_IS_DOWNGRADE_ERROR(_Status) or CREDUIP_IS_EXPIRED_ERROR(_Status);
  935. end;
  937. function CREDUI_NO_PROMPT_AUTHENTICATION_ERROR(_Status: NTSTATUS): BOOL;
  938. begin
  939.   Result :=
  940.     (_Status = 1935{TODO Temp until WinError updated ERROR_AUTHENTICATION_FIREWALL_FAILED}) or
  941.     (_Status = HRESULT_FROM_WIN32(1935{TODO ERROR_AUTHENTICATION_FIREWALL_FAILED})) or
  942.     (_Status = STATUS_AUTHENTICATION_FIREWALL_FAILED) or
  943.     (_Status = HRESULT_FROM_NT(STATUS_AUTHENTICATION_FIREWALL_FAILED)) or
  944.     (DWORD(_Status) = ERROR_ACCOUNT_DISABLED) or
  945.     (_Status = HRESULT_FROM_WIN32(ERROR_ACCOUNT_DISABLED)) or
  946.     (_Status = STATUS_ACCOUNT_DISABLED) or
  947.     (_Status = HRESULT_FROM_NT(STATUS_ACCOUNT_DISABLED)) or
  948.     (DWORD(_Status) = ERROR_ACCOUNT_RESTRICTION) or
  949.     (_Status = HRESULT_FROM_WIN32(ERROR_ACCOUNT_RESTRICTION)) or
  950.     (_Status = STATUS_ACCOUNT_RESTRICTION) or
  951.     (_Status = HRESULT_FROM_NT(STATUS_ACCOUNT_RESTRICTION)) or
  952.     (DWORD(_Status) = ERROR_ACCOUNT_LOCKED_OUT) or
  953.     (_Status = HRESULT_FROM_WIN32(ERROR_ACCOUNT_LOCKED_OUT)) or
  954.     (_Status = STATUS_ACCOUNT_LOCKED_OUT) or
  955.     (_Status = HRESULT_FROM_NT(STATUS_ACCOUNT_LOCKED_OUT)) or
  956.     (DWORD(_Status) = ERROR_ACCOUNT_EXPIRED) or
  957.     (_Status = HRESULT_FROM_WIN32(ERROR_ACCOUNT_EXPIRED)) or
  958.     (_Status = STATUS_ACCOUNT_EXPIRED) or
  959.     (_Status = HRESULT_FROM_NT(STATUS_ACCOUNT_EXPIRED)) or
  960.     (DWORD(_Status) = ERROR_LOGON_TYPE_NOT_GRANTED) or
  961.     (_Status = HRESULT_FROM_WIN32(ERROR_LOGON_TYPE_NOT_GRANTED)) or
  962.     (_Status = STATUS_LOGON_TYPE_NOT_GRANTED) or
  963.     (_Status = HRESULT_FROM_NT(STATUS_LOGON_TYPE_NOT_GRANTED));
  964. end;
  966. const
  967.   credapi = 'advapi32.dll';
  968.   credui = 'credui.dll';
  970. {$IFDEF DYNAMIC_LINK}
  971. var
  972.   _CredWriteW: Pointer;
  974. function CredWriteW;
  975. begin
  976.   GetProcedureAddress(_CredWriteW, credapi, 'CredWriteW');
  977.   asm
  978.     mov esp, ebp
  979.     pop ebp
  980.     jmp [_CredWriteW]
  981.   end;
  982. end;
  983. {$ELSE}
  984. function CredWriteW; external credapi name 'CredWriteW';
  985. {$ENDIF DYNAMIC_LINK}
  987. {$IFDEF DYNAMIC_LINK}
  988. var
  989.   _CredWriteA: Pointer;
  991. function CredWriteA;
  992. begin
  993.   GetProcedureAddress(_CredWriteA, credapi, 'CredWriteA');
  994.   asm
  995.     mov esp, ebp
  996.     pop ebp
  997.     jmp [_CredWriteA]
  998.   end;
  999. end;
  1000. {$ELSE}
  1001. function CredWriteA; external credapi name 'CredWriteA';
  1002. {$ENDIF DYNAMIC_LINK}
  1003. {$IFDEF UNICODE}
  1005. {$IFDEF DYNAMIC_LINK}
  1006. var
  1007.   _CredWrite: Pointer;
  1009. function CredWrite;
  1010. begin
  1011.   GetProcedureAddress(_CredWrite, credapi, 'CredWriteW');
  1012.   asm
  1013.     mov esp, ebp
  1014.     pop ebp
  1015.     jmp [_CredWrite]
  1016.   end;
  1017. end;
  1018. {$ELSE}
  1019. function CredWrite; external credapi name 'CredWriteW';
  1020. {$ENDIF DYNAMIC_LINK}
  1021. {$ELSE}
  1023. {$IFDEF DYNAMIC_LINK}
  1024. var
  1025.   _CredWrite: Pointer;
  1027. function CredWrite;
  1028. begin
  1029.   GetProcedureAddress(_CredWrite, credapi, 'CredWriteA');
  1030.   asm
  1031.     mov esp, ebp
  1032.     pop ebp
  1033.     jmp [_CredWrite]
  1034.   end;
  1035. end;
  1036. {$ELSE}
  1037. function CredWrite; external credapi name 'CredWriteA';
  1038. {$ENDIF DYNAMIC_LINK}
  1039. {$ENDIF}
  1041. {$IFDEF DYNAMIC_LINK}
  1042. var
  1043.   _CredReadW: Pointer;
  1045. function CredReadW;
  1046. begin
  1047.   GetProcedureAddress(_CredReadW, credapi, 'CredReadW');
  1048.   asm
  1049.     mov esp, ebp
  1050.     pop ebp
  1051.     jmp [_CredReadW]
  1052.   end;
  1053. end;
  1054. {$ELSE}
  1055. function CredReadW; external credapi name 'CredReadW';
  1056. {$ENDIF DYNAMIC_LINK}
  1058. {$IFDEF DYNAMIC_LINK}
  1059. var
  1060.   _CredReadA: Pointer;
  1062. function CredReadA;
  1063. begin
  1064.   GetProcedureAddress(_CredReadA, credapi, 'CredReadA');
  1065.   asm
  1066.     mov esp, ebp
  1067.     pop ebp
  1068.     jmp [_CredReadA]
  1069.   end;
  1070. end;
  1071. {$ELSE}
  1072. function CredReadA; external credapi name 'CredReadA';
  1073. {$ENDIF DYNAMIC_LINK}
  1074. {$IFDEF UNICODE}
  1076. {$IFDEF DYNAMIC_LINK}
  1077. var
  1078.   _CredRead: Pointer;
  1080. function CredRead;
  1081. begin
  1082.   GetProcedureAddress(_CredRead, credapi, 'CredReadW');
  1083.   asm
  1084.     mov esp, ebp
  1085.     pop ebp
  1086.     jmp [_CredRead]
  1087.   end;
  1088. end;
  1089. {$ELSE}
  1090. function CredRead; external credapi name 'CredReadW';
  1091. {$ENDIF DYNAMIC_LINK}
  1092. {$ELSE}
  1094. {$IFDEF DYNAMIC_LINK}
  1095. var
  1096.   _CredRead: Pointer;
  1098. function CredRead;
  1099. begin
  1100.   GetProcedureAddress(_CredRead, credapi, 'CredReadA');
  1101.   asm
  1102.     mov esp, ebp
  1103.     pop ebp
  1104.     jmp [_CredRead]
  1105.   end;
  1106. end;
  1107. {$ELSE}
  1108. function CredRead; external credapi name 'CredReadA';
  1109. {$ENDIF DYNAMIC_LINK}
  1110. {$ENDIF}
  1112. {$IFDEF DYNAMIC_LINK}
  1113. var
  1114.   _CredEnumerateW: Pointer;
  1116. function CredEnumerateW;
  1117. begin
  1118.   GetProcedureAddress(_CredEnumerateW, credapi, 'CredEnumerateW');
  1119.   asm
  1120.     mov esp, ebp
  1121.     pop ebp
  1122.     jmp [_CredEnumerateW]
  1123.   end;
  1124. end;
  1125. {$ELSE}
  1126. function CredEnumerateW; external credapi name 'CredEnumerateW';
  1127. {$ENDIF DYNAMIC_LINK}
  1129. {$IFDEF DYNAMIC_LINK}
  1130. var
  1131.   _CredEnumerateA: Pointer;
  1133. function CredEnumerateA;
  1134. begin
  1135.   GetProcedureAddress(_CredEnumerateA, credapi, 'CredEnumerateA');
  1136.   asm
  1137.     mov esp, ebp
  1138.     pop ebp
  1139.     jmp [_CredEnumerateA]
  1140.   end;
  1141. end;
  1142. {$ELSE}
  1143. function CredEnumerateA; external credapi name 'CredEnumerateA';
  1144. {$ENDIF DYNAMIC_LINK}
  1145. {$IFDEF UNICODE}
  1147. {$IFDEF DYNAMIC_LINK}
  1148. var
  1149.   _CredEnumerate: Pointer;
  1151. function CredEnumerate;
  1152. begin
  1153.   GetProcedureAddress(_CredEnumerate, credapi, 'CredEnumerateW');
  1154.   asm
  1155.     mov esp, ebp
  1156.     pop ebp
  1157.     jmp [_CredEnumerate]
  1158.   end;
  1159. end;
  1160. {$ELSE}
  1161. function CredEnumerate; external credapi name 'CredEnumerateW';
  1162. {$ENDIF DYNAMIC_LINK}
  1163. {$ELSE}
  1165. {$IFDEF DYNAMIC_LINK}
  1166. var
  1167.   _CredEnumerate: Pointer;
  1169. function CredEnumerate;
  1170. begin
  1171.   GetProcedureAddress(_CredEnumerate, credapi, 'CredEnumerateA');
  1172.   asm
  1173.     mov esp, ebp
  1174.     pop ebp
  1175.     jmp [_CredEnumerate]
  1176.   end;
  1177. end;
  1178. {$ELSE}
  1179. function CredEnumerate; external credapi name 'CredEnumerateA';
  1180. {$ENDIF DYNAMIC_LINK}
  1181. {$ENDIF}
  1183. {$IFDEF DYNAMIC_LINK}
  1184. var
  1185.   _CredWriteDomainCredentialsW: Pointer;
  1187. function CredWriteDomainCredentialsW;
  1188. begin
  1189.   GetProcedureAddress(_CredWriteDomainCredentialsW, credapi, 'CredWriteDomainCredentialsW');
  1190.   asm
  1191.     mov esp, ebp
  1192.     pop ebp
  1193.     jmp [_CredWriteDomainCredentialsW]
  1194.   end;
  1195. end;
  1196. {$ELSE}
  1197. function CredWriteDomainCredentialsW; external credapi name 'CredWriteDomainCredentialsW';
  1198. {$ENDIF DYNAMIC_LINK}
  1200. {$IFDEF DYNAMIC_LINK}
  1201. var
  1202.   _CredWriteDomainCredentialsA: Pointer;
  1204. function CredWriteDomainCredentialsA;
  1205. begin
  1206.   GetProcedureAddress(_CredWriteDomainCredentialsA, credapi, 'CredWriteDomainCredentialsA');
  1207.   asm
  1208.     mov esp, ebp
  1209.     pop ebp
  1210.     jmp [_CredWriteDomainCredentialsA]
  1211.   end;
  1212. end;
  1213. {$ELSE}
  1214. function CredWriteDomainCredentialsA; external credapi name 'CredWriteDomainCredentialsA';
  1215. {$ENDIF DYNAMIC_LINK}
  1216. {$IFDEF UNICODE}
  1218. {$IFDEF DYNAMIC_LINK}
  1219. var
  1220.   _CredWriteDomainCredentials: Pointer;
  1222. function CredWriteDomainCredentials;
  1223. begin
  1224.   GetProcedureAddress(_CredWriteDomainCredentials, credapi, 'CredWriteDomainCredentialsW');
  1225.   asm
  1226.     mov esp, ebp
  1227.     pop ebp
  1228.     jmp [_CredWriteDomainCredentials]
  1229.   end;
  1230. end;
  1231. {$ELSE}
  1232. function CredWriteDomainCredentials; external credapi name 'CredWriteDomainCredentialsW';
  1233. {$ENDIF DYNAMIC_LINK}
  1234. {$ELSE}
  1236. {$IFDEF DYNAMIC_LINK}
  1237. var
  1238.   _CredWriteDomainCredentials: Pointer;
  1240. function CredWriteDomainCredentials;
  1241. begin
  1242.   GetProcedureAddress(_CredWriteDomainCredentials, credapi, 'CredWriteDomainCredentialsA');
  1243.   asm
  1244.     mov esp, ebp
  1245.     pop ebp
  1246.     jmp [_CredWriteDomainCredentials]
  1247.   end;
  1248. end;
  1249. {$ELSE}
  1250. function CredWriteDomainCredentials; external credapi name 'CredWriteDomainCredentialsA';
  1251. {$ENDIF DYNAMIC_LINK}
  1252. {$ENDIF}
  1254. {$IFDEF DYNAMIC_LINK}
  1255. var
  1256.   _CredReadDomainCredentialsW: Pointer;
  1258. function CredReadDomainCredentialsW;
  1259. begin
  1260.   GetProcedureAddress(_CredReadDomainCredentialsW, credapi, 'CredReadDomainCredentialsW');
  1261.   asm
  1262.     mov esp, ebp
  1263.     pop ebp
  1264.     jmp [_CredReadDomainCredentialsW]
  1265.   end;
  1266. end;
  1267. {$ELSE}
  1268. function CredReadDomainCredentialsW; external credapi name 'CredReadDomainCredentialsW';
  1269. {$ENDIF DYNAMIC_LINK}
  1271. {$IFDEF DYNAMIC_LINK}
  1272. var
  1273.   _CredReadDomainCredentialsA: Pointer;
  1275. function CredReadDomainCredentialsA;
  1276. begin
  1277.   GetProcedureAddress(_CredReadDomainCredentialsA, credapi, 'CredReadDomainCredentialsA');
  1278.   asm
  1279.     mov esp, ebp
  1280.     pop ebp
  1281.     jmp [_CredReadDomainCredentialsA]
  1282.   end;
  1283. end;
  1284. {$ELSE}
  1285. function CredReadDomainCredentialsA; external credapi name 'CredReadDomainCredentialsA';
  1286. {$ENDIF DYNAMIC_LINK}
  1287. {$IFDEF UNICODE}
  1289. {$IFDEF DYNAMIC_LINK}
  1290. var
  1291.   _CredReadDomainCredentials: Pointer;
  1293. function CredReadDomainCredentials;
  1294. begin
  1295.   GetProcedureAddress(_CredReadDomainCredentials, credapi, 'CredReadDomainCredentialsW');
  1296.   asm
  1297.     mov esp, ebp
  1298.     pop ebp
  1299.     jmp [_CredReadDomainCredentials]
  1300.   end;
  1301. end;
  1302. {$ELSE}
  1303. function CredReadDomainCredentials; external credapi name 'CredReadDomainCredentialsW';
  1304. {$ENDIF DYNAMIC_LINK}
  1305. {$ELSE}
  1307. {$IFDEF DYNAMIC_LINK}
  1308. var
  1309.   _CredReadDomainCredentials: Pointer;
  1311. function CredReadDomainCredentials;
  1312. begin
  1313.   GetProcedureAddress(_CredReadDomainCredentials, credapi, 'CredReadDomainCredentialsA');
  1314.   asm
  1315.     mov esp, ebp
  1316.     pop ebp
  1317.     jmp [_CredReadDomainCredentials]
  1318.   end;
  1319. end;
  1320. {$ELSE}
  1321. function CredReadDomainCredentials; external credapi name 'CredReadDomainCredentialsA';
  1322. {$ENDIF DYNAMIC_LINK}
  1323. {$ENDIF}
  1325. {$IFDEF DYNAMIC_LINK}
  1326. var
  1327.   _CredDeleteW: Pointer;
  1329. function CredDeleteW;
  1330. begin
  1331.   GetProcedureAddress(_CredDeleteW, credapi, 'CredDeleteW');
  1332.   asm
  1333.     mov esp, ebp
  1334.     pop ebp
  1335.     jmp [_CredDeleteW]
  1336.   end;
  1337. end;
  1338. {$ELSE}
  1339. function CredDeleteW; external credapi name 'CredDeleteW';
  1340. {$ENDIF DYNAMIC_LINK}
  1342. {$IFDEF DYNAMIC_LINK}
  1343. var
  1344.   _CredDeleteA: Pointer;
  1346. function CredDeleteA;
  1347. begin
  1348.   GetProcedureAddress(_CredDeleteA, credapi, 'CredDeleteA');
  1349.   asm
  1350.     mov esp, ebp
  1351.     pop ebp
  1352.     jmp [_CredDeleteA]
  1353.   end;
  1354. end;
  1355. {$ELSE}
  1356. function CredDeleteA; external credapi name 'CredDeleteA';
  1357. {$ENDIF DYNAMIC_LINK}
  1358. {$IFDEF UNICODE}
  1360. {$IFDEF DYNAMIC_LINK}
  1361. var
  1362.   _CredDelete: Pointer;
  1364. function CredDelete;
  1365. begin
  1366.   GetProcedureAddress(_CredDelete, credapi, 'CredDeleteW');
  1367.   asm
  1368.     mov esp, ebp
  1369.     pop ebp
  1370.     jmp [_CredDelete]
  1371.   end;
  1372. end;
  1373. {$ELSE}
  1374. function CredDelete; external credapi name 'CredDeleteW';
  1375. {$ENDIF DYNAMIC_LINK}
  1376. {$ELSE}
  1378. {$IFDEF DYNAMIC_LINK}
  1379. var
  1380.   _CredDelete: Pointer;
  1382. function CredDelete;
  1383. begin
  1384.   GetProcedureAddress(_CredDelete, credapi, 'CredDeleteA');
  1385.   asm
  1386.     mov esp, ebp
  1387.     pop ebp
  1388.     jmp [_CredDelete]
  1389.   end;
  1390. end;
  1391. {$ELSE}
  1392. function CredDelete; external credapi name 'CredDeleteA';
  1393. {$ENDIF DYNAMIC_LINK}
  1394. {$ENDIF}
  1396. {$IFDEF DYNAMIC_LINK}
  1397. var
  1398.   _CredRenameW: Pointer;
  1400. function CredRenameW;
  1401. begin
  1402.   GetProcedureAddress(_CredRenameW, credapi, 'CredRenameW');
  1403.   asm
  1404.     mov esp, ebp
  1405.     pop ebp
  1406.     jmp [_CredRenameW]
  1407.   end;
  1408. end;
  1409. {$ELSE}
  1410. function CredRenameW; external credapi name 'CredRenameW';
  1411. {$ENDIF DYNAMIC_LINK}
  1413. {$IFDEF DYNAMIC_LINK}
  1414. var
  1415.   _CredRenameA: Pointer;
  1417. function CredRenameA;
  1418. begin
  1419.   GetProcedureAddress(_CredRenameA, credapi, 'CredRenameA');
  1420.   asm
  1421.     mov esp, ebp
  1422.     pop ebp
  1423.     jmp [_CredRenameA]
  1424.   end;
  1425. end;
  1426. {$ELSE}
  1427. function CredRenameA; external credapi name 'CredRenameA';
  1428. {$ENDIF DYNAMIC_LINK}
  1429. {$IFDEF UNICODE}
  1431. {$IFDEF DYNAMIC_LINK}
  1432. var
  1433.   _CredRename: Pointer;
  1435. function CredRename;
  1436. begin
  1437.   GetProcedureAddress(_CredRename, credapi, 'CredRenameW');
  1438.   asm
  1439.     mov esp, ebp
  1440.     pop ebp
  1441.     jmp [_CredRename]
  1442.   end;
  1443. end;
  1444. {$ELSE}
  1445. function CredRename; external credapi name 'CredRenameW';
  1446. {$ENDIF DYNAMIC_LINK}
  1447. {$ELSE}
  1449. {$IFDEF DYNAMIC_LINK}
  1450. var
  1451.   _CredRename: Pointer;
  1453. function CredRename;
  1454. begin
  1455.   GetProcedureAddress(_CredRename, credapi, 'CredRenameA');
  1456.   asm
  1457.     mov esp, ebp
  1458.     pop ebp
  1459.     jmp [_CredRename]
  1460.   end;
  1461. end;
  1462. {$ELSE}
  1463. function CredRename; external credapi name 'CredRenameA';
  1464. {$ENDIF DYNAMIC_LINK}
  1465. {$ENDIF}
  1467. {$IFDEF DYNAMIC_LINK}
  1468. var
  1469.   _CredGetTargetInfoW: Pointer;
  1471. function CredGetTargetInfoW;
  1472. begin
  1473.   GetProcedureAddress(_CredGetTargetInfoW, credapi, 'CredGetTargetInfoW');
  1474.   asm
  1475.     mov esp, ebp
  1476.     pop ebp
  1477.     jmp [_CredGetTargetInfoW]
  1478.   end;
  1479. end;
  1480. {$ELSE}
  1481. function CredGetTargetInfoW; external credapi name 'CredGetTargetInfoW';
  1482. {$ENDIF DYNAMIC_LINK}
  1484. {$IFDEF DYNAMIC_LINK}
  1485. var
  1486.   _CredGetTargetInfoA: Pointer;
  1488. function CredGetTargetInfoA;
  1489. begin
  1490.   GetProcedureAddress(_CredGetTargetInfoA, credapi, 'CredGetTargetInfoA');
  1491.   asm
  1492.     mov esp, ebp
  1493.     pop ebp
  1494.     jmp [_CredGetTargetInfoA]
  1495.   end;
  1496. end;
  1497. {$ELSE}
  1498. function CredGetTargetInfoA; external credapi name 'CredGetTargetInfoA';
  1499. {$ENDIF DYNAMIC_LINK}
  1500. {$IFDEF UNICODE}
  1502. {$IFDEF DYNAMIC_LINK}
  1503. var
  1504.   _CredGetTargetInfo: Pointer;
  1506. function CredGetTargetInfo;
  1507. begin
  1508.   GetProcedureAddress(_CredGetTargetInfo, credapi, 'CredGetTargetInfoA');
  1509.   asm
  1510.     mov esp, ebp
  1511.     pop ebp
  1512.     jmp [_CredGetTargetInfo]
  1513.   end;
  1514. end;
  1515. {$ELSE}
  1516. function CredGetTargetInfo; external credapi name 'CredGetTargetInfoA';
  1517. {$ENDIF DYNAMIC_LINK}
  1518. {$ELSE}
  1520. {$IFDEF DYNAMIC_LINK}
  1521. var
  1522.   _CredGetTargetInfo: Pointer;
  1524. function CredGetTargetInfo;
  1525. begin
  1526.   GetProcedureAddress(_CredGetTargetInfo, credapi, 'CredGetTargetInfoA');
  1527.   asm
  1528.     mov esp, ebp
  1529.     pop ebp
  1530.     jmp [_CredGetTargetInfo]
  1531.   end;
  1532. end;
  1533. {$ELSE}
  1534. function CredGetTargetInfo; external credapi name 'CredGetTargetInfoA';
  1535. {$ENDIF DYNAMIC_LINK}
  1536. {$ENDIF}
  1538. {$IFDEF DYNAMIC_LINK}
  1539. var
  1540.   _CredMarshalCredentialW: Pointer;
  1542. function CredMarshalCredentialW;
  1543. begin
  1544.   GetProcedureAddress(_CredMarshalCredentialW, credapi, 'CredMarshalCredentialW');
  1545.   asm
  1546.     mov esp, ebp
  1547.     pop ebp
  1548.     jmp [_CredMarshalCredentialW]
  1549.   end;
  1550. end;
  1551. {$ELSE}
  1552. function CredMarshalCredentialW; external credapi name 'CredMarshalCredentialW';
  1553. {$ENDIF DYNAMIC_LINK}
  1555. {$IFDEF DYNAMIC_LINK}
  1556. var
  1557.   _CredMarshalCredentialA: Pointer;
  1559. function CredMarshalCredentialA;
  1560. begin
  1561.   GetProcedureAddress(_CredMarshalCredentialA, credapi, 'CredMarshalCredentialA');
  1562.   asm
  1563.     mov esp, ebp
  1564.     pop ebp
  1565.     jmp [_CredMarshalCredentialA]
  1566.   end;
  1567. end;
  1568. {$ELSE}
  1569. function CredMarshalCredentialA; external credapi name 'CredMarshalCredentialA';
  1570. {$ENDIF DYNAMIC_LINK}
  1571. {$IFDEF UNICODE}
  1573. {$IFDEF DYNAMIC_LINK}
  1574. var
  1575.   _CredMarshalCredential: Pointer;
  1577. function CredMarshalCredential;
  1578. begin
  1579.   GetProcedureAddress(_CredMarshalCredential, credapi, 'CredMarshalCredentialW');
  1580.   asm
  1581.     mov esp, ebp
  1582.     pop ebp
  1583.     jmp [_CredMarshalCredential]
  1584.   end;
  1585. end;
  1586. {$ELSE}
  1587. function CredMarshalCredential; external credapi name 'CredMarshalCredentialW';
  1588. {$ENDIF DYNAMIC_LINK}
  1589. {$ELSE}
  1591. {$IFDEF DYNAMIC_LINK}
  1592. var
  1593.   _CredMarshalCredential: Pointer;
  1595. function CredMarshalCredential;
  1596. begin
  1597.   GetProcedureAddress(_CredMarshalCredential, credapi, 'CredMarshalCredentialA');
  1598.   asm
  1599.     mov esp, ebp
  1600.     pop ebp
  1601.     jmp [_CredMarshalCredential]
  1602.   end;
  1603. end;
  1604. {$ELSE}
  1605. function CredMarshalCredential; external credapi name 'CredMarshalCredentialA';
  1606. {$ENDIF DYNAMIC_LINK}
  1607. {$ENDIF}
  1609. {$IFDEF DYNAMIC_LINK}
  1610. var
  1611.   _CredUnmarshalCredentialW: Pointer;
  1613. function CredUnmarshalCredentialW;
  1614. begin
  1615.   GetProcedureAddress(_CredUnmarshalCredentialW, credapi, 'CredUnmarshalCredentialW');
  1616.   asm
  1617.     mov esp, ebp
  1618.     pop ebp
  1619.     jmp [_CredUnmarshalCredentialW]
  1620.   end;
  1621. end;
  1622. {$ELSE}
  1623. function CredUnmarshalCredentialW; external credapi name 'CredUnmarshalCredentialW';
  1624. {$ENDIF DYNAMIC_LINK}
  1626. {$IFDEF DYNAMIC_LINK}
  1627. var
  1628.   _CredUnmarshalCredentialA: Pointer;
  1630. function CredUnmarshalCredentialA;
  1631. begin
  1632.   GetProcedureAddress(_CredUnmarshalCredentialA, credapi, 'CredUnmarshalCredentialA');
  1633.   asm
  1634.     mov esp, ebp
  1635.     pop ebp
  1636.     jmp [_CredUnmarshalCredentialA]
  1637.   end;
  1638. end;
  1639. {$ELSE}
  1640. function CredUnmarshalCredentialA; external credapi name 'CredUnmarshalCredentialA';
  1641. {$ENDIF DYNAMIC_LINK}
  1642. {$IFDEF UNICODE}
  1644. {$IFDEF DYNAMIC_LINK}
  1645. var
  1646.   _CredUnmarshalCredential: Pointer;
  1648. function CredUnmarshalCredential;
  1649. begin
  1650.   GetProcedureAddress(_CredUnmarshalCredential, credapi, 'CredUnmarshalCredentialW');
  1651.   asm
  1652.     mov esp, ebp
  1653.     pop ebp
  1654.     jmp [_CredUnmarshalCredential]
  1655.   end;
  1656. end;
  1657. {$ELSE}
  1658. function CredUnmarshalCredential; external credapi name 'CredUnmarshalCredentialW';
  1659. {$ENDIF DYNAMIC_LINK}
  1660. {$ELSE}
  1662. {$IFDEF DYNAMIC_LINK}
  1663. var
  1664.   _CredUnmarshalCredential: Pointer;
  1666. function CredUnmarshalCredential;
  1667. begin
  1668.   GetProcedureAddress(_CredUnmarshalCredential, credapi, 'CredUnmarshalCredentialA');
  1669.   asm
  1670.     mov esp, ebp
  1671.     pop ebp
  1672.     jmp [_CredUnmarshalCredential]
  1673.   end;
  1674. end;
  1675. {$ELSE}
  1676. function CredUnmarshalCredential; external credapi name 'CredUnmarshalCredentialA';
  1677. {$ENDIF DYNAMIC_LINK}
  1678. {$ENDIF}
  1680. {$IFDEF DYNAMIC_LINK}
  1681. var
  1682.   _CredIsMarshaledCredentialW: Pointer;
  1684. function CredIsMarshaledCredentialW;
  1685. begin
  1686.   GetProcedureAddress(_CredIsMarshaledCredentialW, credapi, 'CredIsMarshaledCredentialW');
  1687.   asm
  1688.     mov esp, ebp
  1689.     pop ebp
  1690.     jmp [_CredIsMarshaledCredentialW]
  1691.   end;
  1692. end;
  1693. {$ELSE}
  1694. function CredIsMarshaledCredentialW; external credapi name 'CredIsMarshaledCredentialW';
  1695. {$ENDIF DYNAMIC_LINK}
  1697. {$IFDEF DYNAMIC_LINK}
  1698. var
  1699.   _CredIsMarshaledCredentialA: Pointer;
  1701. function CredIsMarshaledCredentialA;
  1702. begin
  1703.   GetProcedureAddress(_CredIsMarshaledCredentialA, credapi, 'CredIsMarshaledCredentialA');
  1704.   asm
  1705.     mov esp, ebp
  1706.     pop ebp
  1707.     jmp [_CredIsMarshaledCredentialA]
  1708.   end;
  1709. end;
  1710. {$ELSE}
  1711. function CredIsMarshaledCredentialA; external credapi name 'CredIsMarshaledCredentialA';
  1712. {$ENDIF DYNAMIC_LINK}
  1713. {$IFDEF UNICODE}
  1715. {$IFDEF DYNAMIC_LINK}
  1716. var
  1717.   _CredIsMarshaledCredential: Pointer;
  1719. function CredIsMarshaledCredential;
  1720. begin
  1721.   GetProcedureAddress(_CredIsMarshaledCredential, credapi, 'CredIsMarshaledCredentialW');
  1722.   asm
  1723.     mov esp, ebp
  1724.     pop ebp
  1725.     jmp [_CredIsMarshaledCredential]
  1726.   end;
  1727. end;
  1728. {$ELSE}
  1729. function CredIsMarshaledCredential; external credapi name 'CredIsMarshaledCredentialW';
  1730. {$ENDIF DYNAMIC_LINK}
  1731. {$ELSE}
  1733. {$IFDEF DYNAMIC_LINK}
  1734. var
  1735.   _CredIsMarshaledCredential: Pointer;
  1737. function CredIsMarshaledCredential;
  1738. begin
  1739.   GetProcedureAddress(_CredIsMarshaledCredential, credapi, 'CredIsMarshaledCredentialA');
  1740.   asm
  1741.     mov esp, ebp
  1742.     pop ebp
  1743.     jmp [_CredIsMarshaledCredential]
  1744.   end;
  1745. end;
  1746. {$ELSE}
  1747. function CredIsMarshaledCredential; external credapi name 'CredIsMarshaledCredentialA';
  1748. {$ENDIF DYNAMIC_LINK}
  1749. {$ENDIF}
  1751. {$IFDEF DYNAMIC_LINK}
  1752. var
  1753.   _CredGetSessionTypes: Pointer;
  1755. function CredGetSessionTypes;
  1756. begin
  1757.   GetProcedureAddress(_CredGetSessionTypes, credapi, 'CredGetSessionTypes');
  1758.   asm
  1759.     mov esp, ebp
  1760.     pop ebp
  1761.     jmp [_CredGetSessionTypes]
  1762.   end;
  1763. end;
  1764. {$ELSE}
  1765. function CredGetSessionTypes; external credapi name 'CredGetSessionTypes';
  1766. {$ENDIF DYNAMIC_LINK}
  1768. {$IFDEF DYNAMIC_LINK}
  1769. var
  1770.   _CredFree: Pointer;
  1772. procedure CredFree;
  1773. begin
  1774.   GetProcedureAddress(_CredFree, credapi, 'CredFree');
  1775.   asm
  1776.     mov esp, ebp
  1777.     pop ebp
  1778.     jmp [_CredFree]
  1779.   end;
  1780. end;
  1781. {$ELSE}
  1782. procedure CredFree; external credapi name 'CredFree';
  1783. {$ENDIF DYNAMIC_LINK}
  1785. {$IFDEF DYNAMIC_LINK}
  1786. var
  1787.   _CredUIPromptForCredentialsW: Pointer;
  1789. function CredUIPromptForCredentialsW;
  1790. begin
  1791.   GetProcedureAddress(_CredUIPromptForCredentialsW, credui, 'CredUIPromptForCredentialsW');
  1792.   asm
  1793.     mov esp, ebp
  1794.     pop ebp
  1795.     jmp [_CredUIPromptForCredentialsW]
  1796.   end;
  1797. end;
  1798. {$ELSE}
  1799. function CredUIPromptForCredentialsW; external credui name 'CredUIPromptForCredentialsW';
  1800. {$ENDIF DYNAMIC_LINK}
  1802. {$IFDEF DYNAMIC_LINK}
  1803. var
  1804.   _CredUIPromptForCredentialsA: Pointer;
  1806. function CredUIPromptForCredentialsA;
  1807. begin
  1808.   GetProcedureAddress(_CredUIPromptForCredentialsA, credui, 'CredUIPromptForCredentialsA');
  1809.   asm
  1810.     mov esp, ebp
  1811.     pop ebp
  1812.     jmp [_CredUIPromptForCredentialsA]
  1813.   end;
  1814. end;
  1815. {$ELSE}
  1816. function CredUIPromptForCredentialsA; external credui name 'CredUIPromptForCredentialsA';
  1817. {$ENDIF DYNAMIC_LINK}
  1818. {$IFDEF UNICODE}
  1820. {$IFDEF DYNAMIC_LINK}
  1821. var
  1822.   _CredUIPromptForCredentials: Pointer;
  1824. function CredUIPromptForCredentials;
  1825. begin
  1826.   GetProcedureAddress(_CredUIPromptForCredentials, credui, 'CredUIPromptForCredentialsW');
  1827.   asm
  1828.     mov esp, ebp
  1829.     pop ebp
  1830.     jmp [_CredUIPromptForCredentials]
  1831.   end;
  1832. end;
  1833. {$ELSE}
  1834. function CredUIPromptForCredentials; external credui name 'CredUIPromptForCredentialsW';
  1835. {$ENDIF DYNAMIC_LINK}
  1836. {$ELSE}
  1838. {$IFDEF DYNAMIC_LINK}
  1839. var
  1840.   _CredUIPromptForCredentials: Pointer;
  1842. function CredUIPromptForCredentials;
  1843. begin
  1844.   GetProcedureAddress(_CredUIPromptForCredentials, credui, 'CredUIPromptForCredentialsA');
  1845.   asm
  1846.     mov esp, ebp
  1847.     pop ebp
  1848.     jmp [_CredUIPromptForCredentials]
  1849.   end;
  1850. end;
  1851. {$ELSE}
  1852. function CredUIPromptForCredentials; external credui name 'CredUIPromptForCredentialsA';
  1853. {$ENDIF DYNAMIC_LINK}
  1854. {$ENDIF}
  1856. {$IFDEF DYNAMIC_LINK}
  1857. var
  1858.   _CredUIParseUserNameW: Pointer;
  1860. function CredUIParseUserNameW;
  1861. begin
  1862.   GetProcedureAddress(_CredUIParseUserNameW, credui, 'CredUIParseUserNameW');
  1863.   asm
  1864.     mov esp, ebp
  1865.     pop ebp
  1866.     jmp [_CredUIParseUserNameW]
  1867.   end;
  1868. end;
  1869. {$ELSE}
  1870. function CredUIParseUserNameW; external credui name 'CredUIParseUserNameW';
  1871. {$ENDIF DYNAMIC_LINK}
  1873. {$IFDEF DYNAMIC_LINK}
  1874. var
  1875.   _CredUIParseUserNameA: Pointer;
  1877. function CredUIParseUserNameA;
  1878. begin
  1879.   GetProcedureAddress(_CredUIParseUserNameA, credui, 'CredUIParseUserNameA');
  1880.   asm
  1881.     mov esp, ebp
  1882.     pop ebp
  1883.     jmp [_CredUIParseUserNameA]
  1884.   end;
  1885. end;
  1886. {$ELSE}
  1887. function CredUIParseUserNameA; external credui name 'CredUIParseUserNameA';
  1888. {$ENDIF DYNAMIC_LINK}
  1889. {$IFDEF UNICODE}
  1891. {$IFDEF DYNAMIC_LINK}
  1892. var
  1893.   _CredUIParseUserName: Pointer;
  1895. function CredUIParseUserName;
  1896. begin
  1897.   GetProcedureAddress(_CredUIParseUserName, credui, 'CredUIParseUserNameW');
  1898.   asm
  1899.     mov esp, ebp
  1900.     pop ebp
  1901.     jmp [_CredUIParseUserName]
  1902.   end;
  1903. end;
  1904. {$ELSE}
  1905. function CredUIParseUserName; external credui name 'CredUIParseUserNameW';
  1906. {$ENDIF DYNAMIC_LINK}
  1907. {$ELSE}
  1909. {$IFDEF DYNAMIC_LINK}
  1910. var
  1911.   _CredUIParseUserName: Pointer;
  1913. function CredUIParseUserName;
  1914. begin
  1915.   GetProcedureAddress(_CredUIParseUserName, credui, 'CredUIParseUserNameA');
  1916.   asm
  1917.     mov esp, ebp
  1918.     pop ebp
  1919.     jmp [_CredUIParseUserName]
  1920.   end;
  1921. end;
  1922. {$ELSE}
  1923. function CredUIParseUserName; external credui name 'CredUIParseUserNameA';
  1924. {$ENDIF DYNAMIC_LINK}
  1925. {$ENDIF}
  1927. {$IFDEF DYNAMIC_LINK}
  1928. var
  1929.   _CredUICmdLinePromptForCredentialsW: Pointer;
  1931. function CredUICmdLinePromptForCredentialsW;
  1932. begin
  1933.   GetProcedureAddress(_CredUICmdLinePromptForCredentialsW, credui, 'CredUICmdLinePromptForCredentialsW');
  1934.   asm
  1935.     mov esp, ebp
  1936.     pop ebp
  1937.     jmp [_CredUICmdLinePromptForCredentialsW]
  1938.   end;
  1939. end;
  1940. {$ELSE}
  1941. function CredUICmdLinePromptForCredentialsW; external credui name 'CredUICmdLinePromptForCredentialsW';
  1942. {$ENDIF DYNAMIC_LINK}
  1944. {$IFDEF DYNAMIC_LINK}
  1945. var
  1946.   _CredUICmdLinePromptForCredentialsA: Pointer;
  1948. function CredUICmdLinePromptForCredentialsA;
  1949. begin
  1950.   GetProcedureAddress(_CredUICmdLinePromptForCredentialsA, credui, 'CredUICmdLinePromptForCredentialsA');
  1951.   asm
  1952.     mov esp, ebp
  1953.     pop ebp
  1954.     jmp [_CredUICmdLinePromptForCredentialsA]
  1955.   end;
  1956. end;
  1957. {$ELSE}
  1958. function CredUICmdLinePromptForCredentialsA; external credui name 'CredUICmdLinePromptForCredentialsA';
  1959. {$ENDIF DYNAMIC_LINK}
  1960. {$IFDEF UNICODE}
  1962. {$IFDEF DYNAMIC_LINK}
  1963. var
  1964.   _CredUICmdLinePromptForCredentials: Pointer;
  1966. function CredUICmdLinePromptForCredentials;
  1967. begin
  1968.   GetProcedureAddress(_CredUICmdLinePromptForCredentials, credui, 'CredUICmdLinePromptForCredentialsW');
  1969.   asm
  1970.     mov esp, ebp
  1971.     pop ebp
  1972.     jmp [_CredUICmdLinePromptForCredentials]
  1973.   end;
  1974. end;
  1975. {$ELSE}
  1976. function CredUICmdLinePromptForCredentials; external credui name 'CredUICmdLinePromptForCredentialsW';
  1977. {$ENDIF DYNAMIC_LINK}
  1978. {$ELSE}
  1980. {$IFDEF DYNAMIC_LINK}
  1981. var
  1982.   _CredUICmdLinePromptForCredentials: Pointer;
  1984. function CredUICmdLinePromptForCredentials;
  1985. begin
  1986.   GetProcedureAddress(_CredUICmdLinePromptForCredentials, credui, 'CredUICmdLinePromptForCredentialsA');
  1987.   asm
  1988.     mov esp, ebp
  1989.     pop ebp
  1990.     jmp [_CredUICmdLinePromptForCredentials]
  1991.   end;
  1992. end;
  1993. {$ELSE}
  1994. function CredUICmdLinePromptForCredentials; external credui name 'CredUICmdLinePromptForCredentialsA';
  1995. {$ENDIF DYNAMIC_LINK}
  1996. {$ENDIF}
  1998. {$IFDEF DYNAMIC_LINK}
  1999. var
  2000.   _CredUIConfirmCredentialsW: Pointer;
  2002. function CredUIConfirmCredentialsW;
  2003. begin
  2004.   GetProcedureAddress(_CredUIConfirmCredentialsW, credui, 'CredUIConfirmCredentialsW');
  2005.   asm
  2006.     mov esp, ebp
  2007.     pop ebp
  2008.     jmp [_CredUIConfirmCredentialsW]
  2009.   end;
  2010. end;
  2011. {$ELSE}
  2012. function CredUIConfirmCredentialsW; external credui name 'CredUIConfirmCredentialsW';
  2013. {$ENDIF DYNAMIC_LINK}
  2015. {$IFDEF DYNAMIC_LINK}
  2016. var
  2017.   _CredUIConfirmCredentialsA: Pointer;
  2019. function CredUIConfirmCredentialsA;
  2020. begin
  2021.   GetProcedureAddress(_CredUIConfirmCredentialsA, credui, 'CredUIConfirmCredentialsA');
  2022.   asm
  2023.     mov esp, ebp
  2024.     pop ebp
  2025.     jmp [_CredUIConfirmCredentialsA]
  2026.   end;
  2027. end;
  2028. {$ELSE}
  2029. function CredUIConfirmCredentialsA; external credui name 'CredUIConfirmCredentialsA';
  2030. {$ENDIF DYNAMIC_LINK}
  2031. {$IFDEF UNICODE}
  2033. {$IFDEF DYNAMIC_LINK}
  2034. var
  2035.   _CredUIConfirmCredentials: Pointer;
  2037. function CredUIConfirmCredentials;
  2038. begin
  2039.   GetProcedureAddress(_CredUIConfirmCredentials, credui, 'CredUIConfirmCredentialsW');
  2040.   asm
  2041.     mov esp, ebp
  2042.     pop ebp
  2043.     jmp [_CredUIConfirmCredentials]
  2044.   end;
  2045. end;
  2046. {$ELSE}
  2047. function CredUIConfirmCredentials; external credui name 'CredUIConfirmCredentialsW';
  2048. {$ENDIF DYNAMIC_LINK}
  2049. {$ELSE}
  2051. {$IFDEF DYNAMIC_LINK}
  2052. var
  2053.   _CredUIConfirmCredentials: Pointer;
  2055. function CredUIConfirmCredentials;
  2056. begin
  2057.   GetProcedureAddress(_CredUIConfirmCredentials, credui, 'CredUIConfirmCredentialsA');
  2058.   asm
  2059.     mov esp, ebp
  2060.     pop ebp
  2061.     jmp [_CredUIConfirmCredentials]
  2062.   end;
  2063. end;
  2064. {$ELSE}
  2065. function CredUIConfirmCredentials; external credui name 'CredUIConfirmCredentialsA';
  2066. {$ENDIF DYNAMIC_LINK}
  2067. {$ENDIF}
  2069. end.