操作系統(tǒng)課程設計---windows系統(tǒng)資源管理器與任務管理器

上傳人：奔*** IP屬地：河北更新時間：2024-03-01 格式：docx 頁數(shù)：48 大小：1.91MB 人氣指數(shù)：12 舉報 版權(quán)申訴

操作系統(tǒng)課程設計---windows系統(tǒng)資源管理器與任務管理器_第1頁

已閱讀1頁，還剩47頁未讀，繼續(xù)免費閱讀

版權(quán)說明：本文檔由用戶提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權(quán)，請進行舉報或認領

文檔簡介

1、　　XX大學課程設計報告　　課程設計題目： Windows系統(tǒng)資源管理器與任務管理器 　　學院： 　　專業(yè)班級：

2、 　　年級： 2008級 　　姓名： 　　學號： &l

3、t;p>　　完成時間： 2012 年 7 月 3 日　　成績： 　　指導教師： 　　教務處<

4、;p>　　課程設計任務書　　摘要　　操作系統(tǒng)是一個介于軟件和硬件之間的特殊硬件，一方面分配硬件資源另一方面支持軟件在它上面的實現(xiàn)，如何實時地監(jiān)控和掌握系統(tǒng)軟硬件工作的狀態(tài)、資源分配和使用的情況，對計算機用戶而言十分重要，于是就有了任務管理器這樣的實時監(jiān)控窗口；同理，

5、我們也需要掌握計算機硬件設備的工作狀態(tài)，掌握其如何存儲文件、分配硬盤資源等，這也是我們做資源管理器的初衷。　　我們的電腦需要我們?nèi)チ私馑倪\行狀況，掌握和管理它的進程，并對其異常情況給予操作和控制，任務管理器就像是我們了解和控制自己電腦運作的一個窗口，通過這個窗口我們可以了解到電腦所有進程運行狀況，并對運行的進程加于管理和控制，正如在本實驗中，啟動進程管理器后，可以通過”獲取進程”功能來獲得本計

6、算機啟動的進程，以及與該進程相關的信息，其中包括的信息有：進程映像名稱，進程開啟的線程數(shù)，進程的PID以及進程的優(yōu)先數(shù)，我們可以通過這些信息來了解計算機中每個進程的使用狀況。同時我們可以在進程管理器上選中一個要終止的的進程，點擊“終止進程”功能按鈕，該進程被終止執(zhí)行并退出進程列表，其中還包括了自動刷新的功能，此按鈕實現(xiàn)的功能正如我們電腦任務管理器的“進程”功能，當電腦執(zhí)行程序不能通過關閉窗口進行正常的關閉時，可以借助此辦法來關閉進程。我

7、們還可以通過這個進程管理器來啟動新的進程，當我們要在進程管理器里啟動新的進程時，只要點擊“啟動新進程”按鍵，則會彈出“打開進程”對話框，我們可以通過對話框里的“瀏覽”窗口選擇要打開的新進程，這是任務管理器里沒有實現(xiàn)的功能，通過這個功能我們在管理計算機時變得更加靈活方便，也　　關鍵詞：任務管理器資源管理器操作系統(tǒng)　　課程設計要求<

8、;/b>　　題目名稱：Windows系統(tǒng)資源管理器與任務管理器　　題目類型：設計型　　課程設計目的：熟悉操作系統(tǒng)資源管理原理，掌握編程接口，能夠使用高級語言調(diào)用編程接口，設計并實現(xiàn)Windows操作系統(tǒng)資源管理器和任務管理器的全部功能。<p

9、>　　已知參數(shù)和設計要求：　　熟悉操作系統(tǒng)資源管理原理，掌握編程接口，能夠使用高級語言調(diào)用編程接口，設計并實現(xiàn)Windows操作系統(tǒng)資源管理器的全部功能(包括：菜單、圖標、右鍵菜單)，實現(xiàn)軟件資源和數(shù)據(jù)資源的管理；　　掌握操作系統(tǒng)任務與進程概念，熟悉任務與進程管理的方法，通過高級語言編程接口設計并實現(xiàn)Windows操作系統(tǒng)任務管理器的全部功能(包括

10、：菜單、右鍵菜單、應用程序管理、進程管理、性能顯示、聯(lián)網(wǎng)狀態(tài)和用戶信息)。　　實驗內(nèi)容：　　了解Windows操作系統(tǒng)的發(fā)展歷史；　　了解Windows XP的體系結(jié)構(gòu)；　　掌握Windows系統(tǒng)API的調(diào)用方法；

