Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 08.04.2009, 05:42   #11
Ntlegend
Форумчанин
 
Аватар для Ntlegend
 
Регистрация: 12.05.2007
Сообщений: 373
Сообщение

от тебе пример как найти все окна проводника и как получить путь к папке первого из них.. чтобы получить текст из других сделаешь по аналогии.. там даже пару коменртариев есть.. при написании программы был использован только этот ресурс..

если открыта системная папка.. таая как "мои рисунки", "мои документы"... "рабочий чтол" - то в адресной строке не написан полный пуп.. для получения пути к системным папкам используй функцыю SHGetSpecialFolderLocation (описание ее контант тут)
Вложения
Тип файла: rar 00.rar (3.8 Кб, 60 просмотров)
Перемен! - требуют наши сердца. Перемен! - требуют наши глаза.
В нашем смехе и в наших слезах, И в пульсации вен:
"Перемен!Мы ждем перемен!"
Ntlegend вне форума Ответить с цитированием
Старый 08.04.2009, 19:34   #12
dolphin705
Форумчанин
 
Аватар для dolphin705
 
Регистрация: 02.08.2008
Сообщений: 213
По умолчанию

У меня этот код не работает
dolphin705 вне форума Ответить с цитированием
Старый 08.04.2009, 20:14   #13
Ntlegend
Форумчанин
 
Аватар для Ntlegend
 
Регистрация: 12.05.2007
Сообщений: 373
По умолчанию

а шо именно не работает?? не может получить хендл какогото компонента (какого??).. или тока не получает строчку??

----

гы.. а самому разобраться в коде не судилося??
строка 82 GetExeNameByHandle(wnd)='explorer.e xe'
тут стоит жесткая привязка.. и если у тебя будет не 'explorer.exe' а 'Explorer.exe' то эта проверка вернет не соответствие.. поэтому оветую заменить ее на такую строку

AnsiUpperCase(GetExeNameByHandle(wn d))='EXPLORER.EXE'
Перемен! - требуют наши сердца. Перемен! - требуют наши глаза.
В нашем смехе и в наших слезах, И в пульсации вен:
"Перемен!Мы ждем перемен!"

Последний раз редактировалось Ntlegend; 08.04.2009 в 20:42.
Ntlegend вне форума Ответить с цитированием
Старый 08.04.2009, 21:30   #14
dolphin705
Форумчанин
 
Аватар для dolphin705
 
Регистрация: 02.08.2008
Сообщений: 213
По умолчанию

Да,этого я не заметил,спасибо
dolphin705 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Excel 2007/ А что он делает в данный момент? kzld Microsoft Office Excel 10 30.03.2009 11:14
Как узнать из адреса файл это или папка? Anfall Общие вопросы Delphi 12 25.02.2009 23:40
Как узнать какие данные в данный момент печатает принтер? progan Общие вопросы Delphi 0 24.12.2008 09:34
Как узнать какая колонка в DBGrid редактируется?? DangerousWulf БД в Delphi 3 31.01.2007 14:43