Sprawdzanie czy jest forma

0

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

Pozdrówka

0

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

0

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

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0