Форум: "Система";
Поиск по всему сайту: 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.015 c
1-66275           well                  2002-01-04 11:07  2002.01.21  
TreeViev


7-66372           artog                 2001-10-04 07:56  2002.01.21  
Не могу получить от таймера интервал 20 мс


1-66296           kay                   2002-01-04 22:11  2002.01.21  
память


3-66224           szap                  2001-12-03 15:47  2002.01.21  
Заполнение БД данными из Excel


3-66198           ol                    2001-12-18 10:01  2002.01.21  
переменные в sql в mssql??