процессы
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя  |
| Сообщение |
<< Старые топики Новые топики >> |
|
|
процессы - 2005-03-06 16:08:50
|
|
|
Logger
Сообщений: 66
Оценки: 0
Присоединился: 2005-01-29 15:44:59
|
На информатике уже задолбали всякими PageMaker-ами и Excel-ями. Может кто подскажет, как в дельфе сделать прогу, которая будет сканить процессы и убивать заранее заданные.
|
|
|
|
|
процессы - 2005-03-06 19:17:27
|
|
|
ни разу не дигитал ака свалил
Сообщений: 695
Оценки: 0
Присоединился: 2005-02-22 19:55:08
|
могу сказть как убить прогу не по названию процесса а по названию заголовка.
|
|
|
|
|
процессы - 2005-03-07 09:57:58
|
|
|
rgo
Сообщений: 7170
Оценки: 281
Присоединился: 2004-09-25 05:14:25
|
read win32api, and be happy
|
|
|
|
|
процессы - 2005-03-07 13:40:03
|
|
|
ни разу не дигитал ака свалил
Сообщений: 695
Оценки: 0
Присоединился: 2005-02-22 19:55:08
|
гы универсальныи совет для дельфи[sm=1.gif][sm=2.gif]
|
|
|
|
|
процессы - 2005-03-16 17:31:54
|
|
|
Logger
Сообщений: 66
Оценки: 0
Присоединился: 2005-01-29 15:44:59
|
Может че по реальнее подскажете, по названию окна я уже убивал - не интересно это
|
|
|
|
|
процессы - 2005-03-17 19:13:23
|
|
|
dqpb
Сообщений: 294
Оценки: 0
Присоединился: 2005-03-17 18:28:23
|
Дерзай.Все для тебя[sm=10.gif]
unit Unit1;
interface
uses
windоws,Tlhelp32, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Timer1: TTimer;
procedure Timer1Timer(Sender: TоЬjесt);
procedure FormCreate(Sender: TоЬjесt);
private
public
end;
var
Form1: TForm1;
function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer; stdcall; external 'KERNEL32.DLL';
implementation
{$R *.dfm}
function KillTask(ExeFileName: string): integer;
const
PROCESS_TERMINATE=$0001;
var
ContinueLoop: BOOL;
FSnapshotHandle: THandle;
FProcessEntry32: TProcessEntry32;
begin
result := 0;
FSnapshotHandle := CreateToolhelp32Snapshot
(TH32CS_SNAPPROCESS, 0);
FProcessEntry32.dwSize := Sizeof(FProcessEntry32);
ContinueLoop := Process32First(FSnapshotHandle,
FProcessEntry32);
while integer(ContinueLoop) <> 0 do
begin
if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =
UpperCase(ExeFileName))
or (UpperCase(FProcessEntry32.szExeFile) =
UpperCase(ExeFileName))) then
Result := Integer(TerminateProcess(OpenProcess(
PROCESS_TERMINATE, BOOL(0),
FProcessEntry32.th32ProcessID), 0));
ContinueLoop := Process32Next(FSnapshotHandle,FProcessEntry32);
end;
CloseHandle(FSnapshotHandle);
end;
procedure TForm1.Timer1Timer(Sender: TоЬjесt);
begin
KillTask('Твоя жертва');
end;
end.
|
|
|
|
|
процессы - 2005-03-18 17:31:12
|
|
|
Logger
Сообщений: 66
Оценки: 0
Присоединился: 2005-01-29 15:44:59
|
Very, very thanks. Ты не поверишь, но незадолго до просмотра этого сообщения у меня друг выбрал ник Dozer. Совпадение?[sm=em121.gif]
|
|
|
|
|
|