11、　　設計并實現(xiàn)Windows操作系統(tǒng)資源管理器的全部功能(包括：菜單、圖標、右鍵菜單)，實現(xiàn)軟件資源和數(shù)據(jù)資源的管理；　　設計并實現(xiàn)Windows操作系統(tǒng)任務管理器的全部功能(包括：菜單、右鍵菜單、應用程序管理、進程管理、性能顯示、聯(lián)網(wǎng)狀態(tài)和用戶信息)。　　設計概要<

12、;p>　　2.1功能設計　　本項目是為了實現(xiàn)模擬Windows系統(tǒng)任務管理器和資源管理器。項目的分析及功能設計要求如下：　　編程模擬實現(xiàn)Windows系統(tǒng)任務管理器和資源管理器兩個應用程序；　　服務器端可以對文件進行管理，包括上傳，下載，刪除文件，重命名等；</p

13、>　　客服端可以實現(xiàn)文件的上傳、下載以及查看服務器下默認目錄的文件列表；　　在程序中應用多線程來實現(xiàn)多個客戶端同時對一個服務器端進行請求操作。　　2.2程序系統(tǒng)功能模塊　　2.2.1 Windows任務管理器功能模塊　　圖2.

14、1　　2.2.2 Windows資源管理器功能模塊　　圖2.2　　2．3功能分析　　2.3.1 Windows任務管理器功能流程圖&l

15、t;b>　　圖2.3　　2.3.2 Windows資源管理器功能流程圖　　圖2.4　　2.3.3 Windows任務管理器界面截圖　　整體界面&l

16、t;p>　　不同狀態(tài)顯示的截圖　　2.3.4 Windows資源管理器界面截圖　　整體界面：　　2、功能界面展示：　　“文件”功能展示

17、　　“編輯”功能展示　　“視圖”功能展示　　“幫助”功能展示　　2.3.5 程序主要功能說明

18、　一、Windows任務管理器主要功能代碼實現(xiàn)：　　'獲得進程代碼實現(xiàn)　　Public Sub ListProcess()　　On Error Resume Next　　Dim i As Long, j As Long, n

19、As Long　　Dim proc As PROCESSENTRY32　　Dim snap As Long　　Dim exename As String '應用程序名　　Dim item As ListItem　　Di

20、m lngHwndProcess As Long　　Dim lngModules(1 To 200) As Long　　Dim lngCBSize2 As Long　　Dim lngReturn As Long　　Dim strModuleName As String&l

21、t;/p>　　Dim pmc As PROCESS_MEMORY_COUNTERS　　Dim WKSize As Long　　Dim strProcessName As String　　Dim strComment As String '裝載進程注釋的字符串</p&g

22、t;　　Dim ProClass As String '程序的類名　　'開始進程循環(huán)　　snap = CreateToolhelpSnapshot(TH32CS_SNAPall, 0)　　proc.dwSize = Len(proc)

23、　　theloop = ProcessFirst(snap, proc)　　i = 0　　n = 0　　While theloop <> 0&

24、lt;b>　　i = i + 1　　'打開指定的進程序,并得到進程的句柄　　lngHwndProcess = OpenProcess(PROCESS_QUERY_INFORMATION Or PROCESS_VM_READ, 0, proc.th32ProcessID)　　If

25、lngHwndProcess <> 0 Then　　'枚舉系統(tǒng)中正在運行的進程模板　　lngReturn = EnumProcessModules(lngHwndProcess, lngModules(1), 200, lngCBSize2)　　If lngReturn <> 0

26、Then　　'返回特定數(shù)目空格的　　strModuleName = Space(MAX_PATH)　　'獲取一個已裝載模板的完整路徑名稱　　lngReturn = GetModuleFileNameExA(lngHwndProcess, lngModule

27、s(1), strModuleName, 500)　　strProcessName = Left(strModuleName, lngReturn)　　strProcessName = CheckPath(Trim$(strProcessName))　　If strProcessName <> &qu

