Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.11.13;
Скачать: CL | DM;

Вниз

Не могу перевести 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]

UP


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

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


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

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



Страницы: 1 вся ветка

Текущий архив: 2003.11.13;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.022 c
9-40760
alexus
2003-05-05 13:05
2003.11.13
Интерфейс игровых меню


14-41898
Dima_dvp
2003-10-23 21:54
2003.11.13
К вопросу об оптимизации при работе с WinAPI


6-41802
LeNa19
2003-09-13 01:45
2003.11.13
как называется класс клиента в модуле winsock2 ?


1-41401
McSimm2
2003-11-04 16:41
2003.11.13
Событие в TMainMenu


1-41408
Stratos
2003-10-29 19:28
2003.11.13
установка фокуса формы из трея