Efekt zamyknia xp

Witam!

Efekt jak w xp przy zamykaniu czyli gdy wyskoczy okienko co ma zrobić zamkni/wstrzymaj/uruchim ponownie to pulpit w tle robi się czarnobiały i przyciemniony.
Jak zrobić taki efekt we własnym programie?

Np tak:

1. Zrobić zrzut ekranu (było na forum)
2. Zmienić kontrast zrzutu (znajdziesz na necie, to bedzie coś w stylu [R,G,B] -> [średnia(R,G,B), średnia(R,G,B), średnia(R,G,B)] )
3. Wyświetlić zrzut na całym ekranie (np zmaksymalizowana formatka bez paska tytułowego i obramówek na której leży TImage ze zrzutem ekranu)
4. Formatke właściwą programu wyświelić nad formatką ze zrzutem
5. W OnDeactivate formatki właściwej z powrotem uaktywniać ją.
6. W Aplication.OnDeactivate z powrotem uaktywniać aplikacje.

Efekt Kontrastu masz TUTAJ
Zmieniaj od 255 w dół

Zrzut Ekranu:

procedure ScreenShoot(Bitmap:TBitmap);
var
DesktopCanvas:TCanvas;
begin
Bitmapa.PixelFormat :=pf24bit;
DesktopCanvas:=TCanvas.Create;
DesktopCanvas.Handle:=GetWindowDC(GetDesktopWindow);
Bitmap.Width :=Screen.Width ;
Bitmap.Height :=Screen.Height;
Bitmap.Canvas.CopyRect(Rect(0,0,Bitmap.Width,Bitmap.Height),
DesktopCanvas,Rect(0,0,Screen.Width,Screen.Height ));
DesktopCanvas.Free;

end;

Piotrekdp dzięki o coś takiego włąsnie mi chodziło.

Kiedyś pisałem to w taki sposób i muszę przyznać, że przy rodzielczości 1280/1024 chodziło to przeokropnie wolno(na innych nie sprawdzałem)