如何用 win32api 或其他程式方法 kill process

有關Delphi 的語法, 程式, 等
回覆文章
頭像
tim
文章: 1380
註冊時間: 2008年 11月 26日, 00:49

如何用 win32api 或其他程式方法 kill process

文章 tim »

轉貼自:
http://delphi.ktop.com.tw/topic.asp?TOPIC_ID=19543
http://bbs.toseek.info/cgi-bin/topic.cg ... ic=3&show=

改為 delphi 版:

代碼: 選擇全部

     
    procedure Tform1.Button1Click(Sender: TObject); 
    var 
      h, t: HWND; 
      d: DWORD; 
    begin 
      h := FindWindow(nil, '記事本 - 未命名'); 
      if h<>0 then 
      begin 
        GetWindowThreadProcessId(h, @d); 
        t := OpenProcess(PROCESS_ALL_ACCESS,false,d); 
        TerminateProcess(t, 0); 
      end; 
    end; 
多多留言, 整理文章, 把經驗累積下來.....
回覆文章