高手在哪:
请发
请发
解决方案 »
- indy 邮件解码的问题!!utf8无法解决
- 获得运行参数
- 什么叫类的实例化,如何实例化
- 一个SPEEDBUTTON可以在多个EDIT中输入,而且光标会随着输入而跳到输入值后面一位?
- 朋友的QQ被盗了,我想写个键盘钩子给要回来,这段钩子代码怎么编译不过去呢?如果有别的好办法也可以,非常急!
- 晕,谁第一个解决我的问题,100分全给了。关于TStack的
- 在Delphi里怎么用SQLDMO对象
- 那里有oracle7的书阿
- 有关关闭form的问题,刚才没有说清楚
- 如何在第二个窗体中引用动态生成的第一个窗体的值
- 为什么只删除奇数行
- delphi 6 的DesignIntf,DesignWindows,DesignEditors问题
Implementation var Hwnd:THandle; Tmp:integer; procedure TForm1.Button1Click(Sender: TObject); begin Hwnd:=FindWindow('Shell_TrayWnd',nil); if Hwnd<>0 then ShowWindow(Hwnd,SW_HIDE); //隐藏任务栏 SystemParametersInfo(SPI_SCREEN SAVERRUNNING,1,@Tmp,0); //屏蔽系统热键 end;
msgina.dll的一个例子,可以屏蔽系统热键,要用VC写,这个DLL会变成mygina.DLL.AustinLei(黄瓜杀手) :
SystemParametersInfo(SPI_SCREEN,SAVERRUNNING,1,@Tmp,0); //屏蔽系统热键
这个只能在98下有效.............................