引用 | 編輯
rockman326
2007-03-07 12:22 |
樓主
▼ |
||
x0
以下這段程式是查看目前執行中的process,它找出來的是 ProcessID 而用於結束程序時則需要 ProcessHandle,請問如何由 ProcessID 找出其 ProcessHandle unit ufMain; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, TLHelp32; type TzfMain = class(TForm) edNote: TMemo; pnTop: TPanel; bnList: TButton; procedure FormCreate(Sender: TObject); procedure bnListClick(Sender: TObject); private procedure ListJob(); public end; var zfMain: TzfMain; implementation {$R *.dfm} procedure TzfMain.FormCreate(Sender: TObject); begin // end; procedure TzfMain.bnListClick(Sender: TObject); begin ListJob(); end; procedure TzfMain.ListJob(); var mHPSnap,mHMSnap: integer; mPE: tagProcessEntry32; .. 訪客只能看到部份內容,免費 加入會員 x0
|