самя фича за сегодняшний день

← →
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]

:-)

самя фича за сегодняшний день Найти похожие ветки