Вниз
Скачать: 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.45 MB
Время: 0.019 c
15-1184143109
DelphiN!
2007-07-11 12:38
2007.08.05
Разрешить доступ к удаленному компу из под пользователя SYSTEM


15-1184082932
koha
2007-07-10 19:55
2007.08.05
есть ли нормы на обслуживание выч. техники?


15-1183734236
oldman
2007-07-06 19:03
2007.08.05
Грубые вы, уйду я от Вас...


15-1183615251
Predfer
2007-07-05 10:00
2007.08.05
У кого какой антивирус?


2-1184070026
AZIZE
2007-07-10 16:20
2007.08.05
HELP ME!!!




   Наверх