28、ot;" Then　　'判斷ITEM是否已經(jīng)存在　　j = HaveItem(proc.th32ProcessID)　　If j = 0 Then '如果沒有該進程　　'獲取短文件名</p&g

29、t;　　exename = Dir(strProcessName, vbNormal Or vbHidden Or vbReadOnly Or vbSystem)　　If exename = "hh.exe" Then　　'MsgBox SetProClass(proc.th32ProcessID, ID

30、LE_PRIORITY_CLASS)　　End If　　'添加進程item　　Set item = List1.ListItems.Add(, "ID:" & CStr(proc.th32Process

31、ID), exename)　　'進程ID　　item.SubItems(1) = proc.th32ProcessID　　'內(nèi)存使用　　pmc.cb = LenB(pmc)<

32、/p>　　'獲得進程的內(nèi)存信息,在這里就是計算該進程占用內(nèi)存多少　　lret = GetProcessMemoryInfo(lngHwndProcess, pmc, pmc.cb)　　n = n + pmc.WorkingSetSize　　WKSize = pmc.Workin

33、gSetSize / 1024　　item.SubItems(3) = WKSize & " K"　　'進程序IP號　　item.SubItems(2) = GetProClass(proc.th32ProcessID)

34、　　'進程圖標將獲取的圖標加到IMAGE控件中　　IM1.ListImages.Add , strProcessName, GetIcon(strProcessName)　　item.SmallIcon = IM1.ListImages.item(strProcessName).Key

35、;　　Else '如果已經(jīng)有該進程　　pmc.cb = LenB(pmc)　　'獲得進程的內(nèi)存信息,在這里就是計算該進程占用內(nèi)存多少　　lret = GetProcessMemoryInfo(lngHwndProcess, pmc, pmc.cb)

36、　n = n + pmc.WorkingSetSize　　WKSize = pmc.WorkingSetSize / 1024 '計算占用內(nèi)存　　If CLng(List1.ListItems.item(j).SubItems(3)) <> WKSize Then List1.ListItems.item(j).SubItems(3

37、) = WKSize & " K"　　'獲得進程的類名　　ProClass = GetProClass(proc.th32ProcessID)　　If ProClass <>List1.ListItems.item(j).Sub

38、Items(5) Then List1.ListItems.item(j).SubItems(5) = ProClass　　End If　　End If　　End If<

39、p>　　End If　　theloop = ProcessNext(snap, proc)　　Wend　　CloseHandle snap　　'顯示總進程數(shù) Label3</p

40、>　　If i <> ProCount Then　　Label3.Caption = "進程數(shù)：" & i　　ProCount = i　　End If　　If n &

41、lt;> RamUse Then '這里的"130"是后來加上去的.是為了和系統(tǒng)自帶的數(shù)值一樣　　Label5.Caption = Val(FormatLng(n)) + 130 & "MB"　　RamUse = n　　For i = 950

42、To Val(FormatLng(n)) + 400 Step -90　　rampic.Line (0, i)-Step(1200, 20), &HFF00&, BF　　Next i　　End If

43、　　End Sub　　'調(diào)用系統(tǒng)的"關于"窗　　Private Sub about_Click()　　On Error Resume Next　　ShellAbout Me.hwnd, A

44、pp.Title, "譚建&文程&張源", ByVal 0&　　End Sub　　'退出本程序員　　Private Sub close_Click()<p&

45、gt;　　tmrRefresh.Enabled = False　　Unload Me　　End Sub　　Private Sub CloseSystem_Click()　　tmrRefresh.E

46、nabled = False　　Unload Me　　End Sub　　'應用程序切換程序　　Private Sub cmdSwitch_Click(

47、)　　Dim hwnd As Long　　Dim X As Long　　Dim lngWW As Long　　If LstApp.ListIndex < 0 Then Beep: Exit Sub　　hwnd = LstAp

48、p.ItemData(LstApp.ListIndex)　　'取得窗口的結(jié)構(gòu)信息　　lngWW = GetWindowLong(hwnd, GWL_STYLE)　　If lngWW And WS_MINIMIZE Then　　'控制窗口的

