상세 컨텐츠

본문 제목

VolumeControl for all MS-Windows versions.

프로그래밍/Delphi

by ryujt 2012. 7. 31. 03:25

본문

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;


관련글 더보기