Rysowanie po oknie gry

0

Witam ! Chciałbym wyświetlić pewien napis na oknie gry ( Call of Duty 4 ) Napisałem procedure lecz nie działa moglibyście rzucić na to okiem ?

procedure DrawString(Context: hdc; X,Y: integer; COLOR: colorref; CENTER: bool; TEXT: char);
begin

end;

I w Taimerze wstawiłem

 procedure TForm8.Timer2Timer(Sender: TObject);
begin
if GetProcessId('iw3mp.exe', PidID, 1) then
begin
StatusBar.Panels[0].Text := 'Wykryto Call of Duty 4';
  WriteArray($00445480,W_OFF);
     WriteArray($00456E78,L_OFF);
        WriteArray($00457CCF,NR_OFF);
               DrawString(dc, 500, 400, ColorToRGB(clBlue), true, 'h');
           DrawString(dc, 500, 400, ColorToRGB(clBlue), true, 'h');
           DrawString(dc, 500, 400, ColorToRGB(clBlue), true, 'h');
           DrawString(dc, 500, 400, ColorToRGB(clBlue), true, 'h');



end else
StatusBar.Panels[0].Text := 'Nie wykryto CoD4 !';
end;

gdzie

 dc : HDC;
0
  WriteArray($00445480,W_OFF);
  WriteArray($00456E78,L_OFF);
  WriteArray($00457CCF,NR_OFF);

Co to jest? Co to za magiczne wartości? I skąd się u ciebie bierze dc?

0

WriteArray to funkcja odpowiadająca za wpisanie do odpowiedniego adresu pamięci danej wartosci bajtów przypisanych kluczami ( N_OFF - NameTagi Wyłączone ) itd. dc - właśnie aktywny handle? tak mi sie wydawało jeżeli gdzieś jest błąd bardzo bym prosił o poprawienie mnie - i czy może po prostu zacząć to rysować używająć Canvas... itd.

Pozdrawiam

1 użytkowników online, w tym zalogowanych: 0, gości: 1