动态调用DLL函数的方法

时间:2010-02-01 13:19:03  来源:第二电脑网  作者:第二电脑网

  第二电脑网导读:/>Tf: TIntFunc;  Tp: TFarProc;  begin    Th := LoadLibrary(pchar(DllName));     if Th > 0 then    try      Tp := GetProcAddress(Th, PChar(FunctionName));      if Tp <> n...
  正文:procedure ShowKSForm(DllName:string;FunctionName:STRING);  
type  
TIntFunc = function (apphandle: THandle): boolean;safecall;  
var  
Th: THandle;  
Tf: TIntFunc;  
Tp: TFarProc;  
begin  
  Th := LoadLibrary(pchar(DllName));  
  if Th > 0 then  
  try  
    Tp := GetProcAddress(Th, PChar(FunctionName));  
    if Tp <> nil  
    then begin  
      Tf := TIntFunc(Tp);  
      Tf(Application.Handle);  
    end  
    else  
    ShowMessage(FunctionName+'没有找到');  
    finally  
      FreeLibrary(Th);  
    end  
    else  
    ShowMessage('模块' + DllName + '未安装');  
  end;  
动态调用DLL函数的方法》由第二电脑网原创提供,转载请注明:http://www.002pc.com/master/College/Language/Delphi/12721.html


关键字:

关于《动态调用DLL函数的方法》文章的评论

站内搜索: 高级搜索

热门搜索: Windows style 系统 tr IP QQ CPU 安装 function 注册 if td