Форум: "Система";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.21;
Скачать: [xml.tar.bz2];




Вниз

Как получить список процессов в win2k и убить желаемый 


Giga-Byte   (2001-08-29 22:59) [0]

Как получить список процессов в win2k и убить желаемый?



Voldemar   (2001-08-30 02:56) [1]

Есть компонента RunningProcs, я ее на torry.net брал, если мне склероз не изменяет:)) Она как раз этим делом и заведует. Я на ее основе писал процессменеджер под 9х, но под 2000 тоже работает. Могу намылить.



Станислав   (2001-08-30 13:53) [2]

Приведенная ниже функция отбирает все процессы в памяти и находит процесс созданный IDAPI32.DLL, а ты можешь переделать под себя и возьми на КОРОЛЕВСТВЕ архив из книги там в 14 теме все и описано для этих целей.
Только учти если войдешь в систему не как админ не даст свои процессы поэкпериментируй.

Function WinNTPath:string;
var
Count:DWORD;
BigArray: array[0..$3FFF - 1] of DWORD;
FProcList: array of DWORD;
I,J: Integer;
ProcHand: THandle;
ModHandles: array[0..$3FFF - 1] of DWORD;
ModName, MapFileName: array[0..MAX_PATH] of char;
PathDLL:string;

begin
Result:="asdaSDA"; ProcHand:=0;
EnumProcesses(@bigarray,SIZEof(bigarray),count);

SetLength(FProcList, Count div SizeOf(DWORD));
Move(BigArray, FProcList[0], Count);

for I := Low(FProcList) to High(FProcList) do
try
ProcHand := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ,false,FProcList[I]);
EnumProcessModules(ProcHand, @ModHandles, SizeOf(ModHandles), Count);
for J := 0 to (count div SizeOf(dword)) - 1 do
try
GetModuleBaseNameA(Prochand, ModHandles[J], ModName, count);

if ModName="IDAPI32.DLL" then
begin
GetModuleFileNameEx(ProcHand, ModHandles[J],MapFileName,count);
PathDLL:=ExtractFilePath(MapFileName);
Setlength(PathDLL,length(PathDLL)-1);
Result:=PathDLL;
end;

except

end;

finally
CloseHandle(ProcHand);
end;

end;



BigFoot   (2001-10-05 13:27) [3]

Как получить список процессов в win2k и убить желаемый?

Скорее, уж, нежелаемый :)




Форум: "Система";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.21;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.018 c
1-66306           Билл Гейтс            2002-01-04 02:54  2002.01.21  
Редактор кода для Дельфи


7-66363           DNT                   2001-10-03 11:54  2002.01.21  
Margin у обычного popup menu.


1-66290           VadX                  2002-01-03 21:22  2002.01.21  
Окно программы....


14-66338          Христос               2001-11-24 14:42  2002.01.21  
WinApi


3-66187           Atrem                 2001-12-16 16:08  2002.01.21  
Что за ошибка и как ее исправить ???