Problem PByte und String

  • Problem PByte und String

    Bei dieser function werden mir Teile des Strings abgeschnitten oder gar nicht angezeigt.

    Quellcode

    1. IPC_GETPLAYLISTFILE:
    2. begin
    3. VisInfo := nil;
    4. FFound := False;
    6. for i := 0 to High(W_VisHandles) do
    7. begin
    8. VisInfo := PWinampVisInfo(W_VisHandles[i]);
    9. if (hWindow = VisInfo^.WinHandle) then
    10. begin
    11. FFound := True;
    12. Break;
    13. end;
    14. end;
    15. if (FFound) then
    16. if VisInfo^.FileName <> nil then
    17. begin
    18. ReturnStr := VisInfo^.FileName + chr(0);
    19. end
    20. else
    21. ReturnStr := 'Kein Titel' + chr(0);
    23. p := @ReturnStr;
    24. Inc(p, 1);
    25. Result := longint(p);
    26. end;
    Alles anzeigen


    Beispiel: Abba - Ist ein Test.mp3 Abba wird angezeigt rest verschluckt.
    bei Abba2 - Auch ein Test.mp3 wird nichts angezeigt genaus das gleiche wenn nur Abba2.mp3 dort steht.

    Vielleicht kann jemand helfen.

    Gruß