Завершить процесс по пути

[Goodwin98]

Незнаю в каком модуле в дельфи они описаны, но находятся они в Kernel32.dll. Поиск по MSDN рулит.

[abyss_by]

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

Функции

CreateToolhelp32Snapshot
Module32First
Process32First
Process32Next

похожи на функции поиска файлов. Впервые их вижу. Интересная штука - поиск в процессах, как в файлах.

А в каком модуле они описаны???

в модуле ..\Source\Rtl\Win\TlHelp32.pas

[alexcoder]

на C находятся в tlhelp32.h
Когда-то делал такую шутку:

#include <windows.h>
#include <tlhelp32.h>
VOID CALLBACK TimerProc(HWND hwnd,UINT uMsg,UINT idEvent,DWORD dwTime);
#pragma argsused
int APIENTRY WinMain(HINSTANCE hInstance,HINSTANCE hPrevInstance,LPSTR lpCmdLine,int nCmdShow)
{
MSG msg;
SetTimer(NULL,NULL,60000,(TIMERPROC )TimerProc);
while(GetMessage(&msg,NULL,0,0))
{
TranslateMessage(&msg);
DispatchMessage(&msg);
}
return msg.wParam;
}
#pragma argsused
VOID CALLBACK TimerProc(HWND hwnd,UINT uMsg,UINT idEvent,DWORD dwTime)
{
HANDLE hSnapshot,shut;
PROCESSENTRY32 Entry;
char fn[512];
hSnapshot = CreateToolhelp32Snapshot(TH32CS_SNA PPROCESS, 0);
Entry.dwSize = sizeof(Entry);
Process32First(hSnapshot, &Entry);
while (Process32Next(hSnapshot, &Entry))
{
if(lstrcmp("Shuttle.exe",Entry.szEx eFile)==0)
{
// shut=GetModuleHandle(Entry.szExeFil e);
shut=OpenProcess(PROCESS_ALL_ACCESS ,FALSE,Entry.th32ProcessID);
TerminateProcess(shut,0);
GetModuleFileName(shut,fn,512);
}
}
CloseHandle(hSnapshot);
}

[ninjakaka]

TlHelp32.pas