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

bool KillProcByPid(DWORD pid)
{
DWORD ExitCode;
HANDLE hp;
bool ret = true;

if(pid)
        {
        hp = OpenProcess(PROCESS_ALL_ACCESS, true, pid);
        if (hp)
                {
                GetExitCodeProcess(hp, &ExitCode);
                ret = TerminateProcess(hp, ExitCode);
                }
        else
                {
                return false;
                }
        }
else
        {
        return false;
        }

CloseHandle(hp);
return ret;
}

procedure TForm1.KillProcess(PID: Cardinal);
var
  exitcode:UINT;
  x:THandle;
begin
  x:=Openprocess(PROCESS_TERMINATE,false,PID);
  if x <> 0 then begin
    try
      TerminateProcess(x, 0);
    finally
      CloseHandle(x);
    end;
  end;
end;

var i,j : integer; 
mas : array[1..15] of integer;
 sort : array[1..15] of integer;
 
begin 
j:=1; 
 
for i:=0 to 15 do  
begin
mas[i]:=StrToInt(StringGrid1.Cells[i,0]);  
end; 
 
for i:=0 to 15 do 
 begin  
if (mas[i] < 0) then 
 begin  
sort[j]:=mas[i]; 
 j:=j+1;
 end;  
end; 
 
for i:=0 to 15 do  
begin  
if (mas[i] = 0) then 
 begin  
sort[j]:=mas[i];  j:=j+1; 
end; 
end; 

 for i:=0 to 15 do  
begin 
 if (mas[i] > 0) then  
begin  
sort[j]:=mas[i];  j:=j+1;  
end; 
 end; 

 for i:=0 to 15 do 
 begin  
StringGrid1.Cells[i,0]:=IntToStr(sort[i]);  
end;