这样写不对么！？

Question

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;

Answer 1

PFunc:=GetProcAddress(Moudle,'GetStockByCode');改为：
@PFunc:=GetProcAddress(Moudle,'GetStockByCode');

Answer 2

你的条件为什么是Moudle大于32而不是大于0，不是很明白。

Answer 3

{$IFDEF WIN32}
const
  BadDllLoad        = 0;
{$ELSE}
const
  BadDllLoad        = 32;
{$ENDIF}

Answer 4

^&%$*($#$%#%(
FOREVERYDAY007大人说什么！？