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

摘自/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.Cannot show the cursor in some games.? ? ? ? ? ? ?4.May minimize the main App, when try to pop up the window.? ? ? ? ? ? ?5.Many more...but unknown yet...MY MAIL: ttui@163.comBTW, if u want to pop up an MODALLESS window, u should write the codes all by urself.*DO NOT* ask me for that.***********************************}library Hook;uses? SysUtils,? Classes,? Windows,? Messages,? Dialogs,? DirectDraw, ?//*Modified* Jedis DirectX header file for Delphi.? FormUnit in FormUnit.pas {Form1}; ?//The unit contains the popup window.{$R *.res}type? PHookRec = ^THookRec;? THookRec = record?