[WanderAlone]

Сообщение от NumLock

What broke the input language messages?

Все оказалось не просто и я окончательно запутался.
Автор статьи предлагает использовать интерфейс ITfLanguageProfileNotifySink для получения ссобщейни об изменении языкового профайла. Окунувшись в MSDN, узнаем, что для этого нам необходимо получить объект от ITfSource, который, ы свою очередь мы получим из объекта другого интерфейса: ITfInputProcessorProfiles, путем вызова QueryInterface. Я решил начать с ITfInputProcessorProfiles. В Delphi XE2 он не реализован, к сожалению. Из того же MSDN узнаем, что получить указатель на этот интерыейс можно вызовом функции CoCreateInstance с параметром CLSID_TF_InputProcessorProfiles. Запускаем regedit и выясняем как выглядит GUID: HKEY_CLASSES_ROOT\CLSID\{33C53A50-F456-4884-B049-85FD643ECFED}.

Далее объявляю интерфейсы:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

const   { from Msctf.h }   {$EXTERNALSYM CLSID_TF_InputProcessorProfiles}   CLSID_TF_InputProcessorProfiles: TGUID = '{33C53A50-F456-4884-B049-85FD643ECFED}';   SID_InProcProfiles = '{33C53A51-F456-4884-B049-85FD643ECFED}';   type   {$EXTERNALSYM ITfInputProcessorProfiles}   ITfInputProcessorProfiles = interface(IUnknown)     [SID_InProcProfiles]     function Register(const clsid: TCLSID): HRESULT; stdcall;     function GetActiveLanguageProfile(const clsid: TCLSID;                                       var langid: DWORD;                                       var profile: TGUID                                       ): HRESULT; stdcall;   end;

И пытаюсь получить указатель:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

procedure MyProc(Sender: TObject); var   Status: HRESULT;   FLangId: DWORD;   FProfile: TGUID;   tfipProfiles: ITfInputProcessorProfiles ; begin   Coinitialize(nil);   tfipProfiles := nil;   Status := CoCreateInstance(CLSID_TF_InputProcessorProfiles,                              nil,                              CLSCTX_INPROC_SERVER,                              ITfInputProcessorProfiles,                              tfipProfiles);   if Status = S_OK then     try       tfipProfiles.Register(CLSID_TF_InputProcessorProfiles);     finally       tfipProfiles._Release;     end; end;

И ничего не получаю :-( То есть Status равен каком-то огромному отрацательному числу.
Может быть кто-нить подскажет, что я делаю не так?