begin
iMy:=GetProcAddress(H, 'Imy');
// ^^^
if Assigned(iMy) then
iMy();
end;
iMy:=GetProcAddress(H, 'Imy');
// ^^^
if Assigned(iMy) then
iMy();
end;
解决方案 »
- delphi 取存储过程值 不会弄,请帮帮忙!
- 我编译时少了个文件:frxDBSet.dcu,请哪位copy给我一个frxDBSet.pas文件
- 为什么我ADO连接accsee数据库:但就是不显示数据,只显示网格
- 求助:请问各位大侠,DBEDIT的问题绑定后,如何
- 都进来看看
- 怎样把一个浮点型,只需要二位数的浮点数.比如0.23624而我要0.24,有这样的函数吗??
- 如何用delphi删除文件?
- 如何从dbgrid中取出数据?
- 如何让程序在windows启动时,自动运行
- 救命啊!为什么不能写文件?!
- 又一个关于installshield professional的奇怪问题!
- 如何在数据中增加空记录--新手
希望你能这样写!
function Imy():integer;export;StdCall;
var
f : TForm1;
begin
f:=TForm1.Create(nil);
try
f.ShowModal;
finally
f.Free;
end;
result:=1;
end;
完全同意liang_z(千山一刀之忍者神龟) ,
不过最好用FreeAndNil(f);