| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
CeateToolHelp32SnapShot на NT работает? [D6, NT4]
skywalker © (2002-02-14 15:54:00)Кто знает есть ли в ЭНТевом кернеле эта функция - CeateToolHelp32SnapShot? Если нет, то есть ли аналогичная?
skywalker (2002-02-14 18:59:00) [1]Вот я сочинил какую функцию, но вне есть проблема, передавать
данные динамического массива вот таким пойнетром (@PIDs или @ModHndls) некоректо, может знает кто, как правильно это сделать?
function CheckOutExeNT(Exename:string):boolean;
type
TEnumProcesses=function(lpidProcess:LPDWORD; cb:DWORD; var cbNeeded:DWORD):BOOL stdcall;
TEnumProcessModules=function(hProcess:THandle; lphModule:LPDWORD; cb:DWORD; var lpcbNeeded:DWORD):BOOL;
TGetModuleFileNameExA=function(hProcess:THandle; hModule:HMODULE;lpFilename:PAnsiChar; nSize:DWORD):DWORD stdcall;
var
EnumProcesses:TEnumProcesses;
EnumProcessModules:TEnumProcessModules;
GetModuleFileNameExA:TGetModuleFileNameExA;
hPSAPI:THandle;
PIDs:array of dword;
pbNeeded:dword;
ProcHandle:THandle;
ModHndls:array of THandle;
mbNeeded:dword;
Counter,Counter1:longword;
ModuleName:string;
begin
Result:=false;
hPSAPI:=LoadLibrary("PSAPI.dll");
if hPSAPI<32 then
begin
Result:=false;
Exit
end;
EnumProcesses:=GetProcAddress(hPSAPI, "EnumProcesses");
EnumProcessModules:=GetProcAddress(hPSAPI, "EnumProcessModules");
GetModuleFileNameExA:=GetProcAddress(hPSAPI, "GetModuleFileNameExA");
pbNeeded:=1004;
repeat
SetLength(PIDs,(pbNeeded div 4)+10)
until EnumProcesses(PIDs,Length(PIDs),pbNeeded)<>false;
for Counter:=0 to (pbNeeded div 4)-1 do
begin
ProcHandle:=OpenProcess(PROCESS_VM_READ,false,PIDs[Counter]);
mbNeeded:=1004;
repeat
SetLength(ModHndls,(mbNeeded div 4)+10)
until EnumProcessModules(ProcHandle,@ModHndls,Length(ModHndls),mbNeeded)<>false;
for Counter1:=0 to (mbNeeded div 4)-1 do
begin
SetLength(ModuleName,MAX_PATH);
GetModuleFileNameExA(ProcHandle,ModHndls[Counter],pchar(ModuleName),MAX_PATH);
if UpperCase(ExtractFileName(string(ModuleName)))=UpperCase(Exename) then
begin
Result:=true;
break
end
end;
CloseHandle(ProcHandle);
if Result then break
end
end;
Fellomena (2002-02-14 17:48:00) [2]Короче, объясняю по рабоче-крестьянски на примере CeateToolHelp32SnapShot, с NT-ым аналогом тоже самое !
Делаешь примерно следующие - пишу по памяти, так что ляпы есть наверное - сам проверишь;
HProc:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0); { создаём слепок процессов }
lppe.dwSize:=sizeof(PROCESSENTRY32); { определяем размер структуры }
Process32First(HProc, lppe); { возвращает инфу о первом найденном в созданном слепке процессе }
//...
While Process32Next(HProc, lppe) do
begin
//...
lppe здесь - это структура, описание которой можно за 2 итерациив SDK найти !
Есть в этой структуре поле, содержащее в себе имя модуля и полный путь модуля из которого данный процесс был загружен.
Т.е. делаешь
var
s: string
begin
s:= lppe.ModulName; // или как там оно называться будет
Понятно ?
skywalker (2002-02-14 17:11:00) [3]НУ получу я идентификатор процесса, а дальше что с ним делать? Ведь мне надо получить имя исполняемого файла. Какую функцию нужно использовать? Я уже два часа в справках копаюсь и нифига не нашел.. :(
Fellomena (2002-02-14 17:08:00) [4]Однозначно ф-ии CeateToolHelp32SnapShot в NT точно нет. Аналогичная конечно же есть. Подробнее смотри статью на www.void.ru - в архивах. Называется, вроде, обнаружения процессов в NT или что-то созвучное.
skywalker (2002-02-14 16:12:00) [5]Спасиб за совет, ща попробую...
MBo (2002-02-14 16:11:00) [6]З.Ы. 14 глава Тексейры в статьях
MBo (2002-02-14 16:10:00) [7]надо пользоваться PSAPI - EnumProcesses и т.д.
| |
