TextLen: longueur d'une chaîne en pixels

@Klaus je suis un peu dérouté par l'envoi de 'contact' sur ton site, on ne sait pas trop si c'est parti ou pas... aussi je répète mon message ici:
Dans un petit programme que je suis en train d'écrire j'utilise ton utilitaire TextLen pour pouvoir aligner un texte (centrage ou cadrage à droite).
Je le lance en ligne de commande avec Execute_Wait, le problème étant que le résultat est dans un fichier qu'il t'a fallu créer et écrire, qu'il me faut lire, exploiter et détruire, ce qui ralentit beaucoup de façon visible les opérations.
Ça aurait été plus rapide d'avoir le résultat dans le Clipboard (avec des séparateurs pour les lignes, mais en fait seul le premier nombre m'intéresse: la longueur en pixels), comme pour la liste des volumes montés, donc uniquement des opérations en mémoire.

C'est juste une remarque amicale (mais intéressée !).
Bonne soirée à toi.

EDIT: finalement, j'ai utilisé la méthode que j'avais exposé ici, sous forme de sous-programme:
https://panoramic.1fr1.net/t1045-calcul-des-longueur-et-hauteur-d-un-texte-dans-un-objet?highlight=longueur+texte
donc pas de programme externe, et c'est infiniment plus rapide que de passer par un fichier.

Il y a effectivement un problème avec le message de contact sur mon site - pour le moment non résolu.

L'utilitaire TextLen est érit en Visual Basic V4, et c'est la raison pour laquelle il est en utilitaire indépendant et non en fonction DLL. Je vais regarder s'il est possible de placer le résultat dans le presse-papier, ou si je peux faire une fonction DLL en Delphi avec les mêmes fonctionnalités.

Merci Klaus, ce n'est pas pressé, j'ai une solution de rechange satisfaisante, mais ça pourra toujours servir à d'autres.

Il y a bien longtemps que nous n'avons pas eu de tes nouvelles ami Klaus, j'espère que tu vas bien...

J'ai un petit problème avec TextLen.exe qui semble donner des résultats fantaisistes pour certaines valeurs de taille de caractères. Un petit exemple pour illustrer:

Code:

DIM sz, a$, fnt$, g$
LIST 1: WIDTH 1, 300: HEIGHT 1,400: FONT_SIZE 1, 10
fnt$ = "Arial"
g$ = CHR$(34)
FOR sz = 8 TO 40 STEP 2
    a$ = "/text=" +g$ + "Au clair de la lune" + g$
    a$ = a$ + " /font=" + g$ + fnt$ + g$ + " /fontsize=" + STR$(sz)
    a$ = a$ + " /mode=" + g$ + g$
    EXECUTE_WAIT "C:\Util\TextLen.exe " + a$
    FILE_OPEN_READ 1, "C:\Util\TextLen.tmp"
    FILE_READLN 1, a$
    FILE_CLOSE 1
    ITEM_ADD 1, fnt$ + " taille " + STR$(sz)+": " + a$
NEXT sz
END

Amicalement
JL