G
goodman
Unregistered / Unconfirmed
GUEST, unregistred user!
var libhandle:thandle;
autocreate:tautocreate;
begin
libhandle:=loadlibrary('auto.dll');
try
if libhandle=0 then
raise edllloaderror.create('unload auto.dll');
@autocreate:=getprocaddress(libhandle,'autocreate');
if not(@autocreate=nil) then
//好象@autocreate得nil,可AUTOCREATE(a:tadoquery)过程是在auto.dll中有的呢
begin
showmessage('bb');
autocreate(datamodule2.adoquery1);
end
else
raiselastwin32error;
finally
freelibrary(libhandle);
end;
end;
autocreate:tautocreate;
begin
libhandle:=loadlibrary('auto.dll');
try
if libhandle=0 then
raise edllloaderror.create('unload auto.dll');
@autocreate:=getprocaddress(libhandle,'autocreate');
if not(@autocreate=nil) then
//好象@autocreate得nil,可AUTOCREATE(a:tadoquery)过程是在auto.dll中有的呢
begin
showmessage('bb');
autocreate(datamodule2.adoquery1);
end
else
raiselastwin32error;
finally
freelibrary(libhandle);
end;
end;