Sprawdzanie czy jest forma

Jak sprawdzić, czy uruchomiona aplikacja posiada formę? Znając oczywiście jej uchwyt.---------------------------
Delphi 6

Pozdrówka

I jeszcze jedno. Jak pobrać uchwyt znając ścieżkę? Albo może coś innego wymyślić:

var
_HWND : THandle;
Proc : TProcessEntry32;
begin
_HWND := CreateToolHelp32SnapShot(TH32CS_SNAPALL,0);
Proc.dwSize:=SizeOf(Proc); * okresl rozmiar struktory
if Integer(Process32First(_HWND, Proc)) &lt&gt 0 then
repeat
ListBox1.Items.Add(Proc.szExeFile); * dodaje sciezkie pliku do ListBox'a
until Integer(Process32Next(_HWND, Proc)) = 0; // dopoki wartosc nie osiagnie 0
CloseHandle(_HWND);

To kod z FAQa. Jak teraz do drugiego listboxa dodać uchwyty aplikacji?---------------------------
Delphi 6

Pozdrówka

POSZUKAJ NA STRONIE
(WWW.4PROGRAMMERS.NET)
NA PEWNO ZNAJDZIESZ