列举系统进程并让某一程序窗口化显示，求代码

Question

function EnumWindowsProc(hwnd:HWND;lParam:DWORD ):boolean; stdcall;
var
                  szCaption: array[0..256] of Char;
begin
                  GetWindowText(hwnd,szCaption,127);                  if (length(szCaption)>0) and (szcaption<>'') then
                  begin
                      form1.listbox1.Items.Add(szcaption);    //这里是窗体名枚举 想判断某个窗体在这里写就成
                  end;                  result:= TRUE;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  EnumWindows(@EnumWindowsProc, 0);//EnumWindows枚举进程中的所有窗口
end;可以列举系统进程，好像比使用任务管理器查看系统进程少了一些。现有一批处理程序.bat运行后，只在系统进程中显示，不显示批处理程序窗口，如何列举出引进程，并点击可以让其窗口化显示？

Answer 1

这要啥提权,
取得句柄后
ShowWindow(Handle, SW_MAXIMIZE);