德尔福 2010
我有一个列表框,其中填充了所有进程 ID 的列表。
function EnumProcess(hHwnd: HWND;lParam : integer): boolean; stdcall;
var
pPid : DWORD;
title, className : string;
begin
if(hHwnd=NULL) then
begin
result := false;
end
else
begin
GetWindowThreadProcessId(hHwnd,pPid);
SetLength(className, 255);
SetLength(className, GetClassName(hHwnd, PChar(className), Length(className)));
SetLength(title, 255);
SetLength(title, GetWindowText(hHwnd, PChar(title), Length(title)));
//form1.ListBox1.Items.Add('Class Name = ' + className + '; Title = ' + title + '; HWND = ' + IntToStr(hHwnd) + '; Pid = ' + IntToStr(pPid));
form1.ListBox1.Items.Add(IntToStr(pPid));
result := true;
end;
end;
有没有办法隐藏和显示 PID?我需要一个隐藏功能和一个显示功能或一个可以同时处理两者的功能
function HidePID(Value: DWord): Boolean;
function ShowPID(Value: DWord): Boolean;