请帮我解释下下面这小段代码的含义``(30分)

  • 主题发起人 主题发起人 wxj9527
  • 开始时间 开始时间
W

wxj9527

Unregistered / Unconfirmed
GUEST, unregistred user!
procedure DisableProcessWindowsGhosting;
var
_DisableProcessWindowsGhostingImp : procedure;
begin
//$ML-
@_DisableProcessWindowsGhostingImp := GetProcAddress(GetModuleHandle('user32.dll'), 'DisableProcessWindowsGhosting');
//$ML+
if @_DisableProcessWindowsGhostingImp <> nil then
begin
_DisableProcessWindowsGhostingImp;
end;
end;
 
procedure DisableProcessWindowsGhosting;
var
_DisableProcessWindowsGhostingImp : procedure;
//定义 _DisableProcessWindowsGhostingImp 为过程变量
begin
//$ML-
@_DisableProcessWindowsGhostingImp := GetProcAddress(GetModuleHandle('user32.dll'), 'DisableProcessWindowsGhosting');
//@_DisableProcessWindowsGhostingImp 设置过程为 user32.dll 中的过程
//$ML+
if @_DisableProcessWindowsGhostingImp <> nil then
//若过程存在, 则执行
begin
_DisableProcessWindowsGhostingImp;
end;
end;
 
意思是执行'user32.dll'中的DisableProcessWindowsGhosting过程吗？？
何不直接调用user32.dll的DisableProcessWindowsGhosting？？
这样写有什么好处？？
 
有可能 user32.dll 中没有这个过程, 这样写的话, 不会报错. 静态调用的话, 若过程不存在,就会异常, 程序不能执行.
 
安全
 
能不能详细讲解下delphi中的过程变量？
 
查一下 动态调用 dll , 学习学习去, 咋感觉啥都不懂呢?
 
接受答案了.
 
您必须登录或注册才可回复。

Similar threads

Ray
[转]终于可以发布Delphi下收点OSGI精髓皮毛而设计的插件框架WisdomPluginFramework
回复
4
查看
4K
chlkuei
C
L
帮忙解释一段代码，关于托盘图标的(50分)
回复
7
查看
206
lcl_003
L
H
获取屏幕颜色数的代码在windows98下失效(100分)
回复
11
查看
367
jsxjd
J
Y
初学，帮忙注释一下代码，谢谢！(20分)
回复
12
查看
285
yangh888
Y
D
这里有一段源代码，请高手解答一下我的问题！！！(0分)
回复
5
查看
245
xingyankai
X
后退
顶部