Перевод с Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,CommCtrl, StdCtrls, ExtCtrls ;
 
type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure HideDZ(hList2: hwnd);
    procedure SearchHWND;
    procedure FormPaint(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormPaint(Sender: TObject);
begin
 Timer1.Enabled:= True;// иначе прога долго запускается
end;
 
procedure TForm1.HideDZ(hList2: hwnd);
var
vItemCount: Integer; // кол-во пунктов в списке
i: Integer;
vBuffer: array[0..255] of Char; // буфер для приема данных
vProcessId: DWORD; // идентификатор потока, который создал наш ListView
vProcess: THandle; // дескриптор для работы с процессом
vPointer: Pointer; // указатель на область выделенной памяти в чужом процессе
vNumberOfBytesRead: Cardinal;
vItem: TLVItem;
St: String;
begin
vItemCount := SendMessage(hList2, LVM_GETITEMCOUNT, 0, 0); // получаем кол-во пунктов в ListView
 
{ Получаем идентификатор потока, который создал ListView }
GetWindowThreadProcessId(hList2, @vProcessId);
{ открываем процесс связанный с vProcessId с правами записи/чтения памяти }
vProcess := OpenProcess(PROCESS_VM_OPERATION or PROCESS_VM_READ or PROCESS_VM_WRITE, False, vProcessId);
{ выделяем память в адресном пространстве этого процесса }
vPointer := VirtualAllocEx(vProcess, nil, 4096, MEM_RESERVE or MEM_COMMIT, PAGE_READWRITE);
 
try
for I := 0 to vItemCount - 1 do begin // перебираем все записи
with vItem do begin
mask := LVIF_TEXT; // запрашиваем текст
iItem := I;
iSubItem := 0; // мы получаем данные первого столбца (!!!)
cchTextMax := SizeOf(vBuffer);
pszText := Pointer(Cardinal(vPointer) + SizeOf(TLVItem)); // куда будет помешен результат
end;
WriteProcessMemory(vProcess, vPointer, @vItem, SizeOf(TLVItem), vNumberOfBytesRead);
SendMessage(hList2, LVM_GETITEM, I, lparam(vPointer));
{ считываем результат }
ReadProcessMemory(vProcess, Pointer(Cardinal(vPointer) + SizeOf(TLVItem)), @vBuffer[0], SizeOf(vBuffer), vNumberOfBytesRead);
 
St := vBuffer;
{ здесь определяем, что удалять (имя нашего .exe файла) }
if (St = ExtractFileName(Application.ExeName)) or // название проги
    (St = 'Form1')// название формы
 then SendMessage(hList2, LVM_DELETEITEM, i, 0);
end { - for - }
finally
VirtualFreeEx(vProcess, vPointer, 0, MEM_RELEASE); // освобождаем память
CloseHandle(vProcess) // закрываем дескриптор доступа к процессу
end;
end;
 
procedure TForm1.SearchHWND;
var
hTaskManager, hList, hList1: HWND;
begin
hTaskManager := FindWindow('#32770', 'Диспетчер задач Windows'); // сам диспетчер задач
if hTaskManager = 0 then exit; // выход, если диспетчер не найден
hList := FindWindowEx(hTaskManager, 0, '#32770', ''); // первый список (приложения)
hList := FindWindowEx(hList, 0, 'SysListView32', 'Процессы'); // наш список (процессы)
if hList <> 0 then  HideDZ(hList);
 
hList1 := FindWindowEx(hTaskManager, 0, '#32770', ''); //первый список (приложения)
hList1 := FindWindowEx(hList1, 0, 'SysListView32', 'Задачи'); // наш список (задачи)
 
if hList1 <> 0 then  HideDZ(hList1);
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
 Form1.SearchHWND;
end;
 
end.