Einzelnen Beitrag anzeigen

Graffi

Registriert seit: 5. Apr 2007
Ort: Duisburg
28 Beiträge
 
Delphi 6 Enterprise
 
#1

MS-Vista und "WaveInGetNumDevs" fehlerhaft?

  Alt 11. Apr 2007, 18:19
Hallo,

ich lese schon seit Win98 mit folgender Routine die vorhandenen Audiogeräte (Eingänge) ein.

Unter Vista klappt das nicht mehr, da ebenso alle Ausgänge mit ausgegeben werden.

Ist das ein Bug von Vista, oder liegt das Problem in der MMSystem?

Sonnige Grüße, Ralf

Delphi-Quellcode:
procedure TSetup.WriteDeviceInfo;
var wd : string;
    WaveInCaps : TWaveInCaps;
    i,NumDevs : integer;
begin
  NumDevs:=waveInGetNumDevs;
  WavList.Clear;
  if NumDevs=0 then
    Exit;

  for i:=0 to NumDevs-1 do
  begin
    WaveInGetDevCaps(i, @WaveInCaps, SizeOf(WaveInCaps));
    wd := 'ID '+IntToStr(i)+', Device'+ String(WaveInCaps.szPName);
    WavList.Items.Add(wd);
  end;
end;
[edit=sakura] M$->MS Mfg, sakura[/edit]
  Mit Zitat antworten Zitat