[Delphi] Jak wykryć pojawienie się okna?

Jak zrobić aby mój program wykrył i zareagował na pojawienie się nowego okna w systemie.

Jak ktoś wie to niech napisze bo ja to głupi ;p jestem :-)

Z góry dzięki.

Wesołych świąt :p :d

var
Form1: TForm1;
h,i:integer;
x,y,z:integer;
P,w,r:Integer;
implementation
function EnumWindowProc(uchwyt:HWnd;Pointer):boolean;stdcall;
var
winname,cname:array[0..144]of char;

begin

result:=true;
if getwindowtext(uchwyt,winname,144)>0 then
begin
if iswindowvisible(uchwyt)=true then
form1.listbox1.items.add(strpas(winname)); //jezeli okno jest widoczne to dodaj do listbox1
if iswindowvisible(uchwyt)=false then // jezeli okno nie jest widoczne to dodaj do listbox2
form1.listbox2.items.add(strpas(winname));

end;
end;

to wszystko trzeba tylko co jakiś czas sprawdzać w pewnych odstępach czasu.........to wszystko

--
kto skasował moje konto????
...juz wiem kto skasował moje kąto......

Dzięki za to  [cya]  [cya]  [cya]  [cya]  [cya]  [cya] 

jesteś [angel] [angel]

niemaproblema

[cygaro]

--
kto skasował moje konto????
...juz wiem kto skasował moje kąto......