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;