如果在delphi中调用com,而com下的函数的入参为空的话,使用的时候,不用加最后的括号
例如:
在uses中添加Comobj
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Comobj;
调用无入参函数不加括号GetVersion
procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
x:integer;
imcom: Variant;
arrValue: string;
begin
s:= '你确定此操作吗?';
x:=MessageBox(0, '你确定此操作吗?', '询问',MB_OKCANCEL);
imcom := CreateOleObject('XXXXX.XXXXX.1');
arrValue := imcom.GetVersion;//结果正确。
MessageBox(0, Pansichar(arrValue), '询问',MB_OKCANCEL);
end;
end.