49、可見性　　X = ShowWindow(hwnd, SW_RESTORE)　　End If　　'指定一個窗口新的位置 '第2個參數(shù):將窗口置于Z序列的頂部.　　X = SetWindowPos(hw

50、nd, HWND_TOP, 0, 0, 0, 0, _　　SWP_NOMOVE Or SWP_NOSIZE Or SWP_SHOWWINDOW)　　End Sub '保持當前位置或保持當前大小或顯示窗口　　'彈出"新建任務"窗　　Pr

51、ivate Sub Command1_Click()　　frmnew.Show vbModal　　End Sub　　'結(jié)束應用程序　　'還有就是在如果列表中沒有活動程序,點擊&qu

52、ot;結(jié)束程序"會退出本身　　Private Sub Command3_Click()　　On Error Resume Next　　'If LstApp.ListCount = 0 Then　　'應用程序的類名,和程序的標題

53、　　Dim lpclassname As String, lpcaption As String　　'程序的句柄號　　Dim Handle As Long　　Dim Retval As Long

54、9;先是打開要關閉的程序,其它就是將該程序顯示成當前程序　　Shell LstApp.Text, 1　　lpclassname = LstApp.Text　　lpcaption = LstApp.Text　　'獲得程序的句柄號

55、　　Handle = FindWindow(vbNullString, lpcaption)　　'用函數(shù)關閉應用程序　　PostMessage Handle, WM_Close, 0&, 0&　　'所了和列表控件一至,在這里刪除列表中的該進

56、程名　　LstApp.RemoveItem LstApp.ListIndex　　LstApp.refresh　　'刷新　　FindAllApps　　End Sub&l

57、t;/b>　　'結(jié)束指定進程功能代碼實現(xiàn)　　Private Sub Command4_Click()　　On Error Resume Next　　Dim i As Long, hand As Long, id As Long<

58、p>　　If MsgBox("確定要結(jié)束進程 " & List1.SelectedItem.Text & " 嗎？", vbExclamation + vbOKCancel) = vbCancel Then Exit Sub　　id = CLng(List1.SelectedItem.SubItems(1))&

59、lt;p>　　If id <> 0 Then　　EndPro id　　End If　　ListProcess　　End Sub</p&

60、gt;　　Private Sub Command5_Click()　　Dim AboutRet As Long　　AboutRet = ExitWindowsEx(EWX_LOGOFF, 0)　　End Sub&

61、lt;b>　　'注銷用戶功能實現(xiàn)　　Private Sub Command6_Click()　　Dim AboutRet As Long　　AboutRet = ExitWindowsEx(EWX_LOGOFF, 0)

62、　End Sub　　'切換至功能實現(xiàn)　　Private Sub cutoverto_Click()　　cmdSwitch_Click　　Me.WindowState = 1<p

63、>　　End Sub　　'改變進程顯示方式　　Private Sub Detailed_Click()　　List1.View = lvwReport　　End S

64、ub　　'結(jié)束應用程序功能實現(xiàn)　　Private Sub endprograme_Click()　　Command3_Click　　End Sub

65、　　'關機功能實現(xiàn)　　Private Sub Exit_Click()　　frmclose.Show vbModal　　End Sub　　'CPU效率監(jiān)視<

66、;/p>　　CpuPicture(0).ScaleMode = vbPixels　　CpuPicture(1).ScaleMode = vbPixels　　Set QueryObject = New CCpuwatch　　'對象初始化<

67、;/p>　　QueryObject.Initialize　　'打開時間控件　　tmrRefresh.Enabled = True　　'調(diào)用刷新過程　　t

68、mrRefresh_Timer　　'*****************************************　　'獲得所有系統(tǒng)進程　　ListProcess　　'窗體總在前</

69、b>　　SetTop Me, front.Checked　　'***************************************************　　'獲得系統(tǒng)的當前用戶　　cnt& = 199<

70、;p>　　s$ = String$(200, 0)　　dl& = GetUserName(s$, cnt)　　Set item = ListView3.ListItems.Add(, , s$, , 2)　　item.SubItems(2) = "正在運行..."</p&g

71、t;　　item.SubItems(1) = WorkstationID　　'設置系統(tǒng)托盤　　If WindowState = vbMinimized Then　　LastState = vbNormal

