Faire beeper le speaker de l'uc

Télécharger le projet
Commenter

Description

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

Source / Exemple : 


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;

Conclusion :


http://delphicool.developpez.com
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (DelphiCool)