Advertisement
TLama

Untitled

Aug 13th, 2014
366
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Delphi 0.26 KB | None | 0 0
  1. function BASS_SetVolume(volume: Single): BOOL;
  2.   external 'BASS_SetVolume@files:bass.dll stdcall';
  3.  
  4. procedure InitializeWizard;
  5. begin
  6.   // ...
  7.   if BASS_SetVolume(0.25) then
  8.     MsgBox('Volume has been set to quarter.', mbInformation, MB_OK);
  9.   // ...
  10. end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement