Bonjour,
c'est impossible. En voici la preuve :
procedure TF_Princ.Button3Click(Sender: TObject);
Var
I : Integer ;
begin
I := isOpenableFile('D:\DESSIN\44304.jpg') ;
...
Type: Messages; Utilisateur: Charly910
Bonjour,
c'est impossible. En voici la preuve :
procedure TF_Princ.Button3Click(Sender: TObject);
Var
I : Integer ;
begin
I := isOpenableFile('D:\DESSIN\44304.jpg') ;
...
Bonjour,
Pour ma part, j'utilise cette fonction (qui peut surement être perfectionnée) :
{ ============================================================================== }
function...
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.