Surprise!

[bholas]

This hint is a little surprise. So, you'd have to either read the code and understand what it does or try it out!

1. Create a new application (select "File | New Application" from the main menu)
2. Select the empty form and double click on it's "OnResize" event
3. Change the generated "FormResize()" function to look like the following and run the program.

procedure TForm1.FormResize( Sender: TObject );
var
R : TRect;
DC : HDc;
Canv : TCanvas;
begin
R := Rect( 0, 0, Screen.Width, Screen.Height );
DC := GetWindowDC( GetDeskTopWindow );
Canv := TCanvas.Create;

Canv.Handle := DC;
Canvas.CopyRect( R, Canv, R );
ReleaseDC( GetDeskTopWindow, DC );
end;

Similar Threads:

• Richa's superb surprise birthday party!!
• Dream girl and a big surprise in Indian Idol 5
• Anuj's surprise bounces back
• Ankita gets a surprise visit from parents…
• Marc’s surprise elimination from Iss jungle