var
Moudle: THandle;
PFunc: TFarProc;
begin
Moudle:=loadlibrary('stock.dll');
edit1.text:=inttostr(Moudle);
if Moudle>32 then
begin
PFunc:=GetProcAddress(Moudle,'GetStockByCode');
if PFunc=nil then RaiseLastWin32Error;
end;
if Moudle=0 then showmessage('文件没有发现');
PFunc();
Freelibrary(Moudle);
end;
Moudle: THandle;
PFunc: TFarProc;
begin
Moudle:=loadlibrary('stock.dll');
edit1.text:=inttostr(Moudle);
if Moudle>32 then
begin
PFunc:=GetProcAddress(Moudle,'GetStockByCode');
if PFunc=nil then RaiseLastWin32Error;
end;
if Moudle=0 then showmessage('文件没有发现');
PFunc();
Freelibrary(Moudle);
end;
@PFunc:=GetProcAddress(Moudle,'GetStockByCode');
const
BadDllLoad = 0;
{$ELSE}
const
BadDllLoad = 32;
{$ENDIF}
FOREVERYDAY007大人说什么!?