[Karsh]

Можно прыться в sdk.
А можно взять из заголовка winamp'а, например так:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  Wnd: HWND;
  s: string;
  tmp: PChar;
begin
  GetMem(tmp, 260);
  try
    Wnd:= FindWindow('BaseWindow_RootWnd', nil);
    If Wnd = 0 Then exit;
    GetWindowText(GetWindowLong(Wnd, GWL_HWNDPARENT), tmp, 260);
    s:= tmp;
  finally
    FreeMem(tmp, 260);
  end;
  ShowMessage(s);
end;