我在打游戏的时候，希望通过键值来执行自己的程序，可是当我的程序窗口打开时，游戏自动被最小化了。请问如何解决！(20分)

inbreak · 2003-01-14

我在打游戏的时候，希望通过键值来执行自己的程序， 可是当我的程序窗口打开时，游戏自动被最小化了。请问如何解决！ 哦，对了。就象现在的网络游戏外挂那样。。可以，程序窗口浮在游戏窗口上面 而仍然可以观看游戏情况。 肯求解答。由于我是初学者，所以请各位大侠详细一点点说明怎么样做或给出完整的代码。 谢谢！！！！

inbreak · 2003-01-14

在线等待中~~~~~~~~~~~~~~~~~~~~~~~~~~

inbreak · 2003-01-14

在线等待中~~~~~~~~~~~~~~~~~~~~~~~~~~

coolbaby · 2003-01-14

你的程序可以不必悬浮在前面 在后台接收消息并处理就可以了

inbreak · 2003-01-14

如果我做游戏游戏修改程序呢？？ 要象金山游戏那样，窗口切来切去吗？？ 不能象一些现在的网络游戏一样。。。随时执行呀进行修改。。

inbreak · 2003-01-15

在线等待中~~~~~~~~~~~~~~~~~~~~~~~~~~

xf-wangyi · 2003-01-15

你在做外挂？

ttcx · 2003-01-16

全局hook+dll中调用form

inbreak · 2003-01-16

在线等待中~~~~~~~~~~~~~~~~~~~~~~~~~~~

tt.t · 2003-01-17

