Вниз
Скачать: CL | DM;

Поиск окна   Найти похожие ветки 

← →
Первокласник Вася   (2007-07-08 13:20) [0]

Всем привет!

С праздником - дня рыбака!
Вот моя идея, но ничего не получается :(
Хочу написать прогу, которая следит какие папки открыты
в данный момент времени с указанием времени открытия.
Например, открыта папка "Новая папка" в 12:00:29, спустя какое-то
время открыта папка "мр3", например в 13:22:40 и т.д.

Пытался с помощью FindWindow(nil,nil) - ноль что получается, правда
если указать второй параметр (имя) то нормально.
Только вот минус один хочу использовать таймер для поиска окна каждую
секунду. Но к имени найденного окна постоянно прибавляется текущее время.

Короче, я хочу чтобы в Listbox заносилось имя открытой папки + время ее открытия...

Ребята, не судите строго. Начинающий. И если вопрос сформулирован не
граматно (наверняка) - подскажите пожалуйста!

С Уважением!


← →
Dib@zol ©   (2007-07-08 13:32) [1]

Тут скорее всего надо использовать GetWindowList. У окна папки, если не ошибаюсь, должен быть особый класс окна. Если кто знает пусть подскажет. А я пока попробую написать простой екзампл.


← →
Первокласник Вася   (2007-07-08 13:36) [2]

Спасибо что ответил и хоть что-то посоветовал!
Я с большим удовольствием взгляну на твой пример!


← →
Первокласник Вася   (2007-07-08 14:06) [3]

Господа, в доолнение к вопросу кусок моего кода.
Эта кнопка сидит на таймере.


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;


← →
Dib@zol[banned]   (2007-07-08 14:30) [4]

Удалено модератором
Примечание: Нарушение режима RO



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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.013 c
2-1183707430
_Asph
2007-07-06 11:37
2007.08.05
Не срабатывает try


15-1183887525
ArtemESC
2007-07-08 13:38
2007.08.05
Есть ли какие-нибудь форумы где можно задавать ...


2-1184007792
FrostFX
2007-07-09 23:03
2007.08.05
Подскажите как запустить из программы другой exe-шник)


15-1183912729
Zagaevskiy
2007-07-08 20:38
2007.08.05
Меню Файл,Правка и т.д.


15-1183728592
dima123
2007-07-06 17:29
2007.08.05
иконки...




   Наверх