![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Отлов запуска 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()