Визуальный эффект

[Bat{CMD}_Men]

Если нажать пуск->Выключение.
То появится окно выключения ПК, А все вокруг станет черно белым.
Как добиться такого эффекта в своем приложении.

[raxp]

как вариант- делайте скрин экрана, преобразуйте в ч-б

type
 TRGB=record
 b,g,r : byte;
end;
type
  ARGB=array [0..1] of TRGB;
  PARGB=^ARGB;
procedure BlackWhite(image: tbitmap; gray: boolean);
var i,j,c: integer;
    p: PARGB;
begin
 image.PixelFormat:= pf24bit;
 for i:=0 to image.Height-1 do begin
  p:= image.ScanLine[i];
  for j:= 0 to image.Width-1 do begin
   c:= round(0.3*p[j].r+0.59*p[j].g+0.11*p[j].b);
   if not gray then //градации серого
    if c >= 128 then c:= 255 else c:= 0;
   p[j].r:= c;
   p[j].g:= c;
   p[j].b:= c
  end
 end
end;

и выводите изображение поверх всего, например второй формой...

[TwiX]

Была такая идея, но альт-табом сбивается =\
PARGB=^ARGB; - зачем это?

[raxp]

Была такая идея, но альт-табом сбивается =\

- поставьте свойство формы поверх всех
- или запретите при выводе этой формы с изображением alt+tab (поставьте хук)

PARGB=^ARGB; - зачем это?

- задание типов или вас смущает ^ ?

[TwiX]

поставьте свойство формы поверх всех

альт-таб пробьёт его)
Разве системой не запрещено ставить хук на alt-tab?

- задание типов или вас смущает ^ ?

меня смущает ^ =) Что это?

[raxp]

formStyle:= fsStayOnTop;
и
SetWindowLong(application.Handle,GW L_EXSTYLE,GetWindowLong(Application .Handle, GWL_EXSTYLE) or
not WS_EX_APPWINDOW)
и всегда будет поверх всех, даже тех у кого стоит поверх всех

^ - ссылка на адрес в памяти

[TwiX]

А чем это лучше чем без ссылки?