var
Form1: TForm1;
h:thandle;
pro:function:integer;stdcall;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
try
h:=loadlibrary('Pcris.dll');
@pro:=getprocaddress(h,'show');//show過程是顯示一窗體
getprocaddress是com里固有的函数么?
@pro:=fn_passwd()
怎么不成????提示fn_passwd没有定义???
undeclared identifier:'fn_passwd'
Form1: TForm1;
h:thandle;
pro:function:integer;stdcall;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
try
h:=loadlibrary('Pcris.dll');
@pro:=getprocaddress(h,'show');//show過程是顯示一窗體
getprocaddress是com里固有的函数么?
@pro:=fn_passwd()
怎么不成????提示fn_passwd没有定义???
undeclared identifier:'fn_passwd'
请给个创建comobject 的例子
客户端如何导入类型库?
如果只知道com的接口函数可以进行客户端开发么?
[email protected]