Не могу перевести C++ код на Delphi

← →
vic_vm (2003-10-25 20:29) [0]

Добрый день. Есть код на C++
-----------------------------------------------------------------
HRESULT hr;
CComVariant var1, var2;
DWORD dwID
HMENU hMenu;
...
V_VT(&var1) = VT_INT_PTR;
V_BYREF(&var1) = hMenu;

V_VT(&var2) = VT_I4;
V_I4(&var2) = dwID;

hr = CommandTarg->Exec(&CGID_ShellDocView, SHDVID_ADDMENUEXTENSIONS, 0, &var1, &var2);
-----------------------------------------------------------------
Перевожу его на делфи так
var
var1, var2: OleVariant;
MyMenu : HMENU;
dwID : DWORD;
...
TVariantArg(var1).vt := VT_INT_PTR;
TVariantArg(var1).byref := @MyMenu;

TVariantArg(var2).vt := VT_I4;
TVariantArg(var2).lVal := dwID;

CommandTarg.Exec(@CGID_ShellDocView, SHDVID_ADDMENUEXTENSIONS, 0, var1, var2);
Но почему-то не работает.
Может я что-то неправильно делаю с вариантами?

← →
vic_vm (2003-10-26 11:48) [1]

← →
крот (2003-10-26 16:04) [2]

А что значит "не работает"? То есть что ты получаешь и что ожидаешь получить?

← →
Nikolay M. (2003-10-26 16:54) [3]

Чисто по аналогии:
почему &CGID_ShellDocView и @CGID_ShellDocView
, но
&var1 и var1
?

Не могу перевести C++ код на Delphi Найти похожие ветки