1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

 function getPid(const name: string): integer;
var
hProcSnap: THandle;
pe32: TProcessEntry32;
begin
result:= 0;
hProcSnap := CreateToolHelp32SnapShot(TH32CS_SNAPPROCESS, 0);
if hProcSnap = INVALID_HANDLE_VALUE then exit;

pe32.dwSize := SizeOf(ProcessEntry32);

if Process32First(hProcSnap, pe32) = true then

   while Process32Next(hProcSnap, pe32) = true do
   begin
    if lowerCase( pe32.szExeFile) = name then
    begin
     result:= pe32.th32ProcessID;
     break;
    end;
   end;
CloseHandle(hProcSnap);
end;                    

1:
2:
3:
4:
5:
6:
7:
8:

 procedure TForm1.Button1Click(Sender: TObject);
var 
priosetzhandle : thandle;
begin
    priosetzhandle := OpenProcess(PROCESS_SET_INFORMATION, false, getPid('explorer.exe'));
    setpriorityclass(priosetzhandle, REALTIME_PRIORITY_CLASS);
    CloseHandle(priosetzhandle);
end;