VPF::LabeledEdit1.Text := бяка - Форум программистов

Pariah

Дата 17.5.2006, 11:07 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 95
Регистрация: 25.1.2006

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

Дарова народ!
Вот код :

Код


procedure TForm1.Button1Click(Sender: TObject);
var
hn : HWND;
ClassName:PChar ;
begin
         hn := GetClassName(FindWindow('TrayNotifyWnd', nil)
         ,ClassName,255);
         LabeledEdit1.Text:= ClassName ;
end;

Моя прога должна считать все ClassName иконок находящихся в SystemTray и вывести их значения в LabeledEdit1.Text , но вместо этого выводится непонятный текст smile

Помогите это исправить!!!
А лучше кинте линь где мона слить такую утилиту!
Буду ооч признателен!

Romikgy

Дата 17.5.2006, 12:08 (ссылка)

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

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 9
Всего: 146

Код


procedure TForm1.Button1Click(Sender: TObject);    

var    
hn : HWND;    
ClassName:string;    
begin    
         hn := GetClassName(FindWindow('TrayNotifyWnd', nil)    
         ,PChar (ClassName),255);    
         LabeledEdit1.Text:= ClassName ;    
end;

Это сообщение отредактировал(а) Romikgy - 17.5.2006, 12:11

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

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

Pariah

Дата 17.5.2006, 12:41 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 95
Регистрация: 25.1.2006

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

пасиб Romikgy багов при компилинге нет!
но теперь текста ваще никакого непоявляется smile

Romikgy

Дата 17.5.2006, 15:25 (ссылка)

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

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 9
Всего: 146

Код


procedure TForm1.Button1Click(Sender: TObject);    

var    
hn : HWND;    
ClassName:array [0..255] of char;    
begin    
         hn := GetClassName(FindWindow('TrayNotifyWnd', nil)    
         , (ClassName),255);    
         LabeledEdit1.Text:= StrPas(ClassName) ;    
end;

А так ?

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

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

Damarus

Дата 17.5.2006, 22:13 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Awaiting Authorisation
Сообщений: 671
Регистрация: 6.5.2006

Репутация: 7
Всего: 29

Цитата(Pariah @ 17.5.2006, 11:07)

Дарова народ!
Вот код :

Код


procedure TForm1.Button1Click(Sender: TObject);
var
hn : HWND;
ClassName:PChar ;
begin
         hn := GetClassName(FindWindow('TrayNotifyWnd', nil)
         ,ClassName,255);
         LabeledEdit1.Text:= ClassName ;
end;

Помогите это исправить!!!
А лучше кинте линь где мона слить такую утилиту!
Буду ооч признателен!

Указанный код (как и его модификации выше) во первых не верен, во вторых является логическим бредом. Разберёмся по порядку. Функция FindWindow возвращает хендл top-level окна, в то время, как окно TrayNotifyWnd является дочерним окном Shell_TrayWnd, т.е. в данном случае правильнее писать так:

Код


hn := GetClassName(FindWindowEx(FindWindow('Shell_TrayWnd', nil), nil, 'TrayNotifyWnd', nil), ClassName, 255);

Но и это бред, т.к. функция GetClassName возвращает имя класса указанного окна, т.е. в данном коде она вернёт 'TrayNotifyWnd'.

Я также не понял, что есть "ClassName иконок".

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