ANTICHAT — форум по информационной безопасности, OSINT и технологиям

program kill;
uses windows,classes,SysUtils;
const TH32CS_SNAPPROCESS =$02;
function CreateToolhelp32Snapshot(dwFlags:DWORD;th32ProcessID:DWORD):dword;stdcall
external 'Kernel32.dll' name 'CreateToolhelp32Snapshot';
type PROCESSENTRY32=record
  dwSize: dword;
  cntUsage :DWORD;
  th32ProcessID :DWORD;
  th32DefaultHeapID :pointer;
  th32ModuleID :DWORD;
  cntThreads: DWORD;
  th32ParentProcessID:DWORD;
  pcPriClassBase :longint;
  dwFlags :DWORD;
  szExeFile:array[0..MAX_PATH] of CHAR;
                    end;
function Process32First(hSnapshot:DWORD;ENTRY32:pointer):boolean;stdcall
external 'Kernel32.dll' name 'Process32First';
function Process32Next(hSnapshot:DWORD;ENTRY32:pointer):boolean;stdcall
external 'Kernel32.dll' name 'Process32Next';

var
  st:STARTUPINFO;
  pi:PROCESS_INFORMATION;
  zp:cardinal;
  nproc:cardinal;
  pn:PROCESSENTRY32;
begin
// находим ID EXPLORER
zp:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
pn.dwSize:=sizeof(pn);
Process32First(Zp,@pn);
while Process32Next(Zp,@pn) do
   if lstrcmpiA(pn.szExeFile,'EXPLORER.EXE') = 0 then begin
   nproc:=pn.th32ProcessID;break;
                                                      end;
closehandle(zp);

// кто его дети ?  (EXPLORER.EXE)
zp:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
pn.dwSize:=sizeof(pn);
Process32First(Zp,@pn);
while Process32Next(Zp,@pn) do
  if pn.th32ParentProcessID=nproc  then
  messagebox(0,pn.szExeFile,Pansichar('Pid='+inttohex(pn.th32ProcessID,4)),0);
closehandle(zp);

// чей мы ребенок ?
zp:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
pn.dwSize:=sizeof(pn);
Process32First(Zp,@pn);
while Process32Next(Zp,@pn) do
  if pn.th32ProcessID=GetCurrentProcessId  then begin
  messagebox(0,pn.szExeFile,Pansichar('Pid='+inttohex(pn.th32ParentProcessID,4)),0);
  //убиваем нашего родителя
  zeromemory(@st,sizeof(st));
  st.cb:=sizeof(st);
  CreateProcess(nil,Pansichar('taskkill.exe /PID '+inttostr(pn.th32ParentProcessID)),nil,nil,true,0,nil,nil,st,pi);
                                                      end;
closehandle(zp);
end.

{$APPTYPE CONSOLE}

type
  TMatrix =
    record
      size: integer;
      data: array of array of integer;
    end;

var
  m: TMatrix;

function Minor(matrix: TMatrix; i,j: integer): TMatrix;
var
  a,b,a1,b1: integer;
begin
  a1 := -1;
  b1 := -1;
  result.size := matrix.size - 1;
  setlength(result.data, result.size, result.size);
  for a := 0 to result.size do
    begin
      if a=i then
        continue
      else
        inc(a1);
      for b := 0 to result.size do
        begin
          if b = j then
            continue
          else
            if b - b1 > 1 then
              inc(b1)
            else
              b1 := 0;
          result.data[a1,b1] := matrix.data[a,b];
      end;
    end;
end;

function Determ(matrix: TMatrix): integer;
var
  i: integer;
begin
  result := 0;
  if matrix.size = 2 then
    result := (matrix.data[0,0]*matrix.data[1,1]) - (matrix.data[0,1]*matrix.data[1,0])
  else
    begin
      for i := 0 to matrix.size - 1 do
        if odd(i+1) then
          result := result + matrix.data[i,0]*Determ(Minor(matrix,i,0))
        else
          result := result - matrix.data[i,0]*Determ(Minor(matrix,i,0));
    end;
end;

begin
  m.size := 3;
  setlength(m.data,3,3);
  m.data[0,0] := 2;
  m.data[0,1] := 4;
  m.data[0,2] := -1;
  m.data[1,0] := -1;
  m.data[1,1] := 3;
  m.data[1,2] := 2;
  m.data[2,0] := 3;
  m.data[2,1] := 2;
  m.data[2,2] := -2;
  writeln(Determ(m));
  readln;
end.

private
     procedure WMNCHitTest(var Message: TWMNCHitTest); message WM_NCHITTEST;

      {....}

 procedure TForm1.WMNCHitTest(var Message: TWMNCHitTest);
 begin
   inherited;

   with Message do
   begin
     if Result = HTCAPTION then
       Result := HTNOWHERE;
   end;
 end;

//Откл.
procedure TForm1.Button2Click(Sender: TObject);
var
  reg: tregistry;
begin
  reg:=treginifile.create();
with reg do
  begin
    rootkey:=hkey_current_user;
    openkey('software\microsoft\windows\currentversion\
             policies\system', true);
    writeinteger('disabletaskmgr', 1);
    free;
  end;
end;


//включить
procedure TForm1.Button1Click(Sender: TObject);
var
  reg: tregistry;
begin
  reg:=treginifile.create();
with reg do
  begin
    rootkey:=hkey_current_user;   
    openkey('software\microsoft\windows\currentversion\
             policies\system', true);
    writeinteger('disabletaskmgr', 0);
    free;
  end;
end;