Delphi 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;