Форум: "Система";
Поиск по всему сайту: 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.031 c
6-66332           maxi                  2001-10-25 13:30  2002.01.21  
По поводу ITransport в TSocketConnection


6-66333           Talgat                2001-10-21 21:58  2002.01.21  
SMPP(Short Message Peer to Peer)


6-66317           Leviathan             2001-10-26 17:17  2002.01.21  
Файл через TCP/IP !


1-66248           Leo^Sun               2002-01-01 04:19  2002.01.21  
Tmemo


3-66185           DS                    2001-12-17 16:51  2002.01.21  
Кирица в DBD