WinAmp beenden?

[TheMiller]

Hi möchte Winamp automatisch beenden. Jetzt habe ich den Code :

Delphi-Quellcode:

var
  run:boolean;
  Speed:integer;
  Programm:string;

procedure SetRun(Value:boolean;Rate:integer;ProgrammName:string);
var
  ThreadHandle: THandle;
  ThreadID: DWORD;

  procedure killProgramm;
  begin
  while Run do
    begin
    sleep(Speed);
    if FindWindow(NIL,PChar(Programm))<>0 then PostMessage(FindWindow(NIL,PChar(Programm)), wm_close, 1, 1);
    end;
  end; 

begin 
Speed:=Rate;
Programm:=ProgrammName;
if Run=Value then exit; 
Run:=Value;
if Value then 
  begin 
  sleep(1);
  ThreadHandle:=CreateThread(nil, 0, TFNThreadStartRoutine(@killProgramm),@ProgrammName, 0, ThreadID); 
  if ThreadHandle<>0 then CloseHandle(ThreadHandle);
  end; 
end;

gefunden.

Er funzt auch einwandtfrei. Nur als zu schliesendes Programm kann ich nciht WinAmp eingeben, da es ja im Titel immer den Liednamen hat. Wie kann ich das ändern, bzw, was muss ich für einen Code benutzen?

Danke im Vorraus