72、　　Else　　LastState = WindowState　　End If　　AddToTray Me, Tray　　End Sub

73、　　Private Sub Form_Resize()　　Select Case WindowState　　Case vbMinimized　　Me.Visible = False　　Case vbMaximized<p&

74、gt;　　Me.Visible = True　　End Select　　If WindowState <> vbMinimized Then　　LastState = WindowState　　Me.Visible = True<

75、p>　　End If　　End Sub　　Private Sub Form_Unload(Cancel As Integer)　　RemoveFromTray '關閉托盤　　tm

76、rRefresh.Enabled = False　　Unload Me　　End Sub　　Private Sub front_Click()　　front.Checked = Not front

77、.Checked　　SetTop Me, front.Checked　　End Sub　　Private Sub jsjc_Click()　　Command4_Click

78、End Sub　　Private Sub List1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)　　On Error Resume Next　　With List1　　'

79、;設置 Sorted 為 True 以將列表排序。　　If (ColumnHeader.Index - 1) = .SortKey Then　　.SortOrder = (.SortOrder + 1) Mod 2　　.Sorted = True　　El

80、se　　.Sorted = False　　.SortOrder = 0　　.SortKey = ColumnHeader.Index - 1　　.Sorted = True　　End If&l

81、t;/b>　　End With　　End Sub　　'右擊菜單;,,并初使化進程的優(yōu)先級別　　Private Sub List1_MouseDown(Button As Intege

82、r, Shift As Integer, X As Single, y As Single)　　On Error Resume Next　　Dim j As Long, i As Long　　If Button = 2 Then　　If List1.HitTest(X,

83、y) Is Nothing Then Exit Sub　　j = List1.HitTest(X, y).Index　　List1.ListItems(j).Selected = True　　For i = 0 To 5　　mnuSetProClassSub(i).Che

84、cked = False　　Next　　Select Case List1.SelectedItem.SubItems(2)　　Case "實時": mnuSetProClassSub(0).Checked = True<p&

85、gt;　　Case "高": mnuSetProClassSub(1).Checked = True　　Case "較高": mnuSetProClassSub(2).Checked = True　　Case "標準": mnuSetProClassSub(3).Checked = True&l

86、t;/p>　　Case "較低": mnuSetProClassSub(4).Checked = True　　Case "低": mnuSetProClassSub(5).Checked = True　　End Select　　PopupMenu

87、 you　　End If　　End Sub　　Private Sub log_Click()　　frmclose.Show vbModal

88、;　　End Sub　　'雙擊切換到另一個程序　　Sub lstApp_DblClick()　　cmdSwitch.Value = True　　End Sub<

89、;b>　　'任務窗　　Function TaskWindow(hwCurr As Long) As Long　　Dim lngStyle As Long　　'調(diào)用函數(shù)得到指定窗口的信息'第一個參數(shù)是指定窗口的句柄,第二個是窗口的樣式<

90、p>　　lngStyle = GetWindowLong(hwCurr, GWL_STYLE)　　If (lngStyle And IsTask) = IsTask Then TaskWindow = True　　End Function　　'設置進程優(yōu)先級&l

91、t;/p>　　Public Function SetProClass(ByVal PID As Long, ByVal ClassID As Long)　　On Error Resume Next　　Dim hwd As Long　　'在這里得到一個句柄

92、　　hwd = OpenProcess(PROCESS_SET_INFORMATION, 0, PID)　　'調(diào)用這個函數(shù)設置進程的優(yōu)先級　　SetProClass = SetPriorityClass(hwd, ClassID)　　End Function<

93、;p>　　'右鍵菜單　　Private Sub LstApp_MouseDown(Button As Integer, Shift As Integer, X As Single, y As Single)　　If Button = 2 Then　　PopupM

94、enu Application　　End If　　End Sub　　'在這里設置進程優(yōu)先級　　Private Sub mnuSetProClassSub_Click(Index As In

95、teger)　　On Error Resume Next　　Dim PID As Long, rtn As Long　　PID = CLng(List1.SelectedItem.SubItems(1)) '得到進程PID　　If mnuSetProClassS

