Отлов запуска Win-приложений

← →
Arthur Gexon (2002-05-12 13:51) [0]

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

← →
Song © (2002-05-12 17:33) [1]

FindWindow()

← →
Almaz © (2002-05-13 03:05) [2]

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

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

> > Arthur Gexon (12.05.02 13:51)

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

Удачи.

← →
Gexon (2002-05-13 09:58) [3]

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

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

← →
Fellomena (2002-05-13 18:40) [4]

см. Hooks

← →
cok © (2002-05-14 21:25) [5]

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

← →
Gexon (2002-05-16 14:50) [6]

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

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

← →
Slym (2002-05-17 10:30) [7]

DebugHook на CreateProcess

← →
Fellomena (2002-05-17 12:51) [8]

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

С использованием 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;

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

Отлов запуска Win-приложений Найти похожие ветки