updateplabelwitharchitecture={}

function updateplabelwitharchitecture.update(t)
  t.destroy()

  if updateplabelwitharchitecture.updatecount==0 then
    local marker=''
    if targetIs64Bit() then
      marker='(64 Bit)'
    else
      marker='(32 Bit)'
    end
    getMainForm().ProcessLabel.Caption=getMainForm().ProcessLabel.Caption..' '..marker
  end
  updateplabelwitharchitecture.updatecount=1
end

updateplabelwitharchitecture.onOpenProcess=onOpenProcess

function onOpenProcess(pid)
  if updateplabelwitharchitecture.onOpenProcess~=nil then
    updateplabelwitharchitecture.onOpenProcess(pid)
  end
  updateplabelwitharchitecture.updatecount=0


  local t=createTimer(nil, true)
  t.OnTimer=updateplabelwitharchitecture.update
  t.Interval=1
end