請教各位前輩 如何取某一程式之Process ? 如在程式中使用 GetCurrentProcess() 可取得目前程式的 Process 但要如何用取得某一執行中程式的Process? 目前只知取得 Thread 方法 非常非常的謝謝你,因為有你這世界變的更美好 ☆ ^_^ ☆ °∴°．☆° ．‧°∴°．° ．‧°∴°． ．‧°∴°．☆° ．‧°∴°．° ．‧°∴°．．‧°∴°．☆

不曉得，這個是不是你要的 GetProcessIdOfThread

引言: 不曉得，這個是不是你要的 GetProcessIdOfThread

謝謝前輩!! 不好意思,我發現我不知如何取 Thread , 目前是用findwindow()取得別的程式的 Handle 但不知如何轉為 Thread 及 Process ? 我用GetWindowThreadProcessId(application.Handle , nil) 好像也不對?? 跟GetCurrentProcess()結果不一樣?

其實我的目的是要調整某一程式的優先權(CPU) 如下用 SetPriorityClass() // 將 Process 的 Priority 調高 SetPriorityClass(hProcess, HIGH_PRIORITY_CLASS);

OK 我搞清楚了，不過，有點複雜，不曉得有沒有比較簡單的方法 先說一下流程，我沒 Try 也不知道可不可以用就是了 以 SetPriorityClass 來說的話，要傳進去的是 Process Handle 而 FindWindow 傳回來的是 Window Handle 所以我們要想辦法把 Window Handle 轉成 Process Handle 再來以 GetWindowThreadProcessID 來講，它的參數有二 前為 Window Handle 後為傳回來的 ProcessID 所以，你只要後面給它傳回值(不設成 nil) GetWindowThreadProcessID( hWin, ProcessID) 這樣就轉成 ProcessID，不過，ProcessID 不是 Process Handle 所以還要再一個步驟 用 OpenProcess(PROCESS_SET_INFORMATION, 0, ProcessID) 就會傳回來 Process Handle 讓你可以放到 SetPriorityClass 去設定優先權 邏輯上大致是這麼做，如果可行的話，請告訴我一些 就麻煩你測試看看了

謝謝前輩 測試後己可以成功設定如下: procedure TForm1.Button1Click(Sender: TObject); var hWin:HWND; ProcessID: DWORD ; Process:THandle ; begin hWin:= findwindow(nil, Pchar('未命名 - 記事本')) ; GetWindowThreadProcessID( hWin, ProcessID) ; Process:= OpenProcess(PROCESS_SET_INFORMATION,false, ProcessID); SetPriorityClass( Process,REALTIME_PRIORITY_CLASS) ; end; ---------------------------------------------------- 但 謂何無法取得GetPriorityClass() 會一定傳回0 如下,不知那錯了?? procedure TForm1.Button2Click(Sender: TObject); var hWin:HWND; ProcessID: DWORD ; Process:THandle ; begin hWin:= findwindow(nil, Pchar('未命名 - 記事本')) ; GetWindowThreadProcessID( hWin, ProcessID) ; Process:= OpenProcess(PROCESS_SET_INFORMATION,false, ProcessID); showmessage(inttostr( GetPriorityClass( Process))) ; end; 謝謝前輩.....

引言: Process:= OpenProcess(PROCESS_SET_INFORMATION,false, ProcessID);

改成 Process := OpenProcess(PROCESS_QUERY_INFORMATION, False, ProcessID); 順便列出他們的值 #define NORMAL_PRIORITY_CLASS 0x00000020 #define IDLE_PRIORITY_CLASS 0x00000040 #define HIGH_PRIORITY_CLASS 0x00000080 #define REALTIME_PRIORITY_CLASS 0x00000100 所以，你應該會得到 256

引言:

引言: Process:= OpenProcess(PROCESS_SET_INFORMATION,false, ProcessID);

改成 Process := OpenProcess(PROCESS_QUERY_INFORMATION, False, ProcessID); 順便列出他們的值 #define NORMAL_PRIORITY_CLASS 0x00000020 #define IDLE_PRIORITY_CLASS 0x00000040 #define HIGH_PRIORITY_CLASS 0x00000080 #define REALTIME_PRIORITY_CLASS 0x00000100 所以，你應該會得到 256

原來是要改參數,,,我可要多學學英語了 萬份感謝