19.01.2011, 13:27
|
|
Let Me Show You
|
|
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
|
|
тогда уж (если касается предыдущей теме автора):
Код:
var
h: THandle;
c: Integer;
data: array [0..$ff] of Char;
l: Integer;
txt, clss: String;
begin
Memo1.Lines.Clear;
c:=0;
h:=GetTopWindow(GetDesktopWindow);
if h<>0 then
repeat
if IsWindow(h) and IsWindowVisible(h) and not IsIconic(h) and (GetParent(h)=0) then
begin
Inc(c);
l:=GetWindowText(h, data, $100);
if l>0 then txt:=Copy(data, 1, l);
l:=GetClassName(h, data, $100);
if l>0 then clss:=Copy(data, 1, l);
Memo1.Lines.Add(IntToStr(h)+' ['+clss+'] "'+txt+'"');
end;
h:=GetNextWindow(h, GW_HWNDNEXT);
until h=0;
Edit1.Text:=IntToStr(c);
end;
http://data.cod.ru/85181
__________________
Пишу программы за еду.
__________________
|