如何屏蔽 系统的 WIN(就是哪个有WINDOWS图标的毽子)

智商无下限 2002-11-26 01:54:03
我是这么做的,可是什么效果都没有:我应该怎么办呀??
procedure a(var msg:Tmessage); message wm_hotkey;//函数声明
........
procedure TForm1.FormCreate(Sender: TObject);
begin
id:=GlobalAddAtom('dir');
registerhotkey(handle,id,Mod_win,0);
end;
.........................
procedure tform1.a(var msg:tmessage);
begin
if msg.WParamLo=mod_win then
msg.Result:=0;
end;

...全文
24 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
Taken 2003-01-27
  • 打赏
  • 举报
回复
Win98下有效
var
n: Integer;
begin
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, @n, 0);

end;
happyzsl 2002-11-28
  • 打赏
  • 举报
回复
http://expert.csdn.net/Expert/topic/1209/1209807.xml?temp=.2132532

1,183

社区成员

发帖
与我相关
我的任务
社区描述
Delphi Windows SDK/API
社区管理员
  • Windows SDK/API社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