[infopol]

Как создать ComObj используя CreateComObject?

LIBID_Scaner: TGUID = '{30BDCD3D-FF71-46DD-931F-0C85D2FD6BFE}';

IID_IStandart: TGUID = '{9EE812C6-E98F-11D2-AF3E-0000E8DBEDCE}';
DIID_IScanerEvents: TGUID = '{691870D6-592F-11D3-B029-0000E8DBEDCE}';
IID_IScaner3: TGUID = '{691870D5-592F-11D3-B029-0000E8DBEDCE}';
CLASS_Scaner45: TGUID = '{691870D7-592F-11D3-B029-0000E8DBEDCE}';
делал :

Код:

 ComObj:=CreateComObject(LIBID_Scaner);
/// Далее хочу получить свойство 
ShowMessage( ComObj.Version);
// и тут ошибка не является объектом автоматизации

[lmikle]

Для начала, а какого типа у тебя переменная ConObj. Случаем не OleVariant?
Кстати, CreateComObject ожидает CLSID на входе.

Вообще, я бы сказал, что твой код должен выглядеть как то так:

Код:

var
  scaner : IScaner3;
begin
  scaner := CreateComObject(CLASS_Scaner45) as IScaner3;
  ShowMessage(scaner.Version);

Может вместо IScaner3 надо использовать IStandart, но это ты уже по документации смотри. Я не знаю что за либу ты пытаешься использовать.

[infopol]

Попробую.Просто я не спец в Delphi

[lmikle]

Да тут не Делфи. Фактически тут голый COM API, просто в синтаксисе паскаля.

[infopol]

Приветствую! Нужно программно отключать и включать события клавиатуры,да любого HID устройства.

[lmikle]

Ну глянь вот это:
https://stackoverflow.com/questions/...keyboard-mouse
Может подойдет

И вот тут глянь тоже:
https://stackoverflow.com/questions/...hi-application