Скачать: CL | DM;

Вот пошутил над Юзверями 1-ого апреля :)   Найти похожие ветки 

← →
Style   (2003-04-03 11:02) [0]

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);
begin
EnumWindowsProc(Handle,0);
end;

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

---

← →
Vlad Oshin ©   (2003-04-03 11:11) [1]

за такие шутки в зубах могут быть промежутки :)

---

← →
Style   (2003-04-03 11:33) [2]

8E - Типа такого :)

Да не, они у меня хорошие. Позвонили мне я их с первым апрелем позравил и попросил комп перезагрузить :)

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.012 c