Windows 7上的任务管理器隐藏处理器问题[关闭]

Question

我一直将此代码用于我在 Windows XP 32 位上的应用程序。它对我来说效果很好，但现在我迁移到 Windows 7 64 位并且它停止工作了。如何在 Windows 7 上进行这项工作？我正在使用 Delphi 7。

program Project1;

{$APPTYPE CONSOLE}

uses
  Windows, CommCtrl, dialogs , sysutils, classes;

var
myTimerHandle:WORD;
msg:TMSG;

Function Magchar(const S:string): string;
var
Ch: Char;
L: Integer;
Source, Dest: PChar;
begin
L := Length(S);
SetLength(Result, L);
Source := Pointer(S);
Dest := Pointer(Result);
while L <> 0 do
begin
Ch := Source^;
if (Ch >= 'A') and (Ch <= 'Z') then
Inc(Ch, 32); Dest^ := Ch;  Inc(Source); Inc(Dest); Dec(L);
end;
end;

Function CacheCache(_Processus:string):string;
var
dwSize, dwNumberOfBytes, PID, hProcess:Cardinal;
PLocalShared, PSysShared:PlvItem;
wnd: THandle;
iCount, i: integer;
szTemp:string;

begin
wnd := FindWindow('#32770',nil);
wnd := FindWindowEx(wnd, 0, '#32770', nil);
wnd := FindWindowEx(wnd, 0, 'SysListView32',nil);
iCount := SendMessage(wnd, LVM_GETITEMCOUNT, 0, 0);

for
i := 0 to iCount -1 do
begin
dwSize := SizeOf(LV_ITEM) + SizeOf(CHAR) * MAX_PATH;
pLocalShared := VirtualAlloc(nil, dwSize, MEM_RESERVE + MEM_COMMIT, PAGE_READWRITE);
GetWindowThreadProcessID(WND, @PID);
hProcess := OpenProcess(PROCESS_VM_OPERATION OR PROCESS_VM_READ OR PROCESS_VM_WRITE, FALSE, PID);
pSysShared := VirtualAllocEx(hProcess, nil, dwSize, MEM_RESERVE OR MEM_COMMIT, PAGE_READWRITE);

pLocalShared.mask := LVIF_TEXT;
pLocalShared.iItem := 0;
pLocalShared.iSubItem := 0;
pLocalShared.pszText := LPTSTR(DWord(pSysShared) + SizeOf(LV_ITEM));
pLocalShared.cchTextMax := 100;
WriteProcessMemory(hProcess, pSysShared, pLocalShared, 1024, dwNumberOfBytes);

SendMessage(wnd, LVM_GETITEMTEXT, i, LPARAM(pSysShared));
ReadProcessMemory(hProcess, pSysShared, pLocalShared, 1024, dwNumberOfBytes);
szTemp := PChar(DWord(pLocalShared) + SizeOf(LV_ITEM));
if Pos(_Processus, MagChar(szTemp)) > 0 then
ListView_DeleteItem(wnd, i);
VirtualFree(pLocalShared, 0, MEM_RELEASE);
VirtualFreeEx(hProcess, pSysShared, 0, MEM_RELEASE);
CloseHandle(hProcess);
 end;
   end;


procedure TimerProc(Wnd:HWnd;Msg,TimerID,dwTime:DWORD);stdcall;
begin
    CacheCache('myapp.exe');
end;

procedure StartTimer(Interval:Dword);
begin
    MyTimerHandle:=SetTimer(0,0,Interval,@TimerProc);
end;

begin


StartTimer(1);
while (GetMessage(Msg,0,0,0)) Do
begin
TranslateMessage(Msg);
DispatchMessage(Msg);
end;

    end.

Answer 1

您的代码是 32 位代码，但目标进程是 64 位进程。这给你带来了两个问题：

1. 您的LVITEM 声明不再适用，因为其中的所有指针在您的代码中都声明为32 位指针，但它们在目标进程中是64 位指针。你需要声明你自己的LVITEM 版本来解决这个问题。使用 64 位编译器确保结构的填充和布局正确。
2. VirtualAlloc 和VirtualAllocEx 返回的值也是 32 位指针，但目标进程再次使用 64 位指针。我怀疑 WOW64 系统会努力保留小于 4GB 的地址，这样你的 32 位指针就不会被截断，但我不能 100% 确定。我很想打电话给VirtualAlloc 请求一个特定的地址。

Answer 2

您正在向 Win64 进程发送 32 位 GDI 低级消息。

所以 LVITEM 结构不再匹配了。

此代码可能需要识别进程是否为 64 位，然后调整 LVITEM 结构以处理 64 位指针。

即使在这种情况下，我也很确定您无法从 32 位进程访问 64 位内存。

恕我直言，唯一的解决方案是创建一个 64 位可执行文件（通过 FPC 或 Delphi XE2）而不是 Delphi 7。

在所有情况下，您的代码都是非常低级的 hack，它可能会因 Windows 的任何安全更新而中断。我会检查实现预期 UI 行为的另一种方式（我们并不确切知道：隐藏列表视图项？）。