| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Поиск окна [D7, XP]
Первокласник Вася © (2007-07-08 13:20:00)Всем привет!
С праздником - дня рыбака!
Вот моя идея, но ничего не получается :(
Хочу написать прогу, которая следит какие папки открыты
в данный момент времени с указанием времени открытия.
Например, открыта папка "Новая папка" в 12:00:29, спустя какое-то
время открыта папка "мр3", например в 13:22:40 и т.д.
Пытался с помощью FindWindow(nil,nil) - ноль что получается, правда
если указать второй параметр (имя) то нормально.
Только вот минус один хочу использовать таймер для поиска окна каждую
секунду. Но к имени найденного окна постоянно прибавляется текущее время.
Короче, я хочу чтобы в Listbox заносилось имя открытой папки + время ее открытия...
Ребята, не судите строго. Начинающий. И если вопрос сформулирован не
граматно (наверняка) - подскажите пожалуйста!
С Уважением!
Dib@zol[banned] (2007-07-08 14:30:00) [1]Удалено модератором
Примечание: Нарушение режима RO
Первокласник Вася (2007-07-08 14:06:00) [2]Господа, в доолнение к вопросу кусок моего кода.
Эта кнопка сидит на таймере.
procedure TForm1.Button1Click(Sender: TObject);
begin
for i:=0 to List1.Count-1 do
if findwindow('CabinetWClass',pchar(list1.Strings[i]))<>0 then
begin
List2.AddStrings(List1);
Listbox1.Clear;
Listbox1.Items.Add('Запущен: '+' '+List2.Strings[i]+ timetostr(now));
end;
end;
Первокласник Вася (2007-07-08 13:36:00) [3]Спасибо что ответил и хоть что-то посоветовал!
Я с большим удовольствием взгляну на твой пример!
Dib@zol (2007-07-08 13:32:00) [4]Тут скорее всего надо использовать GetWindowList. У окна папки, если не ошибаюсь, должен быть особый класс окна. Если кто знает пусть подскажет. А я пока попробую написать простой екзампл.
| |
