Окна в делфи

Окна какого типа нужны?
просто вот код, который выводит в файл дескрипторы всех окон, и вконце выводит дискриптор активного окна (но это на С++, но вин апи - он и в африке вин апи...):

PHP код:


ofstream fo;
BOOL CALLBACK EnumWindowsProc(HWND hwnd,LPARAM lParam)
{
    fo << (unsigned)hwnd << "\n"; 
    return true;
}

int APIENTRY _tWinMain(HINSTANCE hInstance,
                     HINSTANCE hPrevInstance,
                     LPTSTR    lpCmdLine,
                     int       nCmdShow)
{
    ....
    fo.open("txt.txt");
    EnumWindows((WNDENUMPROC)EnumWindowsProc, NULL);
    fo << "Active = "<< (unsigned)GetForegroundWindow() << "\n"; 
    fo.close();
    ....
}