VPF::Проблема с EnumWindows - Форум программистов

Тутанхамец

Дата 9.12.2006, 10:58 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 612
Регистрация: 10.10.2005
Где: в пирамидЕ!

Репутация: нет
Всего: 6

Здравствуйте. Хочу получить список верхнеуровневых окон. Вот моя EnumWindowsProc:

Код


function mwp(wnd:HWND ):boolean;
var
s:string;
n:integer;
begin
setlength(s,255);
n:=getwindowtext(wnd,pchar(s),255);
setlength(s,n);
{if n=0 then begin
    n:=getlasterror;
    if n<>0 then showmessage(inttostr(n));
end;}
form1.ListBox1.Items.Add(inttostr(wnd)+'  '+s);
mwp:=true;
end;

Какие-то числа в wnd передаются. Но когда пытаюсь взять текст этого окна, возникает ошибка 1400, то есть неверный хэндл. Что не так? Заранее благодарен.

--------------------

Мой блог / Мои фотки / Моё Skolkobudet.ru

bems

Дата 9.12.2006, 12:44 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 21
Всего: 88

Код


function mwp(wnd:HWND ):BOOL;stdcall;

--------------------

Обижено школьников: 8

Тутанхамец

Дата 9.12.2006, 13:29 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 612
Регистрация: 10.10.2005
Где: в пирамидЕ!

Репутация: нет
Всего: 6

Вона как... Благодарствую! smile

А сам я до этого мог дойти? В хэлпе вроде ни слова. Или есть какое-то общее правило?

И еще. Сишное CALLBACK на Делфи как-то переводится? Или на него можно забивать?

Добавлено @ 13:42
И еще... smile

Какой вариант лучше - первый или вот этот:

Код


procedure TForm1.Button3Click(Sender: TObject);
var
oh,h:HWND;
s:string;
begin
h:=self.Handle;
repeat
setlength(s,256);
getwindowtext(h,pchar(s[1]), 255);
listbox1.Items.Add(inttostr(h)+'  '+s);
oh:=h;
h:=GetWindow(h,GW_HWNDNEXT);
until oh=h;
end;

end.

--------------------

Мой блог / Мои фотки / Моё Skolkobudet.ru

Snowy

Дата 9.12.2006, 14:10 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 30
Всего: 484

Код


setlength(s,256);
getwindowtext(wnd, pchar(s), 255);
listbox1.Items.Add(inttostr(h) + '  ' + PChar(s));

Тутанхамец

Дата 9.12.2006, 15:35 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 612
Регистрация: 10.10.2005
Где: в пирамидЕ!

Репутация: нет
Всего: 6

Спасибо. Учту.

--------------------

Мой блог / Мои фотки / Моё Skolkobudet.ru

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »