VolumeControl for all MS-Windows versions.

Vista 이후로 볼륨 컨트롤 방식이 변경되어서 윈도우 버전 마다 통일 안되는 인터페이스를 하나로 통합했습니다.

소스: http://code.google.com/p/ryulib4delphi/source/browse/trunk/XE2/VolumeControl.pas

사용법: 저장소/trunk/XE2/Samples/VolumeControl

procedure TfmMain.FormCreate(Sender: TObject);
begin
  sbMic.Position := Round(GetMicVolume * 100);
  sbSpeaker.Position := Round(GetSpeakerVolume * 100);
end;

procedure TfmMain.sbMicChange(Sender: TObject);
begin
  SetMicVolume(sbMic.Position / 100);
end;

procedure TfmMain.sbSpeakerChange(Sender: TObject);
begin
  SetSpeakerVolume(sbSpeaker.Position / 100);
end;