How to assign (or typecast) LongWord variable to OleVariant? I have following code:
var
dwID: DWORD; // = LongWord = Cardinal - unsigned 32Bit
var1, var2: OleVariant;
hMenu: HMENU; // = LongWord = Cardinal - unsigned 32Bit
....
When I try to assign:
var1 := hMenu;
var2 := dwID;
compiler (Delphi 5) gives warning: Constant expression violates subrange bounds.
This code is Based on C/C++ sample:
http://msdn.microsoft.com/
DWORD dwID;
CComVariant var1, var2;
HMENU hMenu;
...
V_VT(&var1) = VT_INT_PTR;
V_BYREF(&var1) = hMenu;
V_VT(&var2) = VT_I4;
V_I4(&var2) = dwID;
hr = spCT->Exec(&CGID_ShellDocV
************************
Also when I call Exec function in Delphi it does not execute properly:
hr := OleCommandTarget.Exec(@CGI
ALWAYS hr <> S_OK
Where:
OleCommandTarget: IOleCommandTarget;
Exec declaration:
function Exec(CmdGroup: PGUID; nCmdID, nCmdexecopt: DWORD;
const vaIn: OleVariant; var vaOut: OleVariant): HResult; stdcall;
const
CAddMenuExtensionsCommandI
OLECMDEXECOPT_DODEFAULT = 0;
I would be very gratefull for any suggestions.
This Question has been solved and asker verified All Experts Exchange premium technology solutions are available to subscription members.
Experts Exchange has been collecting answers to technology questions since 1996…3 million and counting! If you have a question, chances are we already have your answer.
If you can't find the exact answer you're looking for, ask our exclusive community of 50,000 experts. You’ll get a personalized answer from a trusted professional.
Thousands of free tech tips, tricks, how-to’s and tutorials are available in our peer reviewed articles section. See for yourself how smart our experts are, no login required.
Save solutions to your questions, answers you’ve discovered through searching plus helpful articles in your personal knowledgebase for easy future access.
Access the answers to your technology questions today.
30-day free trial. Register in 60 seconds.
Members of the expert community talk about why the experience at Experts Exchange is different than what you will find anywhere else.
Try it out and discover for yourself.
30-day free trial. Register in 60 seconds.
Join the community of experts here and help other tech pros by answering question in your area of expertise. You can earn FREE access to all Experts Exchange's premium features and resources.
Business Accounts
Answer for Membership
by: rllibbyPosted on 2009-02-23 at 06:26:01ID: 23711402
The typecasts would be as follows:
const
VT_INT_PTR = 37;
var
dwID: DWORD;
var1, var2: OleVariant;
h_Menu: HMENU;
begin
FillChar(var1, SizeOf(TVariantArg), 0);
FillChar(var2, SizeOf(TVariantArg), 0);
TVariantArg(var1).vt:=VT_I
TVariantArg(var1).byRef:=P
TVariantArg(var1).vt:=VT_I
TVariantArg(var1).lVal:=Lo
As to the Exec not working, what is the actual HRESULT value from the return? (saying it <> S_OK does not help much)
Regards,
Russell