Скачать: CL | DM;

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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.017 c