转贴： 标题:金山游侠在DxDraw中显示大露秘密! (818字) 发信人:柯南[CCG] 显示一个对话框用api: DialogBox或其他. msdn中的描述: int DialogBox(   HINSTANCE hInstance,  // handle to application instance   LPCTSTR lpTemplate,  // identifies dialog box template   HWND hWndParent,      // handle to owner window   DLGPROC lpDialogFunc  // pointer to dialog box procedure ); ,看了看,如果搞顶其中的hInstance(就是你的dll,不用找了)和WndParent(程序的主窗口). 不就行了吗. 好了,你只要可以hook到CreateWindow或....Ex函数就可以搞到hWnd了, 如何hook这个API?不能用一般的方法,因为CreateWindow之前还没建立窗口,所以我们 用特殊的方法,在目标程序运行前,先执行loadlibrary(ourdll)就行了.具体代码挺难 写,不过肯定行的. 对了,以前有个朋友说不行,我认为就是没有找到hwnd的原因. 找hwnd还有其他一些非hook的方法,不过不建议用,因为不能通用! 其实hwnd可以用GetForegroundWindow来找连hook都省了. 狗屁技术,计算机充满了炮末!

inbreak · 2003-01-18

我试试

tt.t · 2003-01-19

[

]5555。。。 贴了90%的贴子，被一个非法操作就给over了。 那就再写一遍吧。 问题基本搞定，不一定要用dialgobox,关键是要现实的窗体的parnet必须要设成 游戏的窗体。这样就可以弹出自己的窗体，而游戏的窗体也不会最小化了。 我写了一个，w2k+delphi6+q3a测试通过。 代码比较乱，注意看注释。 热键是左边的win建加小键盘上得*建 ps,别忘了给分。[

] //--------------App part start---------------- //form上放两个button. //Copyright by tt.t(ttui) @2k+3.1.19@bit unit test; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   StdCtrls; type   TForm1 = class(TForm)     Button1: TButton;     Button2: TButton;     procedure Button1Click(Sender: TObject);     procedure Button2Click(Sender: TObject);     procedure FormDestroy(Sender: TObject);     procedure FormCreate(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1; implementation {$R *.DFM} function sethook:bool;external 'ptdll.dll'; function endhook:bool;external 'ptdll.dll'; procedure TForm1.Button1Click(Sender: TObject); begin //if  sethook;  // then showmessage('Hook Successful'); end; procedure TForm1.Button2Click(Sender: TObject); begin //if endhook; // then showmessage('Unhook Successful!!'); end; procedure TForm1.FormDestroy(Sender: TObject); begin //endhook; end; procedure TForm1.FormCreate(Sender: TObject); begin //sethook; end; end. //--------------App part end------------------ //--------------DLL part start------------------ //--------------library project------------------ library ptdll; uses   SysUtils,   Classes,   Windows,   Messages,   dll_vol in 'dll_vol.pas',   dia in 'dia.pas' {Form1}; {$R *.RES} exports sethook,endhook; begin hNextHookProc := 0; procSaveExit := ExitProc; ExitProc := @HotKeyHookExit; end. //-------------------dll_vol unit----------------------- unit dll_vol; interface uses Windows,Messages,Dialogs,Sysutils,dia; var   hNextHookProc: HHook;   procSaveExit: Pointer;   function sethook:bool;export;   function hookproc(iCode:Integer;wParam: WPARAM;lParam: LPARAM): LRESULT; stdcall;   function endhook:bool;export;   procedure HotKeyHookExit;far; implementation function HookProc(iCode: integer; wParam: wParam; lParam: lParam): LResult; stdcall; var   hwnd:dword;   AppRect:TRect;   title

char; //  dc:hdc; begin   result:=0;     if iCode<0 then     begin       CallNextHookEx(hnexthookproc,iCode,wParam,lParam);       result:=0;       Exit;     end; {     dc:=getdc(0);     textout(dc,20,20,pchar(inttohex(wparam,3)),3);     releasedc(0,dc); }   if ((lParam and $80000000)=0) and      (GetKeyState(VK_LWIN)<0) and (wParam=$6a) then   begin     Messagebeep(0);     hwnd:=getforegroundwindow;     try       GetMem(title,255);       getwindowtext(hwnd,title,255);       if title<>'_Msg_Dx_' then       begin         try           form1:=TForm1.CreateParented(hwnd);           GetWindowRect(hwnd,AppRect);           form1.Left:=(AppRect.Right-AppRect.Left) div 2;           form1.Top:=(AppRect.Bottom-AppRect.Top) div 2;           form1.Caption:='_Msg_Dx_';           form1.ShowModal;         finally           form1.Free;         end;       end;     finally       FreeMem(title);     end;     result:=1;   end; end; function sethook:bool;export; begin   result:=false;   if hnexthookproc<>0 then exit;   hNextHookProc := SetWindowsHookEx(WH_KEYBOARD,hookproc,HInstance,0);   Result := hNextHookProc <> 0; end; procedure hotkeyhookexit; begin   if hNextHookProc <> 0 then endHook;   ExitProc := procSaveExit; end; function endhook:bool;export; begin   if hNextHookProc <> 0 then   begin     UnhookWindowshookEx(hNextHookProc); // 解除 Keyboard Hook     hNextHookProc := 0;   end;   Result := hNextHookProc = 0; end; end. //----------------dia unit------------------- //注意！！form的borderstyle必须设成bsdialog！！ unit dia; interface uses   Windows, Messages, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls; type   TForm1 = class(TForm)     Button1: TButton;   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1; implementation {$R *.dfm} end. //--------------DLL part end------------------

inbreak · 2003-01-19

接受答案了.

138075 · 2003-11-24

to tt.t   你好,我用你的代码,在游戏中可以呼出窗体,但是游戏就静止不动了 我把form1.showmodal改成form1.show,结果窗体一呼出来马上就不见 了,请问如何解决窗体呼出后游戏还继续运行?

lsaturn · 2003-11-25

你要把窗口的扩展风格设置在最前面!

lsaturn · 2003-11-25

不要用模式窗口,否则要等待窗口返回,用无模式的,并且设置风格在最前面!

X J F · 2004-01-16

你好,我用你的代码,在游戏中可以呼出窗体,但是游戏就静止不动了 我把form1.showmodal改成form1.show,结果窗体一呼出来马上就不见 了,请问如何解决窗体呼出后游戏还继续运行? 来自：lsaturn, 时间：2003-11-25 9:46:00, ID：2315071 你要把窗口的扩展风格设置在最前面!   来自：lsaturn, 时间：2003-11-25 10:01:00, ID：2315112 不要用模式窗口,否则要等待窗口返回,用无模式的,并且设置风格在最前面 --------------------------- 我也出现上面的问题,这个无模式窗口要怎么设?? 我把formstyle 设成 StayOnTop了,但还是不行.

李艾 · 2004-05-29

form1.create(slef); form1.show;

我在打游戏的时候，希望通过键值来执行自己的程序，可是当我的程序窗口打开时，游戏自动被最小化了。请问如何解决！(20分)

inbreak

Unregistered / Unconfirmed

inbreak

Unregistered / Unconfirmed

inbreak

Unregistered / Unconfirmed

coolbaby

Unregistered / Unconfirmed

inbreak

Unregistered / Unconfirmed

inbreak

Unregistered / Unconfirmed

xf-wangyi

Unregistered / Unconfirmed

ttcx

Unregistered / Unconfirmed

inbreak

Unregistered / Unconfirmed

tt.t

Unregistered / Unconfirmed

inbreak

Unregistered / Unconfirmed

tt.t

Unregistered / Unconfirmed

inbreak

Unregistered / Unconfirmed

138075

Unregistered / Unconfirmed

lsaturn

Unregistered / Unconfirmed

lsaturn

Unregistered / Unconfirmed

X J F

Unregistered / Unconfirmed

李艾

Unregistered / Unconfirmed

Similar threads