Enumwindows

← →
Иксик (2003-01-24 15:17) [0]

Народ, у кого-нибудь есть небольшой пример использования сабжа,
а то уменя чего-то не получается.

← →
Иксик (2003-01-24 15:29) [1]

Может все-таки есть у кого :)
Или кто захочет объяснить как сабж юзить? :)

← →
DVM (2003-01-24 19:00) [2]

В кладовке EnumFunctions

← →
Shc (2003-01-24 20:17) [3]

Поищи в Королевстве
Мечты вуайериста
Раздел Hello, World! Автор Дмитрий Богданов

Мне понравилось

← →
Сергей Чурсин (2003-01-24 23:14) [4]

//**************
function EnumWin(hwn:HWND;lParam: UINT ):Boolean stdcall;
var nam:string;
i:integer;
nm:array[0..255] of char;
begin
i:=GetWindowText(hwn, nm, 255);
if trim(nm)<>"" then Form1.ListBox1.Items.Add(nm);
result:=true;
end;

function TForm1.ChkList(n:string):string;
var a:UINT;
i:integer;
begin
result:="";
Form1.ListBox1.Clear;
EnumWindows(@EnumWin,a);
for i:=1 to Form1.ListBox1.Items.Count do begin
if Pos(n,Form1.ListBox1.Items.Strings[i-1])>0
then result:=Form1.ListBox1.Items.Strings[i-1];
end;
end;

Enumwindows Найти похожие ветки