全屏DirctX程序下弹出摸态窗口代码.docVIP

摘自,,,,HYPERLINK,,,,/delphibbs/dispq.asp?lid=2135796,,,,/delphibbs/dispq.asp?lid=2135796?一直有人问如何在DirectX全屏游戏中弹出窗口就象金山游侠一样.我答应过要给出原码,只是一直没有时间整理,不过现在总算是弄玩了.代码不长,大致作了些注释,但愿你能看懂:)按照我的说明一步步作应该就能成功,但有时可能不行,为什么?我也不知道,或许是你哪一步做错了,或者是Delphi的问题?天知道,但大多数时候按照我给出的步骤,这些代码应该能实现我们的目标.下面的代码经过了一定的测试,但并没有刻意设计保证程序兼容性和稳定性的代码,所以不能保证在所有的机器上正常运行.如果死机或者花屏了,那么很不幸它不适合你,在找些别人写的类似的代码吧(不过以前有人公开过类似的代码吗?如果有请mail给我:)试一试吧,希望我们能把它完善起来.{***************HOOK.DLL************FileName:Hook.dpr(The,,,,KEY,,,,unit,,,,to,,,,pop,,,,up,,,,a,,,,window,,,,in,,,,DX,,,,apps)Author:,,,,tTui,,,,or,,,,tt.t,,,,(As,,,,u,,,,like,,,,;)Feature:This,,,,unit,,,,contain,,,,the,,,,Demo,,,,codes,,,,for,,,,pop,,,,up,,,,an,,,,MODAL,,,,window,,,,in,,,,Apps,,,,which,,,,use,,,,exclusive,,,,directX,,,,fullscreen,,,,mode.Description:,,,,1.Uses,,,,KeyBoard,,,,hook,,,,to,,,,hook,,,,the,,,,hotkey.?,,,,?,,,,?,,,,?,,,,?,,,,?,,,,?2.Uses,,,,s0me,,,,tricks,,,,to,,,,get,,,,the,,,,*real*,,,,IDirectDraw,,,,pointer.?,,,,?,,,,?,,,,?,,,,?,,,,?,,,,?3.Call,,,,the,,,,*IDirectDraw.FilptoGDISurface*,,,,to,,,,make,,,,sure,,,,the,,,,poped,,,,up,,,,window,,,,could,,,,be,,,,seen.(See,,,,MSDN,,,,for,,,,the,,,,reason)?,,,,?,,,,?,,,,?,,,,?,,,,?,,,,?4.Uses,,,,GetMessage,,,,hook,,,,to,,,,hook,,,,the,,,,WM_TIMER,WM_SETFOCUS...,,,,messages.(Why?I,,,,dont,,,,want,,,,to,,,,tell,,,,u,,,,:),,,,Find,,,,the,,,,reason,,,,by,,,,urself)?,,,,?,,,,?,,,,?,,,,?,,,,?,,,,?5.The,,,,HotKey,,,,is,,,,Left,,,,WIN,,,,+,,,,NumPad,,,,*?,,,,?,,,,?,,,,?,,,,?,,,,?,,,,?6.Mute,,,,codes,,,,needed,,,,,but,,,,havnt,,,,wrote,,,,yet.?,,,,?,,,,?,,,,?,,,,?,,,,?,,,,?7.Complied,,,,with,,,,Delphi,,,,6.,,,,Tested,,,,under,,,,Win98SE,,,,,Win,,,,ME,,,,,Win,,,,2K,Win,,,,XP,,,,and,,,,Win,,,,2003.NET,,,,with,,,,DirectX,,,,89.Known,,,,Bugs:,,,,?1.Cannot,,,,repaint,,,,the,,,,background,,,,when,,,,the,,,,poped,,,,up,,,,window,,,,moved.?,,,,?,,,,?,,,,?,,,,?,,,,?,,,,?2.May,,,,crash,,,,when,,,,try,,,,to,,,,pop,,,,up,,,,from,,,,some,,,,games,,,,and,,,,apps.?,,,,?,,,,?,,,,?,,,,?,,,,?,,,,?3.Ca