96、ub(Index).Checked = True Then Exit Sub　　Select Case Index　　Case 1: rtn = SetProClass(PID, HIGH_PRIORITY_CLASS) '高　　Case 2: rtn = SetProClass(PID, 32

97、768) '較高　　Case 3: rtn = SetProClass(PID, NORMAL_PRIORITY_CLASS) '標準　　Case 4: rtn = SetProClass(PID, 16384) '較低<

98、;p>　　Case 5: rtn = SetProClass(PID, IDLE_PRIORITY_CLASS) '低　　End Select　　If rtn = 0 Then MsgBox "無法為進程 " & List1.SelectedItem.Text & " 設置優(yōu)先級。&q

99、uot;, vbCritical　　End Sub　　'彈出"新建任務"窗　　Private Sub newfile_Click()　　frmnew.Show vbModal<

100、p>　　End Sub　　Private Sub plaseago_Click()　　cmdSwitch_Click　　End Sub　　Private Sub refresh_Click(

101、)　　frmclose.Show vbModal　　End Sub　　'刷新　　Private Sub refresh1_Click()　　Fin

102、dAllApps　　End Sub　　Private Sub showago_Click()　　showago.Checked = Not showago.Checked　　SetTop Me, showago.Checked<

103、/p>　　End Sub　　Private Sub small_Click()　　List1.View = Index + 2　　List1.Sorted = True　　End Sub&

104、lt;/b>　　Private Sub SSTab1_DblClick()　　End Sub　　Private Sub Timer3_Timer()　　Dim X As Long　　Ca

105、ll GlobalMemoryStatus(minfo)　　'總的內(nèi)存量　　X = -minfo.dwTotalPhys / 1024　　Label2(0).Caption = Str$(Int(X))　　&

106、#39;可用的內(nèi)存量　　X = minfo.dwAvailPhys / 1024　　Label2(1).Caption = Str$(Int(X))　　'系統(tǒng)緩存　　Label2(2).Caption =

107、-(Val(Label2(0)) - Val(Label2(1)) - 500)　　'虛擬內(nèi)存總數(shù)　　X = minfo.dwTotalVirtual / 1024　　Label7(0).Caption = Str$(Int(X / 1024)) & &quo

108、t; M"　　'可用虛擬內(nèi)存　　X = minfo.dwAvailVirtual / 1024　　Label7(1).Caption = Str$(Int(X / 1024)) & " M"

109、;　　End Sub　　Private Sub Timer4_Timer()　　Line14.X2 = Line14.X2 - 20　　Line14.X1 = Line14.X1 - 20　　If Line14.X1 = 0 Then

110、　　Timer4.Enabled = False　　Else　　Timer4.Enabled = True　　End If　　End S

111、ub　　Private Sub Timer6_Timer()　　FindAllApps　　End Sub　　'CPU效率監(jiān)視

112、　Private Sub tmrRefresh_Timer()　　Dim Ret As Integer　　Dim cnt As Integer　　Dim i As Integer　　'返回CPU狀態(tài)&l

113、t;p>　　Ret = QueryObject.Query　　cnt = Int(Ret / 10 + 1)　　CpuPicture(0).Cls '清除窗口中的內(nèi)容　　If Ret <> -1 Then　　For i = 0 To cnt

114、- 1　　'用PIC控件的LINE方法在PIC上畫圖,用以顯示CPU的占用率　　CpuPicture(0).Line (2, 70 - (5 + i * 6))-(79, 70 - (5 + i * 6 + 2)), &HFF00&, BF　　Next i</b&g

115、t;　　ShiftPoints　　GraphPoints(UBound(GraphPoints)) = Ret　　CpuPicture(1).Cls　　For cnt = LBound(GraphPoints) To UBound(GraphPoints) - 1<

116、/p>　　CpuPicture(1).Line (cnt, 80 - GraphPoints(cnt))-(cnt + 1, 80 - GraphPoints(cnt + 1)), &HFF00&　　Next cnt　　CpuLabel.Caption = CStr(Ret

117、) + "%"　　Label4.Caption = "CPU 使用:" &CStr(Ret) + "%"　　'托盤顯示CPU使用率　　SetTrayTip "CPU 使用:" &CStr(Ret) + &quo

