Приложения в XP

[vicvtor]

Необходимо создать такое же окно, как у диспетчера задач Windows на вкладке "Приложения". нужна только сама начинка, т.е. какие API и в какой последовательности писать, чтобы получить список запущенных Приложений, НЕ ПРОЦЕССОВ!!! Неплохо было бы код с понятными коментариями. Заранее спасибо.

[rpy3uH]

надо через функцию EnumWindows перечислять окна, что бы узнать главное окно или нет надо проверить флаг WS_EX_APPWINDOW
конкретнее вопрос, в чём проблема то?

[vicvtor]

нужно занести список (заголовки) развернутых и свернутых окон в tlistbox и их handle в другой listbox, или же в соседнюю колонку.

[vicvtor]

Вот. Делаю так...

function tform1.callback(h:hwnd):bool;stdcall;
var
  t:string;
  s:array[0..255] of char;
begin
 getwindowtext(h,s,200);
 t:=s;
 listbox1.add(t);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 i:integer;
begin
 enumwindows(@mycalllback,i);
end;

Он на строчке "еnumwindows(@mycalllback,i);" жалуется на @mycalllback, пишет "variable required" что делать???

[rpy3uH]

надо так

function tform1.callback(h:hwnd;param:DWORD):bool;stdcall;
var
t:string;
s:array[0..255] of char;
begin
getwindowtext(h,s,200);
t:=s;
listbox1.add(t);
end;

и надо всегда возвращать TRUE для того чтобы перечисление продолжалось дальше

[vicvtor]

function callback(h:hwnd;param:DWORD):bool;stdcall;
var
 t:string;
 s:array[0..255] of char;
begin
 getwindowtext(h,s,200);
 t:=s;
 form1.box.Items.Add(t);
 callback:=true;
end;

procedure TForm1.Button1Click(Sender: TObject);
var i:byte;
begin
 enumwindows(@callback,i);
end;

Делаю так, но он к списку раскрытых окон дабавляет ещё кучу различных заголовков, которых не видно на рабочем столе, ещё кажется выводит какие то заголовки от значков в трэе. Как этого избежать?

[rpy3uH]

есть функция IsWindowVisible если возвращает true значит видимо

[vicvtor]

Вот. Зделал программку, которую хотелось. Она позволяет скрывать раскрытые и свернутые окна от посторонних глаз. Спросите зачем? Да у нас в лицее не разрешено онлайн общение. За это попадает, а чтоб скажем не было видно окошек того же mail.ru агента и есть эта программа. Может ещё кому понадобится.

[rpy3uH]

молодец, поздравляю!

[Alter]

Сообщение от vicvtor

Вот. Зделал программку, которую хотелось. Она позволяет скрывать раскрытые и свернутые окна от посторонних глаз. Спросите зачем? Да у нас в лицее не разрешено онлайн общение. За это попадает, а чтоб скажем не было видно окошек того же mail.ru агента и есть эта программа. Может ещё кому понадобится.

Типа моей, у меня постояный мониторинг процессов в системе.
Выбор действий с программами в списке мониторинга. Разобраться можно . Программу запоковал в инстал.