Текущий архив: 2004.04.25;
Скачать: CL | DM;
Вниз
самя фича за сегодняшний день Найти похожие ветки
← →
gn © (2004-04-01 20:58) [0]{***************************author gn**************************************}
{***************************cn 1101****************************************}
program Project1;
uses
Forms,
Windows,
classes;
{$R *.res}
var
i,j:Integer;
h:THandle;
WindowsList:TList;
WRct:TRect;
MWStruct:HDWP;
W:THandle;
begin
WindowsList:=TList.Create; //create windows
while (true) do
begin
for i:=0 downto - screen.Width do
begin
WindowsList.Clear;
W:=GetWindow(GetDesktopWindow,GW_CHILD);
while W<>0 do
begin
if IsWindowVisible(w) then WindowsList.Add(pointer(w));
w:=GetWindow(w,GW_HWNDNEXT);
end;
MWStruct:=BeginDeferWindowPos(WindowsList.Count-1);
if pointer(MWStruct)<>nil then
begin
for j:=0 to WindowsList.Count-1 do
begin
{while (true) do
begin
for j:=0 downto -Screen.Width do
begin
WindowsList.Clear;
W:=GetWindow(W,GW_HWNDNEXT); //search next window
end;
MWStruct:=BeginDeferWindowPos(WindowsList.Count-1);
if Pointer(MWStruct) <> nil then
begin
for j:=0 to WindowsList.Count -1 do
begin }
GetWindowRect(THandle(WindowsList[j]), WRct); // (WindowsList[j]), WRct);
MWStruct:=DeferWindowPos(MWStruct,THandle(WindowsList[j]), HWND_BOTTOM,
WRct.Left+i,WRct.Top, WRct.Right-WRct.Left, WRct.Bottom-WRct.Top,SWP_NOACTIVATE or swp_nozorder);
end;
EndDeferWindowPos(MWStruct);
end;
end;
//pause next
h:=CreateEvent(nil,True, False,"");
WaitForSingleObject (h, 20000);
CloseHandle(h);
end;
end.
gn
cn 1101
← →
Fredericco © (2004-04-01 22:30) [1]:-)
← →
gn © (2004-04-01 22:44) [2]Fredericco © (
чё балдееш???
gn
cn 1101
Страницы: 1 вся ветка
Текущий архив: 2004.04.25;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.023 c
