Форум: "Потрепаться";
Текущий архив: 2003.04.21;
Скачать: [xml.tar.bz2];
ВнизВот пошутил над Юзверями 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 вся ветка
Форум: "Потрепаться";
Текущий архив: 2003.04.21;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.009 c