Napster aktuellen Track auslesen

[dutyfree]

Ja eig cool, ich bekomm da ein Code:

Delphi-Quellcode:

function FindWindowEx2(hParent: HWND; ChildClassName: string; ChildNr: Word): HWND;
var
  i: Word;
  hChild: HWND;
begin
  hChild := 0;
  Result := 0;
  Dec(ChildNr);
  for i := 0 to ChildNr do
  begin
    hChild := FindWindowEx(hParent, hChild, PChar(ChildClassName), nil);
    if hChild = 0 then
      Break;
    Result := hChild;
  end;
end;

var
  wndMain, wndChild: HWND;
begin
  wndMain := FindWindow('PPAppFrameClass','Napster');
  if wndMain <> 0 then
  begin
    wndChild := FindWindowEx(wndMain, 0, 'CUISplitterWindow', nil);
    wndChild := FindWindowEx(wndChild, 0, '#32770', nil);
    wndChild := FindWindowEx(wndChild, 0, 'CUIHorSplitterWindow', nil);
    wndChild := FindWindowEx(wndChild, 0, '#32770', nil);
    wndChild := FindWindowEx2(wndChild,'Static', 6);
    if wndChild <> 0 then
    begin
      ShowMessage('Window Handle: ' + IntToStr(wndChild));
      FlashControl(wndChild); // internal function
    end;
  end;

Bei FlashControl meldet er zwar ein Fehler, das hab ich mal rausgenommen. Aber das einzige, was er mir dann ausgibt ist

Zitat:

Window Handle: 1049326

Das müsste ich halt noch auslesen, eben dieses Static "Name"