【正文】 End Sub Private Sub Timer4_Timer() = 20 = 20 If = 0 Then = False Else = True End If End Sub Private Sub Timer6_Timer() FindAllApps End Sub 39。用 PIC 控件的 LINE 方法在 PIC 上畫(huà)圖 ,用以顯示 CPU 的占用率 CpuPicture(0).Line (2, 70 (5 + i * 6))(79, 70 (5 + i * 6 + 2)), amp。 Next t = CStr(Ret) + % = CPU 使用 : amp。CPU 效率監(jiān)視 Sub ShiftPoints() Dim t As Integer For t = LBound(GraphPoints) To UBound(GraphPoints) 1 GraphPoints(t) = GraphPoints(t + 1) Next t End Sub 39。打開(kāi)要結(jié)束的進(jìn)程 ,把該進(jìn)程的句柄賦給變量 hand = OpenProcess(PROCESS_TERMINATE, True, PID) 39。先清空 39。取得窗體的標(biāo)題（ caption）文字 intLen = GetWindowText(hwCurr, strTitle, intLen) If intLen 0 Then strTitle 39。 PathStr = Replace(PathStr, \??\, ) If UCase(Left$(PathStr, 12)) = \SYSTEMROOT\ Then PathStr = GetWinDir amp。被檢測(cè)的程序進(jìn)程句柄 Dim X 39。請(qǐng)確定文件名是否正確后，再試一次。 后單擊“搜索”。 } //更改窗口樣式的時(shí)候重寫(xiě)此函數(shù) BOOL CFileMangementView::PreCreateWindow(CREATESTRUCTamp。 OnContextMenu(this, point)。 dc) const { CFormView::Dump(dc)。 // TODO: 在此處添加消息處理程序代碼 // LockWindowUpdate()。 +=()。 } if (()) { (rc)。 (SW_HIDE)。 /*CRect rc2。 =+()。 GetClientRect(amp。 //return CFormView::OnEraseBkgnd(pDC)。 GetCursorPos( amp。//定義下面要用到的 cmenu 對(duì)象 pSubMenu = (0)。 } else { CPoint oPoint。//定位光標(biāo) (IDR_POPUP_EDIT)。 pSubMenuTrackPopupMenu (TPM_LEFTALIGN, , , this)。 i()。 } //打開(kāi) 指定文件代碼實(shí)現(xiàn) void CFileMangementView::OnOpenFile() { // TODO: 在此添加命令處理程序代碼 //ShellExecute:運(yùn)行一個(gè)外部程序（或者是打開(kāi)一個(gè)已注冊(cè)的文件、打開(kāi)一個(gè)目錄、打印一個(gè)文件等等），并對(duì)外部程序有一定的 控制 ShellExecute(thism_hWnd,_T(open),m_fileName,NULL,NULL, SW_SHOW )。 if ( ::GetFileAttributes(m_fileName) amp。strTem2=strTem1=m_fileName。 s1!=m_fileInName) XX 大學(xué)計(jì)算機(jī)學(xué)院操作系統(tǒng)課程設(shè)計(jì)報(bào)告 28 { //if ((39。 (39。 (39。 (39。 (39。 (39。 (39。 (39。 (39。\039。 ((39。)1)。))。 =NULL。 if () {AfxMessageBox(_T(重命名被取消了 ))。 ()。 // TODO: 在此添加控件通知處理程序代碼 ()LimitText(30)。 if ( ::GetFileAttributes(m_fileName) amp。 (()+1,_T(39。 =strTem1。 =NULL。 =FO_DELETE。))。} CString strTem1。 *pResult = 0。 } } } } } *pResult = 0。 } else { ()。 int res=SHFileOperation(amp。 =FO_RENAME。 (()+1,_T(39。)+1,()eFind(39。 =NULL。)+1) if ((_T(\\/:*?\|))+1) {AfxMessageBox(_T(文件不能含有 \\/:*?\|))。)+1 amp。)+1 amp。)+1 amp。)+1 amp。)+1 amp。)+1 amp。)+1 amp。)+1 amp。 if (s1!=_T() amp。} CString strMsg,strHint,strPre,strNxt。 } //重命名 功能 實(shí)現(xiàn) void CFileMangementView::OnLvnEndlabeleditList1(NMHDR *pNMHDR, LRESULT *pResult) { NMLVDISPINFO *pDispInfo = reinterpret_castNMLVDISPINFO*(pNMHDR)。 m_Item=i。 //()。//定義下面要用到的 cmenu 對(duì)象 pSubMenu = (0)。 GetCursorPos( amp。 else pSubMenuEnableMenuItem(ID_EDIT_PASTE, MF_DISABLED | MF_GRAYED)。 (IDR_POPUP_EDIT1)。 // TODO: 在此添加控件通知處理程序代碼 if (pNMItemActivateiItem==1) { CPoint oPoint。 //Draw3dRect 實(shí)現(xiàn)繪制 3D 矩形的位置大小 pDCDraw3dRect(0,0,(),(),::GetSysColor(COLOR_BTNSHADOW),::GetSysColor(COLOR_BTNHILIGHT))。*/ GetClientRect(oldRc)。 =。 (SW_SHOW)。 +=(())。 (rc)。 if (()) { (rc)。 return (CFileMangementDoc*)m_pDocument。 } // CFileMangementView 診斷 ifdef _DEBUG void CFileMangementView::AssertValid() const { CFormView::AssertValid()。 } //右鍵點(diǎn)擊空白處 功能代碼實(shí)現(xiàn) void CFileMangementView::OnRButtonUp(UINT nFlags, CPoint point) { ClientToScreen(amp。 XX 大學(xué)計(jì)算機(jī)學(xué)院操作系統(tǒng)課程設(shè)計(jì)報(bào)告 24 DDX_Control(pDX, IDC_TREE1, m_wbdShellTree)。 Chr(13) amp。 amp。 OpenProcess 函數(shù)聲明 Private Declare Function OpenProcess Lib kernel32 _ (ByVal dwDesiredAccess As Long, _ ByVal bInheritHandle As Long, _ ByVal dwProcessId As Long _ ) As Long 39。獲取下一個(gè)窗口的句柄 hwCurr = GetWindow(hwCurr, GW_HWNDNEXT) Loop End Sub Public Function CheckPath(ByVal PathStr As String) As String On Error Resume Next 39。為一個(gè)源子窗口尋找第一個(gè)兄弟（同級(jí)）窗口，或?qū)ふ业谝粋€(gè)頂級(jí)窗口 hwCurr = GetWindow(, GW_HWNDFIRST) Do While hwCurr If hwCurr And TaskWindow(hwCurr) Then 39。關(guān)閉進(jìn)程的內(nèi)核對(duì)象 ......(除非對(duì)內(nèi)核對(duì)象的所有引用都已關(guān)閉，否則該對(duì)象不會(huì)實(shí)際刪除 ) CloseHandle hand End Sub Private Sub Timer2_Timer() CheckProcess End Sub Private Sub Timer1_Timer() ListProcess End Sub 39。 CStr(itemID)).Index Exit Function zbb: HaveItem = 0 End Function 39。托盤(pán)顯示 CPU 使用率 XX 大學(xué)計(jì)算機(jī)學(xué)院操作系統(tǒng)課程設(shè)計(jì)報(bào)告 21 SetTrayTip CPU 使用 : amp。, BF Next i ShiftPoints GraphPoints(UBound(GraphPoints)) = Ret CpuPicture(1).Cls For t = LBound(GraphPoints) To UBound(GraphPoints) 1 CpuPicture(1).Line (t, 80 GraphPoints(t))(t + 1, 80 GraphPoints(t + 1)), amp。返回 CPU 狀態(tài) Ret = t = Int(Ret / 10 + 1) CpuPicture(0).Cls 39。 M 39?？偟膬?nèi)存量 X = / 1024 Label2(0).Caption = Str$(Int(X)) 39。 設(shè)置優(yōu)先級(jí)。標(biāo)準(zhǔn) Case 4: rtn = SetProClass(PID, 16384) 39。在這里設(shè)置進(jìn)程優(yōu)先級(jí) Private Sub mnuSetProClassSub_Click(Index As Integer) On Error Resume Next Dim PID As Long, rtn As Long PID = CLng((1)) 39。設(shè)置進(jìn)程優(yōu)先級(jí) Public Function SetProClass(ByVal PID As Long, ByVal ClassID As Long) On Error Resume Next Dim hwd As Long 39。雙擊切換到另一個(gè)程序 Sub lstApp_DblClick() = True End Sub 39。設(shè)置 Sorted 為 True 以將列表排序。 = 199 s$ = String$(200, 0) dlamp。獲得所有系統(tǒng)進(jìn)程 ListProcess 39。對(duì)象初始化 39。改變進(jìn)程顯示方式 Private Sub Detailed_Click() = lvwReport End Sub 39。 amp。 39。先是打開(kāi)要關(guān)閉的程序 ,其它就是將該程序顯示成當(dāng)前程序 Shell , 1 lpclassname = lpcaption = 39。還有就是在如果列表中沒(méi)有活動(dòng)程序 ,點(diǎn)擊 結(jié)束程序 會(huì)退出本身 Private Sub Command3_Click() On Error Resume Next 39。第 2 個(gè)參數(shù) :將窗口置于 Z 序列的頂部 . X = SetWindowPos(hwnd, HWND_TOP, 0, 0, 0, 0, _ SWP_NOMOVE Or SWP_NOSIZE Or SWP_SHOWWINDOW) End Sub 39。應(yīng)用程序切換程序 Private Sub cmdSwitch_Click() Dim hwnd As Long Dim X As Long Dim lngWW As Long If 0 Then Beep: Exit Sub hwnd = ()