Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.02.03;
Скачать: 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 вся ветка

Текущий архив: 2003.02.03;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.016 c
1-5007
Term
2003-01-23 17:41
2003.02.03
Фугкции для работы с датой


1-4931
NewGuest
2003-01-26 10:57
2003.02.03
Мастера и любители прошу обратить внимание на данный код...


14-5210
konstantinov
2003-01-14 02:06
2003.02.03
Программы - заставки


7-5284
НаемНИК
2002-11-14 13:58
2003.02.03
Перехват УДАЛЕНИЯ ФАЙЛА


1-4851
BALU1111
2003-01-22 14:10
2003.02.03
Паскалевские функции работы с файлами