Отрисовка пикселей поверх всех окон

[TilerDerton]

Добрый день.

Использую следующий код (нашел в похожей теме на форуме) для отрисовки прицела в игре:

procedure TForm1.Button1Click(Sender: TObject);
var
  c: TCanvas;
begin
  while 1>0 do
    begin
    c := TCanvas.Create;
    c.Handle := GetDC(GetWindow(GetDesktopWindow, GW_OWNER));
    C.Pixels [640, 512]:= clRed;
    C.Pixels [640, 511]:= clRed;
    C.Pixels [640, 513]:= clRed;
    C.Pixels [641, 512]:= clRed;
    C.Pixels [639, 512]:= clRed;
    c.free;
    application.ProcessMessages;
    end;

end;

Практически на всех приложениях "крестик" виден, а игра его игнорирует. Но! Игнорирует только в полноэкранном режиме, в окне все в порядке. В чем может быть проблема?

Заранее спасибо.

[p51x]

Игра использует ДиректХ

[TilerDerton]

Сообщение от p51x

Игра использует ДиректХ

Другие игры его тоже используют, но в них прицел виден. Кроме того, проблема появляется только в полноэкранном режиме.
Может это важно - игра PointBlank.

Вариант на Апи, найденный в интернете тоже не работает поверх игры.

program AP;


uses
  Windows;
  var ScreenDC:HDC;
  x,y,t,i:integer;
begin
i:=0;
ScreenDC:=GetDC(0);
While i<500 do
begin
x:=640;
Y:=512;
t:=3;
Ellipse(ScreenDC,x,y,x+t,y+t);
Sleep(1);
end;
end.

[DomiNick]

Полноэкранный режим у DirectX - это не то же самое что форма без рамки во весь экран поверх всех окон...
При нём и не должно рисоваться...

для отрисовки прицела в игре

Это делается совершенно по другому...

[TilerDerton]

Сообщение от DomiNick

Это делается совершенно по другому...

Может скажете, в какую сторону глядеть?