Voici une fonction qui permet de faire beeper
 le haut-parleur de votre unitée centrale



Function PC_Beep(Frequence, Duree :integer):integer;
 type TPC_Beep = function (FFrequence, FDuree :integer):integer; stdcall;
 var PCBeep : TPC_Beep;
     hdle : THandle;
  begin
   hdle := LoadLibrary('kernel32.dll');
    if hdle<>0 then
      begin
       PCBeep := GetProcAddress(hdle, 'Beep');

      if @PCBeep <> nil then PCBeep(Frequence,Duree);
      end;
    FreeLibrary(hdle);
  end;