Московское время -
Предыдущая тема :: Следующая тема |
Автор |
Сообщение |
Style Админчег
Зарегистрирован: 30.07.2003 Сообщения: 4251 Откуда: все эти тролли?
|
Добавлено: Чт Сен 25, 2003 3:13 pm Заголовок сообщения: Падают, падают, падают окна :) |
|
|
Короче вот приколося я как то над юзверем одним на 1-е апреля
короче качайте - (128k) http://www.hchp.ru/pub/upload/windown/wd.rar
Написал на Delphi код выложу позже надо нарыть
Короче после запуска проги начанают падать окна - причем падают в прямом смысле того слова
Качайте и издевайтесь на ламмерами мастдайными _________________ Масло масляное! |
|
Вернуться к началу |
|
|
Style Админчег
Зарегистрирован: 30.07.2003 Сообщения: 4251 Откуда: все эти тролли?
|
Добавлено: Чт Сен 25, 2003 3:16 pm Заголовок сообщения: А вот сам код.. Там токма нада |
|
|
А вот сам код.. Там токма нада слип где то поставить чтобы 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 Друг ПОСТа
Зарегистрирован: 18.08.2003 Сообщения: 191
|
Добавлено: Чт Сен 25, 2003 3:57 pm Заголовок сообщения: |
|
|
код бы мог и архиве выложить. _________________ не забивайте голову мозгами |
|
Вернуться к началу |
|
|
Style Админчег
Зарегистрирован: 30.07.2003 Сообщения: 4251 Откуда: все эти тролли?
|
|
Вернуться к началу |
|
|
lus Гость
|
Добавлено: Вт Фев 14, 2006 9:07 pm Заголовок сообщения: |
|
|
Мдя, за такие шуточки и ушки пообрывать могут ;)) |
|
Вернуться к началу |
|
|
|
|
Вы не можете начинать темы Вы не можете отвечать на сообщения Вы не можете редактировать свои сообщения Вы не можете удалять свои сообщения Вы не можете голосовать в опросах
|
|
|