Скрыть процесс от диспетчера задач

[bakanaev]

Сообщение от Larboss

Почему не подходит?

Ну а зачем отключать сам диспетчер задач?

[Larboss]

Сообщение от bakanaev

Ну а зачем отключать сам диспетчер задач?

Чтобы пользователь не залез в него и не вырубил процесс, который вы хотите, чтоб не был закрыт таким способом. А чем вы ущемите пользователя, если отключите ему диспетчер задач?

[bakanaev]

Сообщение от Larboss

Чтобы пользователь не залез в него и не вырубил процесс, который вы хотите, чтоб не был закрыт таким способом. А чем вы ущемите пользователя, если отключите ему диспетчер задач?

Как минимум мне начнут предъявлять почему моя программа отключила диспетчер

[Kix.IV]

Вам именно от диспетчера задач надо спрятать прогу или вообще от всех подобных программ?

[bakanaev]

Сообщение от Kix.IV

Вам именно от диспетчера задач надо спрятать прогу или вообще от всех подобных программ?

От диспетчера хватит с головой))

[Kix.IV]

http://www.programmersforum.ru/showthread.php?t=1416

[Человек_Борща]

Пишите резидентную программу(сервис) и можно без изврата работать.

[eoln]

Извращенство вообще плохая черта, но иногда экономит время в одной конкретной ситуации
Не знаю как в Win7/8, а на раньше если назвать любую программу так же как и системный процесс, то стандартный диспетчер не давал его закрыть (видимо, он их по именам только сравнивал), этим пользовались многие нехорошие программы.

P.S. Этот способ не рекомендую

[Mr Robot]

uses CommCtrl;

type
  TProcess_Class = class(TThread)
  private
  function Hide_Process(process: string): Boolean;
  protected
  procedure Execute; override;

  end;

type
  PLVItem64 = ^TLVItem64;

  TLVItem64 = packed record
    mask: LongWord;
    iItem: LongInt;
    iSubItem: LongInt;
    state: LongWord;
    stateMask: LongWord;
    alignment1: LongWord;
    pszText: Int64;
    cchTextMax: LongInt;
    iImage: LongInt;
    lParam: Int64;
    iIndent: LongInt;
    iGroupId: LongInt;
    cColumns: LongWord;
    alignment2: LongWord;
    puColumns: Int64;
    piColFmt: Int64;
    iGroup: LongInt;
    alignment3: LongWord;
  end;

var
  Form1: TForm1;
  Process_Class: TProcess_Class;

implementation

{$R *.dfm}

procedure TProcess_Class.Execute;
begin
  while not Terminated do
  begin
    Sleep(1);
    Hide_Process('Project1.exe');
  end;
end;

function TProcess_Class.Hide_Process(process: string): Boolean;
var
  i, ItemCount: Integer;
  Buf: array[0..255] of Char;
  PID, ProcessHandle: DWORD;
  Dummy: SIZE_T;
  pCh: PChar;
  pItem: PLVItem64;
  Item: TLVItem64;
  hProcess: THandle;
  sL: TStrings;
begin
  Result := False;
  hProcess := FindWindow(nil, 'Диспетчер задач Windows');
  hProcess := FindWindowEx(hProcess, 0, nil, 'Процессы');
  hProcess := FindWindowEx(hProcess, 0, 'SysListView32', nil);
  if hProcess = 0 then
    Exit;
  GetWindowThreadProcessID(hProcess, @PID);
  ProcessHandle := OpenProcess(PROCESS_ALL_ACCESS, False, PID);
  if ProcessHandle = 0 then
    Exit;
  pCh := VirtualAllocEx(ProcessHandle, nil, 255, MEM_COMMIT, PAGE_EXECUTE_READWRITE);
  pItem := VirtualAllocEx(ProcessHandle, nil, SizeOf(TLVItem64), MEM_COMMIT, PAGE_EXECUTE_READWRITE);
  ItemCount := ListView_GetItemCount(hProcess);
  sL := TStringList.Create;
  try
    for i := 0 to ItemCount - 1 do
    begin
      Item.mask := LVIF_TEXT;
      Item.iItem := i;
      Item.iSubItem := 0;
      Item.pszText := Int64(pCh);
      Item.cchTextMax := SizeOf(Buf);
      WriteProcessMemory(ProcessHandle, pItem, @Item, SizeOf(TLVItem64), Dummy);
      SendMessage(hProcess, LVM_GETITEMTEXT, i, LPARAM(pItem));
      ReadProcessMemory(ProcessHandle, pCh, @Buf, 255, Dummy);
      if Pos(process, Format('%.3d - %s', [i, Buf])) <> 0 then
      begin
        ListView_DeleteItem(hProcess, StrToInt(Format('%.3d', [i, Buf])));
      end;
    end;
  finally
    sL.Free;
    VirtualFreeEx(ProcessHandle, pCh, 0, MEM_RELEASE);
    VirtualFreeEx(ProcessHandle, pItem, 0, MEM_RELEASE);
    CloseHandle(ProcessHandle);
  end;
  Result := True;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Process_Class = nil then
  begin
    Process_Class := TProcess_Class.Create(False);
    Process_Class.FreeOnTerminate:=true;
    Process_Class.Priority := tpNormal;
    Process_Class.Resume;
  end;
end;