Gotowce » Żarty w Delphi

Flipper

Flipper


Autor: Żabie Udka

Pokaże wam nowy żart - przewraca pulpit o 180°

Oto kod:

procedure Flipper;
var 
  DeskCan: TCanvas; // płótno do odwrócenia pulpitu
begin
  DeskCan := TCanvas.Create; // wywołanie konstruktora
  try
    DeskCan.Handle := CreateDC('DISPLAY', nil, nil, nil); // ustawia uchwyt na pulpit
    DeskCan.CopyRect(Rect(0, 0, Screen.Width, Screen.Height), DeskCan, Rect(0, Screen.Height, Screen.Width, 0)); // "drukuje" odwrócony pulpit
  finally
    DeskCan.Free; // zwalnia płótno
  end;
end;


Radzę to wywołać pod timer lub pętlę - tak ta osoba może myśleć że naprawdę jemu pulpit odwrócił się

3 komentarze

TomRiddle 2011-03-27 13:00

To nie jest głupota tylko kreatywność.

Demonical Monk 2009-09-12 14:14

Tia. Kategoria się rozwija razem z głupotą autorów... :D

abc 2009-05-03 19:10

coż za piękna polska mowa :D