Главная страница
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.021 c
3-4798
romchik
2003-01-17 01:26
2003.02.03
Нужна БД


1-4955
SeNtiMeL
2003-01-26 19:29
2003.02.03
Как вставить gif картинку в RichEdit ???????


14-5163
Дмитрий К.К.
2003-01-17 06:22
2003.02.03
Именинники 17 января


1-4947
Armageddon
2003-01-26 18:29
2003.02.03
Добавление нового события


4-5318
alexsc
2002-12-17 13:37
2003.02.03
Можно ли через CreateProcess передать Word файл для открытия