TopMost ?

[Sibedir]

Ну да, да. Наверное она самая.

[Smitt&Wesson]

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

Канва экрана, это не канва рабочего стола?

Близко, но не совсем так. Канва, может быть и не связана с отображением. Это, некая виртуальная область памяти, которую в последствии можно и отобразить визуально. При моделировании быстро меняющейся кортинки, что-бы экран не мерцал, используются две области с параметрами канвы. Просто после перерисовки, они переключаются. Как это делается программно, я знаю, а вот на аппаратном уровне, как-то не вникал.

[ResourceSpace]

гм... ну...

В любом случае у "окон" есть три уровня: NoActivate, Normal, TopMost - и "выше" быть не может.
Внутри каждого уровня окна размещаются относительно друг-друга по z-index.
И поведение программы "делать окно TopMost и каким-либо способом удерживать его на самом верхнем z-index" - это поведение вируса.

А обсуждение вирусов запрещено.

[Stilet]

Наверное она самая.

Помню, когда-то рисуя на канве рабочего стола (или отдавая ему в дочки окна) я делал их "всегда внизу". Поэтому и переспросил. Ну может ошибаюсь, ибо давно это было...

и "выше" быть не может.

Ну да. По крайней мере в колечке пользователя.

[Sibedir]

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

Слушайте, а я как-то баловался, часы делал. Правда это было на Delphi, но, думаю, не суть. Я цифры на конве экрана рисовал. Получалось поверх всех окон...

program Clock;

uses
  System.SysUtils, Winapi.Windows, Vcl.Graphics;

var
  MyCan: TCanvas;
  rabTime: TDateTime;
  Str: String;

begin
  MyCan := TCanvas.Create;
  while True do begin
    MyCan.Handle := GetDC(0);
    MyCan.Font.Name := 'WST_Swed';
    MyCan.Font.Size := 14;
    MyCan.Font.Color := clLime;
    MyCan.Brush.Color := clNone;
    rabTime := Time;
    str := TimeToStr (rabTime);
    MyCan.TextOut ((GetSystemMetrics (SM_CXVIRTUALSCREEN) - MyCan.TextWidth (Str)) div 2, 5, str);
    sleep (100);
  end;
  MyCan.Free;
end.

[Smogg]

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

program Clock;

uses
  System.SysUtils, Winapi.Windows, Vcl.Graphics;

var
  MyCan: TCanvas;
  rabTime: TDateTime;
  Str: String;

begin
  MyCan := TCanvas.Create;
  while True do begin
    MyCan.Handle := GetDC(0);
    MyCan.Font.Name := 'WST_Swed';
    MyCan.Font.Size := 14;
    MyCan.Font.Color := clLime;
    MyCan.Brush.Color := clNone;
    rabTime := Time;
    str := TimeToStr (rabTime);
    MyCan.TextOut ((GetSystemMetrics (SM_CXVIRTUALSCREEN) - MyCan.TextWidth (Str)) div 2, 5, str);
    sleep (100);
  end;
  MyCan.Free;
end.

игрушки в режиме full-screen не позволяют рисовать на себе таким макаром? Нормально только на "рабочем столе" отрабатывает?