sapi: Implement ISpObjectToken::CreateKey.

dlls/sapi/tests/token.c

@@ -513,6 +513,10 @@ static void test_object_token(void)
     hr = ISpObjectToken_SetId( token, NULL, test_token_id, TRUE );
     ok( hr == S_OK, "got %08lx\n", hr );
 
+    hr = ISpObjectToken_CreateKey( token, L"Attributes", &sub_key );
+    ok( hr == S_OK, "got %08lx\n", hr );
+    ISpDataKey_Release( sub_key );
+
     hr = ISpObjectToken_SetStringValue( token, L"CLSID", TESTCLASS_CLSID );
     ok( hr == S_OK, "got %08lx\n", hr );
 

dlls/sapi/token.c

@@ -1117,8 +1117,11 @@ static HRESULT WINAPI token_OpenKey( ISpObjectToken *iface,
 static HRESULT WINAPI token_CreateKey( ISpObjectToken *iface,
                                        LPCWSTR name, ISpDataKey **sub_key )
 {
-    FIXME( "stub\n" );
-    return E_NOTIMPL;
+    struct object_token *This = impl_from_ISpObjectToken( iface );
+
+    TRACE( "%p, %s, %p\n", iface, debugstr_w(name), sub_key );
+
+    return ISpRegDataKey_CreateKey( This->data_key, name, sub_key );
 }
 
 static HRESULT WINAPI token_DeleteKey( ISpObjectToken *iface,