|
 |
栏目导栏 |
|
| |
|
|
|
|
|
资料搜索 |
|
| |
|
|
|
|
|
热门文章 |
|
| |
|
|
|
|
|
最新文章 |
|
| |
|
|
|
| |
| |
|
|
|
|
procedure ShowKSForm(DllName:string;FunctionName:STRING); 7NuLinux联盟
type 7NuLinux联盟
TIntFunc = function (apphandle: THandle): boolean;safecall; 7NuLinux联盟
var 7NuLinux联盟
Th: THandle; 7NuLinux联盟
Tf: TIntFunc; 7NuLinux联盟
Tp: TFarProc; 7NuLinux联盟
begin 7NuLinux联盟
Th := LoadLibrary(pchar(DllName)); 7NuLinux联盟
if Th > 0 then 7NuLinux联盟
try 7NuLinux联盟
Tp := GetProcAddress(Th, PChar(FunctionName)); 7NuLinux联盟
if Tp <> nil 7NuLinux联盟
then begin 7NuLinux联盟
Tf := TIntFunc(Tp); 7NuLinux联盟
Tf(Application.Handle); 7NuLinux联盟
end 7NuLinux联盟
else 7NuLinux联盟
ShowMessage(FunctionName+'没有找到'); 7NuLinux联盟
finally 7NuLinux联盟
FreeLibrary(Th); 7NuLinux联盟
end 7NuLinux联盟
else 7NuLinux联盟
ShowMessage('模块' + DllName + '未安装'); 7NuLinux联盟
end;
Linux联盟收集整理 ,转贴请标明原始链接,如有任何疑问欢迎来本站Linux论坛讨论 |
|
|
|
|
|
