ParentH = ::FindWindow(NULL, NULL);
::GetWindowText(ParentH, wt, 20);
Count = 0;
while((ParentH != 0)&&(Count < 100))
{
if(strstr(wt, %windowscaption%) != NULL)
{
//////////////do it for youself
}
ParentH = ::GetWindow(ParentH, GW_HWNDNEXT);
::GetWindowText(ParentH, wt, 20);
Count++;
}
}
::GetWindowText(ParentH, wt, 20);
Count = 0;
while((ParentH != 0)&&(Count < 100))
{
if(strstr(wt, %windowscaption%) != NULL)
{
//////////////do it for youself
}
ParentH = ::GetWindow(ParentH, GW_HWNDNEXT);
::GetWindowText(ParentH, wt, 20);
Count++;
}
}
var myhand:Thandle;
myhand:=FindWindow(nil,'Explorer');