Главная страница
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.04 c
14-42026
Сатир
2003-10-16 16:06
2003.11.13
Wanted!


1-41231
Pomashok
2003-11-01 11:18
2003.11.13
Hint


6-41845
Dennisius
2003-09-12 10:40
2003.11.13
ErrorCode (ClientSocket)


4-42269
miguel1
2003-09-08 16:45
2003.11.13
Программирование голосовых функций модема при помощи TAPI


4-42312
wwolf
2003-09-05 09:17
2003.11.13
Блокировка спящего режима