Падают, падают, падают окна :)

[Style]

Короче вот приколося я как то над юзверем одним на 1-е апреля
короче качайте - (128k) http://www.hchp.ru/pub/upload/windown/wd.rar

Написал на Delphi код выложу позже надо нарыть

Короче после запуска проги начанают падать окна - причем падают в прямом смысле того слова

Качайте и издевайтесь на ламмерами мастдайными

[Style]

А вот сам код.. Там токма нада слип где то поставить чтобы CPU не напрягался Ж

const Speed = 10;

type
TForm1 = class(TForm)
Timer1: TTimer;
Label1: TLabel;
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
function EnumWindowsProc(Wnd: HWND; lParam: integer): boolean;
implementation

{$R *.DFM}

function EnumWindowsProc(Wnd: HWND; lParam: integer): boolean;
var
w: hwnd;
s,i: integer;
rct: TRect;
wp: TWindowPlacement;
begin
w := FindWindowEx(FindWindowEx(FindWindow('Progman',nil),0,'SHELLDLL_DefView',nil),0,'SysListView32',nil);
if(Wnd <> 0) then
begin
Wnd := GetNextWindow(Wnd,GW_HWNDPrev);

GetWindowPlacement(Wnd,@wp);

if(Form1.Handle <> Wnd) then
EnumWindowsProc(Wnd,1);

if(wp.showCmd = SW_SHOWNORMAL) then
begin
GetWindowRect(Wnd,Rct);

if(Rct.Bottom < Screen.Height) then
begin
s := 0;

for i := Rct.Left to Rct.Right do
begin
if(WindowFromPoint(Point(i,Rct.Bottom + 1)) <> w)
and (WindowFromPoint(Point(i,Rct.Bottom + 1)) <> 0) then
s := 1;
end;

if(s = 0) then
SetWindowPos(Wnd,0,Rct.Left,Rct.Top+Speed,0,0,SWP_NOZORDER or SWP_NOSIZE or SWP_NOACTIVATE );
end;
end;

end;
result := true;
end;


procedure TForm1.Timer1Timer(Sender: TObject);
var
pt: TPoint;
begin
GetCursorPos(pt);
Label1.Caption := IntTOStr(WindowFromPoint(pt));
EnumWindowsProc(Handle,0);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.ShowMainForm := false;
end;

[BigPig]

код бы мог и архиве выложить.

[Style]

Запраста

http://www.hchp.ru/pub/upload/windown/wdsrc.rar

[lus]

Мдя, за такие шуточки и ушки пообрывать могут ;))