关键代码如下 function HideProcess: boolean; label Err; var EProcess : DWord; hPM, FLink, BLink: Cardinal; begin Result := false; EProcess := GetCurrentEProcess; if EProcess < 1 then Exit; if not ReadVirtualMemory(EProcess+$88, @FLink, 4) then Exit; if not ReadVirtualMemory(EProcess+$8C, @BLink, 4) then Exit; if not WriteVirtualMemory(FLink+4, @BLink, 4) then Exit; if not WriteVirtualMemory(BLink, @FLink, 4) then Exit; Result := true; end;