Hallo Emil,
so recht weiß ich nicht welches Problem Du hast (ok, da läuft wohl ein pointer Amok)
aber ich würde mich nicht auf irgendwelche wilde typecasting Möglichkeiten verlassen sondern mit den richtigen Typen arbeiten also etwa so:
Delphi-Quellcode:
procedure TBassWMPVisAPI.WMPVIS_SetMediaInfo(Channels: integer; SampleRate: integer;
Title: PAnsiChar; FileName: PAnsiChar); stdcall;
var
WMPMedia: IWMPMedia;
wFilename: widestring;
wOldmedia: widestring;
wTitle : widestring;
begin
wFilename:=Filename;
wTitle:=Title;
if RenderFromDevice then
Title := 'BassVis - BrewIdeas©Emil Weiss';
if OldMedia <> wFileName then
begin
if FileExists(string(FileName)) then //------ was für ein Delphi ??? 16/8Bit String/Char???
begin
OldMedia := wFileName;
Woher kommen eigentlich OldMedia und Title ??
Gruß
K-H