Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2006.12.03;
Скачать: [xml.tar.bz2];

Вниз

Как узнать имя окна handle?   Найти похожие ветки 

 
Troan_81   (2006-11-14 22:11) [0]

Вечер добрыЙ!

Ребята подскажите как узнать имя активного окна (например папки).
вот кусок кода чета голова дальше не соображает :(
Подскажите пожалуйста че не так...
вот кусок кода:


var
 Form1: TForm1;
 windtext: array [0..255] of char;
 str: string;

procedure TForm1.Button1Click(Sender: TObject);
var   h : THAndle;
begin
   h:=GetWindowText(h, windtext, 255);
   memo1.Lines.Add(windtext);
end;


 
Anatoly Podgoretsky ©   (2006-11-14 22:12) [1]

> Troan_81  (14.11.2006 22:11:00)  [0]

GetForegroundWindow сразу возвращает хендл


 
Anatoly Podgoretsky ©   (2006-11-14 22:13) [2]

> Troan_81  (14.11.2006 22:11:00)  [0]

У папки нет окон


 
Troan_81   (2006-11-14 22:14) [3]

да нет. мне нужно получить имя окна и записать это в string


 
Percent   (2006-11-14 22:15) [4]

Подскажите пожалуйста че не так...

Ответ очевиден: "чета голова дальше не соображает"...

Когда будет соображать голова и ты сможешь хоть как-то более-менее корректно сформулировать вопрос (в первую очередь понять сам, чего тебе надо) - приходи еще...


 
Troan_81   (2006-11-14 22:17) [5]

Не прогоняйте меня ребят :(((
Я тока пришел и уже до свидания? Нет так нельзя.
У меня такой вот вопрос (по другому).
Предположим, что открыто окно с именем "test" или "новая папка" как мне это узнать?


 
Percent   (2006-11-14 22:20) [6]

1. Получить список всех окон верхнего уровня (см. EnumWindows());
2. Получить текст заголовка для них (см. GetWindowText()).


 
Troan_81   (2006-11-14 22:22) [7]

procedure TForm1.Button1Click(Sender: TObject);
var   h : THAndle;
begin
   GetWindowText(h, windtext, 255);
   str:= windtext;
   memo1.Lines.Add(str);

что не так?


 
Anatoly Podgoretsky ©   (2006-11-14 22:23) [8]

> Troan_81  (14.11.2006 22:14:03)  [3]

Скрипач, ты зеленое от красного отличаешь.
Внимательно прочитай свой вопрос, зачем же тогда пишешь про handle


 
Percent   (2006-11-14 22:23) [9]

что не так?

Все не так. Откуда у тебя h взялось?


 
Troan_81   (2006-11-14 22:24) [10]

Слушай дед, ты бы лучше лекцию прочитал, чем умничать сверху :/


 
Anatoly Podgoretsky ©   (2006-11-14 22:25) [11]

> Troan_81  (14.11.2006 22:17:05)  [5]

Хендл окна по имени получают с помощью функции FindWindow
Ты бы определился все таки, что ты хочешь спросить.

А не прогоняйте, так это мы запросто, только от тебя зависит.


 
Troan_81   (2006-11-14 22:26) [12]

Если проверить имя нужного то я использую такой прием  
if findwindow(nil,"1")<>0 then....

но мне нужно наоборот. узнать имя открытого этого "1" ...


 
Anatoly Podgoretsky ©   (2006-11-14 22:30) [13]

Парень, тут у нас с наездами не уважают, быстро показывают направление.



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

Форум: "Начинающим";
Текущий архив: 2006.12.03;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.47 MB
Время: 0.042 c
5-1144508062
Volodya_
2006-04-08 18:54
2006.12.03
TMediaPlayer


2-1163670719
galyc
2006-11-16 12:51
2006.12.03
правильность ввода пути


15-1163713710
dreamse
2006-11-17 00:48
2006.12.03
SQL запрос


6-1152028321
SpellCaster
2006-07-04 19:52
2006.12.03
Странности у TTcpClient и TTcpServer


15-1163042679
Optim
2006-11-09 06:24
2006.12.03
Существуют ли программы оптимизации исходного паскалевского кода?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский