AutoUpgrader組件showmessages屬性中的NoUpdateAvailable設置成false以后 點擊檢查升級，如果無可用版本，將不會提示，如何在不啟用NoUpdateAvailable的情況下實現(xiàn)提示呢（為了應付手動、自動升級兩種情形），這樣做：

procedure TMainForm.NoUpdateAvailable(Sender: TObject);
begin
  Application.MessageBox('不需要更新', '系統(tǒng)提示', MB_OK);
end;

procedure TMainForm.Gengxin(Sender: TObject);
begin
 //手動檢查更新 如果沒有可用升級 提示之 NoUpdateAvailable
  auAutoUpgrader1.OnNoUpdateAvailable := NoUpdateAvailable;
  auAutoUpgrader1.CheckUpdate;
end;