Bonjour à tous

J'ai rajouté Vcl.ExtDlgs dans les USES, "manuellement" : L'IDE n'affichait aucune complétion après VCL. Mais le compilo m'affiche un manque de définitions lorsque j'appelle GetFileNameFromLink ().

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 
  Nom_F_LNK := 'W - INCLUDES THREADS-TYPES.LNK';
  Form1.Lab_F_LNK.Caption := Nom_F_LNK;
 
  if NOT GetFileNameFromLink(Handle_App, Nom_F_LNK, Nom_F_Pointe) then
    begin
      MessageDlg('ERREUR', mtError, [mbOK], 0);
    end;
 
  Form1.Lab_F_Pointe.Caption := Nom_F_Pointe;


Dans l'exemple ci-dessus, j'avais carrément redéfini la fonction. Mais certaines définitions ne sont pas prises en compte. Quelles sont les unités à inclure en USES ?

Merci

Résolution : Merci la FAQ ! J'y ai trouvé mon bonheur. Ici.