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.
Partager