i'm trying to call CredWrite, but it is returning ERROR_INVALID_FUNCTION. i can call CredRead to fetch credentials out of the password store, and i can store new credentials by using CredUIPromptForCredentials.
But i cannot figure out how to get CredWrite to work.
The code i'm using is:
var
   Target, Username, Password: WideString;
begin
   Target := 'StackOverflowSomething';
   Username := 'IanBoyd'; 
   Password := 'password69';
   ZeroMemory(@Credentials, SizeOf(Credentials));
   Credentials.TargetName := PWideChar(Target);
   Credentials.Type_ := CRED_TYPE_GENERIC;
   Credentials.UserName := PWideChar(Username);
   Credentials.Persist := CRED_PERSIST_ENTERPRISE;
   Credentials.CredentialBlob := PByte(Password);
   Credentials.CredentialBlobSize := 2*(Length(Password));
   Credentials.UserName := PWideChar(Username);
   if not CredWriteW(@Credentials, 0) then
      RaiseLastWin32Error;
And GetLastError is returning 1 (ERROR_INVALID_FUNCTION)
Is this function incorrect? It's not even returning ERROR_INVALID_PARAMETER, it's returning "Incorrect function". What is incorrect?
Is there any sample code out there that calls CredWrite?
Notes
- i've tried calling the Ansi version (CredWriteA), same result
 - i've tried using 
CRED_PERSIST_SESSIONandCRED_PERSIST_LOCAL_MACHINE, in addition toCRED_PERSIST_ENTERPRISE