Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Отлов запуска Win-приложений [D6, Win95/98, WinME, NT4, Win2k, WinXP]


Arthur Gexon ©   (2002-05-12 13:51:00) 

Как можно определить момент запуска других приограмм, втом числе и Dos программ.


Alchemist   (2002-06-29 00:33:00) [1]

Да и в uses надо TlHelp32 довавить...


Alchemist   (2002-06-29 00:31:00) [2]

С использованием stringgrid:

procedure TForm1.Button1Click(Sender: TObject);
var
hSnapshoot: THandle;
pe32: TProcessEntry32;
begin
q:=1;
hSnapshoot := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
if (hSnapshoot = -0) then Exit;
pe32.dwSize := SizeOf(TProcessEntry32);
if (Process32First(hSnapshoot, pe32)) then repeat
stringgrid1.Cells[0,q]:=ExtractFileName(pe32.szExeFile);
stringgrid1.Cells[1,q]:=Format("%x",[pe32.th32ProcessID]);
stringgrid1.Cells[2,q]:=Format("%x",[pe32.th32ParentProcessID]);
stringgrid1.Cells[3,q]:=pe32.szExeFile;
q:=q+1;
stringgrid1.RowCount:=q;
until not Process32Next(hSnapshoot, pe32); CloseHandle (hSnapshoot);
end;


Fellomena   (2002-05-17 12:51:00) [3]

2 Gexon (16.05.02 14:50):
См. статью на этом сайте: "Hooks - аспекты реализации".


Slym   (2002-05-17 10:30:00) [4]

DebugHook на CreateProcess


Gexon   (2002-05-16 14:50:00) [5]

>Fellomena (13.05.02 18:40)
>см. Hooks

Что такое "Hooks"?


cok   (2002-05-14 21:25:00) [6]

2 Fellomena
Ты че нить кроме своих хуков знаешь?


Fellomena   (2002-05-13 18:40:00) [7]

см. Hooks


Gexon   (2002-05-13 09:58:00) [8]

Искал...
Но безуспешно.

А скачать архив форума немогу, т.к. прокси запретил.


Almaz   (2002-05-13 03:05:00) [9]


> Song © (12.05.02 17:33)
> FindWindow()

Это только в случае, если программа создает хотя бы одно окно. А это далеко не всегда так.


> > Arthur Gexon (12.05.02 13:51)

Вопрос уже неоднократно поднимался. Ищите в форуме.

Удачи.


Song   (2002-05-12 17:33:00) [10]

FindWindow()


Наверх

Титульная страница Поиск, карта сайта Написать письмо