118、t; %"　　End If　　End Sub　　'CPU效率監(jiān)視　　Sub ShiftPoints()<p&g

119、t;　　Dim cnt As Integer　　For cnt = LBound(GraphPoints) To UBound(GraphPoints) - 1　　GraphPoints(cnt) = GraphPoints(cnt + 1)　　Next cnt</p&

120、gt;　　End Sub　　'判斷item是否存在　　Public Function HaveItem(ByVal itemID As Long) As Long　　On Error GoTo zbb

121、HaveItem = List1.ListItems("ID:" & CStr(itemID)).Index　　Exit Function　　zbb:　　HaveItem = 0　　End Function

122、　　'結(jié)束一個進程　　Public Sub EndPro(ByVal PID As Long)　　On Error Resume Next　　Dim lngHwndProcess As Long<

123、p>　　Dim hand As Long　　Dim exitCode As Long　　'打開要結(jié)束的進程,把該進程的句柄賦給變量　　hand = OpenProcess(PROCESS_TERMINATE, True, PID)

124、9;結(jié)束進程　　TerminateProcess hand, exitCode　　'關閉進程的內(nèi)核對象......(除非對內(nèi)核對象的所有引用都已關閉，否則該對象不會實際刪除)　　CloseHandle hand　　End Su

125、b　　Private Sub Timer2_Timer()　　CheckProcess　　End Sub　　Private Sub Timer1_Timer()　　List

126、Process　　End Sub　　'將正在運行的應用程序加到列表控件中　　Sub FindAllApps()　　Dim hwCurr As Long　　Dim intLen As L

127、ong　　Dim strTitle As String　　Dim item As ListItem　　'先清空　　LstApp.Clear　　'獲取一個窗口的句柄

128、'為一個源子窗口尋找第一個兄弟（同級）窗口，或?qū)ふ业谝粋€頂級窗口　　hwCurr = GetWindow(Me.hwnd, GW_HWNDFIRST)　　Do While hwCurr　　If hwCurr <> Me.hwnd And TaskWindow(hwCurr) Then</

129、p>　　'調(diào)查窗口標題文字或控件內(nèi)容的長短　　intLen = GetWindowTextLength(hwCurr) + 1　　strTitle = Space$(intLen)　　'取得窗體的標題（caption）文字　　i

130、ntLen = GetWindowText(hwCurr, strTitle, intLen)　　If intLen > 0 Then　　LstApp.AddItem strTitle　　'Set item = LstApp.ListItems.Add(, , strTitle, 3)</p&

131、gt;　　LstApp.ItemData(LstApp.NewIndex) = hwCurr　　End If　　End If　　'獲取下一個窗口的句柄　　hwCurr

132、 = GetWindow(hwCurr, GW_HWNDNEXT)　　Loop　　End Sub　　Public Function CheckPath(ByVal PathStr As String) As String

133、;　　On Error Resume Next　　'返回一個字符串，該字符串中指定的子字符串已被替換成另一子字符串，并且替換發(fā)生的次數(shù)也是指定的。　　PathStr = Replace(PathStr, "\??\", "")　　If UCas

134、e(Left$(PathStr, 12)) = "\SYSTEMROOT\" Then PathStr = GetWinDir & Mid$(PathStr, 12)　　CheckPath = PathStr　　End Function　　新建一個進程的命令</

眾賞文庫> 全部分類> 畢業(yè)設計

溫馨提示

1. 本站所有資源如無特殊說明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁內(nèi)容里面會有圖紙預覽，若沒有圖紙預覽就沒有圖紙。
4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
5. 眾賞文庫僅提供信息存儲空間，僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護處理，對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對任何下載內(nèi)容負責。
6. 下載文件中如有侵權(quán)或不適當內(nèi)容，請與我們聯(lián)系，我們立即糾正。
7. 本站不保證下載資源的準確性、安全性和完整性, 同時也不承擔用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

操作系統(tǒng)課程設計---windows系統(tǒng)資源管理器與任務管理器

文檔簡介

溫馨提示

最新文檔

評論

操作系統(tǒng)課程設計---windows系統(tǒng)資源管理器與任務管理器

文檔簡介

溫馨提示

最新文檔

評論

免費下載