Prioritäten setzen "SetPriorityClass"

[Vjay]

Da ich dir keine fertige Lösung bieten möchte:

Schau dir mal die Hilfe zu "OpenProcess" an.

Die PId des WMPlayers bekommst du so:

Delphi-Quellcode:

//if getPid('wmplayer.exe') <> 0 then läuft

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);

 { wenn es geklappt hat }
 if Process32First(hProcSnap, pe32) = true then
   { und los geht's }
   while Process32Next(hProcSnap, pe32) = true do
   begin
    if lowerCase( pe32.szExeFile) = name then
    begin
     result:= pe32.th32ProcessID;
     break;
    end;
   end;
 CloseHandle(hProcSnap);
end;

Die Unit TlHelp32 mußt du mit einbinden. Damit solltest du es hinbekommen.