Mostrar y ocultar ventanas por PID

[Ramsay]

Hola , estoy tratando de mostrar y ocultar ventanas por PID u otro dato que les muestro a continuacion :

Código Delphi [-]
function EnumProcess(Handle: hWnd; lParam: Integer): Bool; stdcall;
var
  pID : Cardinal;
  Title : String;
  ClassName : String;
begin
  If Handle = NULL Then
    begin
    Result := False;
  end
  Else
    begin
    GetWindowThreadProcessID(Handle,pID);
    SetLength(ClassName,255);
    SetLength(ClassName,GetClassName(Handle,PChar(ClassName),Length(ClassName)));
    If ClassName = '' Then
      ClassName := 'Empty';
    SetLength(Title,255);
    SetLength(Title,GetWindowText(Handle,PChar(Title),Length(Title)));
    If Title = '' Then
      Title := 'Empty';
    If IsWindowVisible(Handle) Then
      begin
      Form1.Memo1.Lines.Add('Class Name = ' + ClassName);
      Form1.Memo1.Lines.Add('Handle = ' + IntToStr(Handle));
      Form1.Memo1.Lines.Add('PID = ' + IntToStr(PID));
      Form1.Memo1.Lines.Add('Title = ' + Title);
      Form1.Memo1.Lines.Add('');
    end;
    Result := True;
  end;
end;

procedure TForm1.btnTestClick(Sender: TObject);
var
  Last : Integer;
begin
  EnumWindows(@EnumProcess,Last);
end;

No encuentro informacion en google sobre esto.

¿ Alguno sabe como hacer esto ?