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.