Interface 'IAudioEndpointVolume' läuft unter TurboDelphi aber nicht unter Delphi10.1?

[EWeiss]

Zitat:

DELPHI wird bis zum bitteren Ende herumzicken - siehe Anhang.

Nicht wenn man es richtig macht..

Delphi-Quellcode:

  HR := AudioEndpointVolume.GetMute(b);
  if HR = S_OK then
    if Value <> b then
    begin
      // ** We should use very tricky code as follows.
      // ** If we use normal sentence like "AudioEndpointVolume.SetMute(Value, nil);"
      // ** it does not operate.
      if b then
        i := 0
      else
        i := 1;
      AudioEndpointVolume.SetMute(BOOL(i), @GUID_TAudioVolume);
    end;

Davon ab da ist einiges im argen, aber sei's drum.
Wenn du Boolean definierst solltest du es explicit casten.. siehe dieses Beispiel.

gruss