E
estorm
Unregistered / Unconfirmed
GUEST, unregistred user!
如何实现在DirectX的程序中显示文本，就像游戏外挂一样<br>比如说传奇的外挂，在上面显示HP，MP等<br>我初步用了下面的方法（win2000上测试）<br>FHWnd:=FindWindow(nil,SMir3WindowCaption);//SSsjWindowCaption为传奇窗口Caption<br>if FHWnd=0 then exit;<br>FHDC:=GetDC(FHWnd);<br>FCanvas:=TCanvas.Create;<br>FCanvas.Handle:=FHDC;<br>SetBKMode(FCanvas.Handle,TRANSPARENT);<br>FCanvas.TextOut(10,10,'Hello World! Hello World!');<br>FreeAndNil(FCanvas);<br>DeleteDC(FHDC);<br><br>以上这段程序在一个线程中循环执行，但是会有这样的问题：<br>1。如果用Sync发现，根本不显示文本，线程阻塞掉了<br>2。如果用不用sync，会有闪烁的现象<br>请各位讨论讨论，那位高手有好的办法<br>
ointer;<br> FD:IDirectDraw;<br> sur:array [0..5] of dword;<br> i,j:integer;<br> bm:tbitmap;<br> Desc: TDDSurfaceDesc;<br> PID:Cardinal;<br>begin<br> result:=0;<br> if iCode<0 then<br> begin<br> CallNextHookEx(hnexthookproc,iCode,wParam,lParam);<br> result:=0;<br> Exit;<br> end;<br> if ((lParam and $80000000)=0) and<br> (GetKeyState(VK_LWIN)<0) and (wParam=$6a) then //热键：左win键+数字键盘*<br> begin<br> if getmodulehandle('ddraw.dll')<>0 then<br> if DirectDrawCreate(nil,FD,nil)=DD_OK then<br> begin<br> Messagebeep(0);<br> PID:=GetCurrentProcessId;<br> pp:=@fd;<br> a:=dword(pointer(dword(pp^)+8)^); //IDirectDraw<br> sur[0]:=dword(pointer(dword(pointer(a+4)^)+44)^); //point to PrimarySurface structure<br> b:=sur[0];<br> for i:=1 to 5 do<br> begin //point to backSurface structure<br> b:=dword(pointer(dword(pointer(dword(pointer(b+4)^)+12)^)+12)^);<br> if b<=0 then break;<br> if dword(pointer(dword(pointer(b+4)^)+24)^)<>PID then break;<br> if dword(pointer(b+12)^)<dword(pointer(sur[i-1]+12)^) then break;<br> sur:=b;<br> end;<br><br> j:=0;<br> begin<br> pp:=pointer(sur[j]);<br> ////////////1<br> asm //getdc<br> lea edx,dc<br> push edx<br> mov eax,pp<br> push eax<br> mov eax,[eax]<br> call [eax+$44]<br> mov d,eax<br> end;<br> if d<>DD_OK then<br> begin<br> fd:=nil;<br> exit;<br> end;<br> bm:=tbitmap.Create;<br> bm.Width:=GetDeviceCaps(dc,HORZRES);<br> bm.Height:=GetDeviceCaps(dc,VERTRES);<br> SetBKColor(dc,RGB(0,0,255));<br> SetTextColor(DC,RGB(255,255,0));<br> TextOut(dc,0,0,PChar('XYZAB'),5);<br>{ asm<br> push 0<br> push DDLOCK_WAIT or DDLOCK_READONLY<br> lea eax,desc<br> push eax<br> push 0<br> mov eax,pp<br> push eax<br> mov eax,[eax]<br> call [eax+$64]<br> end; }<br> bitblt(bm.Canvas.Handle,0,0,bm.Width,bm.Height,dc,0,0,SRCCOPY);<br>{ asm<br> @@a:<br> push 0<br> mov eax,pp<br> push eax<br> mov eax,[eax]<br> call [eax+$80]<br> cmp eax,0<br> jz @@a<br> end; }<br> bm.SaveToFile('C:/1.bmp');<br> bm.Free;<br> asm //releasedc<br> @@a:<br> lea edx,dc<br> push edx<br> mov eax,pp<br> push eax<br> mov eax,[eax]<br> call [eax+$68]<br> cmp eax,0<br> jz @@a<br> end;<br> end;<br><br> fd:=nil;<br> end;<br> result:=1;<br> end;<br>end;<br><br>function sethook:bool;export;<br>begin<br> result:=false;<br> if hnexthookproc<>0 then exit;<br> hNextHookProc := SetWindowsHookEx(WH_KEYBOARD,hookproc,HInstance,0); <br> Result := hNextHookProc <> 0;<br>end;<br><br>procedure hotkeyhookexit;<br>begin<br> if hNextHookProc <> 0 then endHook;<br> ExitProc := procSaveExit;<br>end;<br><br>function endhook:bool;export;<br>begin<br> if hNextHookProc <> 0 then<br> begin<br> UnhookWindowshookEx(hNextHookProc);<br> hNextHookProc := 0;<br> end;<br> Result := hNextHookProc = 0;<br>end;<br><br>end.<br>--------example project--------------<br>unit test;<br><br>interface<br><br>uses<br> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,<br> StdCtrls;<br><br>type<br> TForm1 = class(TForm)<br> Label1: TLabel;<br> Button1: TButton;<br> procedure Button1Click(Sender: TObject);<br> procedure FormClose(Sender: TObject; var Action: TCloseAction);<br> private<br> { Private declarations }<br> public<br> { Public declarations }<br> end;<br><br>var<br> Form1: TForm1;<br> Exit_Message:Cardinal;<br><br>implementation<br><br>{$R *.DFM}<br>function sethook:bool;external 'ptdll.dll';<br>function endhook:bool;external 'ptdll.dll';<br><br>procedure TForm1.Button1Click(Sender: TObject);<br>begin<br> if button1.Caption='HOOK!!' then<br> begin<br> sethook;<br> button1.Caption:='UNHOOK';<br> Label1.Caption:='HOOKED!!';<br> end<br> else<br> begin<br> endhook;<br> button1.Caption:='HOOK!!';<br> Label1.Caption:='UNHOOKED!!';<br> end<br>end;<br><br>procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);<br>begin<br> endhook;<br>end;<br><br>end.