Existe-t'il, sous Delphi un composant, procédure ou fonction qui permet au modem (téléphonique) de composer un numéro de téléphone; j'ai trouvé le "Numéroteur Téléphonique de Windows mais la solution ne me plait qu'à moitié car j'aimerais que le modem, une fois le numéro composé soit mis hors fonction. (En appuyant sur un bouton ou autre, le modem composerait ce numéro et au bout de quelques secondes, il laisserait le champ libre afin que l'on puisse parler directement du téléphone connecté sur l'ordi. Le code qui suit fait cela mais pas à mon goût car la fonction WM_Close ne marche pas à tous les coups et quand cela marche, le numéroteur demande confirmation avant de fermer ce qui m'embête.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
procedure TForm1.Button1Click(Sender: TObject);
  var
    NoTel: array [0..255] of char;
    Destinataire: array [0..255] of char;
    HandleV:THandle;
  begin
    StrPCopy(Notel,NoTelv);  // NoTelv = # téléphone venant d'un fichier
    StrPCopy(Destinataire,destv); // Destv = Nom du prop. de ce numéro
    tapiRequestMakeCall(NoTel,'',Pchar(Destv),'');  // Ouvre le numéroteur
    HandleV := FindWindow(nil,'Numéroteur Téléphonique'); // Trouve le handle pour la fermeture
    Sleep(5000); // 5 secondes de délais
    SendMessage(HandleV,WM_CLOSE,0,0); // Fermeture du numéroteur
  end;
Si quelqu'un a des suggestions, elles sont le bienvenu car j'ai cherché au meilleur de mes connaissances sans rien trouver d'intéressant.

Merci, Duan