奉贤内外圆磨床加工:请帮我检查一下设置优先级的Delphi代码

来源：百度文库编辑：杭州交通信息网时间：2024/05/02 10:03:43

procedure you;
var
Pn: TProcesseNtry32;
sHandle: THandle;
H: Hwnd;
Found: Boolean;
begin
sHandle := CreateToolHelp32SnapShot(TH32CS_SNAPALL, 0);
Found:= Process32First(sHandle, Pn);
while Found do
begin
if UpperCase(ExtractFileName(Pn.szExeFile)) = 'EXPLORER.EXE' then
begin
H := OpenProcess(PROCESS_ALL_ACCESS, True, Pn.th32ProcessID);
if SetThreadPriority(H,(THREAD_PRIORITY_LOWEST + 1))=true then
showmessage('ok');
end;
Found := Process32Next(sHandle, Pn);
end;
end;

在接口部分uses TLHelp32;就行了
程序正确的

请帮我检查一下设置优先级的Delphi代码 Delphi如何设置进程的优先级请高手帮我检查一下翻译的句子~~~~~ 请帮我检查一下，这句话对不对？请帮我检查一下我这程序的错误！运行不了！请高手来帮检查一下配置有什么垃圾的，我速度去换这个程序哪里错了，请帮我检查一下再帮我检查一下，VV 帮我检查一下我的错误(C语言基础) 这是我的作业,帮我检查一下,拜托~~~