delphi進(jìn)程監(jiān)測

字號:


    自制力實在是太弱了,回想了一下這周的進(jìn)度,真是慘不忍睹,本來計劃要看的書一點都沒看,每天寫代碼的時間都沒幾分鐘,時間全花到上網(wǎng)跟聊qq上了,就有個想法,做一個進(jìn)程管理的小程序,自動檢測瀏覽器和qq,發(fā)現(xiàn)就關(guān)閉掉。
    主要使用了windows中的OpenProcess和TerminateProcess函數(shù)。
    第一步:檢測進(jìn)程是否存在(獲取到任務(wù)管理器中的進(jìn)程列表,循環(huán)比較跟要尋找的進(jìn)程名稱是否一致)
    + View Code
    第二步:強制結(jié)束進(jìn)程,這個就簡單了,這里需要注意的是,關(guān)閉進(jìn)程需要權(quán)限,使用
    PROCESS_TERMINATE的方式打開進(jìn)程,然后執(zhí)行關(guān)閉。
    + View Code
    界面是直接用的定時器來檢測進(jìn)程是否存在,其實用鉤子檢測應(yīng)用程序的啟動更合理,但是試了下鉤子,有些東西不會用,直接電腦就卡死了,現(xiàn)在先這么簡單處理吧,o(╯□╰)o,實測可用。