Chemin d'une fenetre de l'explorateur en 1 clic ....

[Kwai chang caine]

Bonjour à tous.

J'ai encore eu une idée que évidement je ne sais pas réaliser.
D'ailleurs je ne sais pas si c'est possible.

J'aurais aimé trouver un code qui permette d'obtenir l'adresse qui est en haut d'une fenetre windows (Ex: c:\program file) et ceci en double cliquant dessus lorsqu'elle est ouverte.

On obtient ce genre d'info si l'on clic dans propriété avec le nom du repertoire en cours en haut et au milieu du panneau le chemin.

Ce serait pour entrer ce chemin complet rapidement dans mon appli sans avoir par passer par un " PathRequester" et se taper toutes l'arborescence a chaque fois.

Bien sur, on peut aussi faire copier/coller du chemin en haut de la fenetre,
mais un double click (par exemple) ça ferait méga pro

J'ai aussi pensé à creer un fichier bidon dans la fenetre et lire ses propriétés, mais si on a pas les droits, ça marche pas ...
Peut etre aussi en passant par le clipBoard ....

Peut etre quelqu'un a d'autres idées ....

Merci
Bonne journée à tous

[Backup]

ce petit code bien connu des anciens

te donnera la liste du nom des fenetres ouvertes

donc du chemin dans le cas d'une fenetre explorateur !!
a toi d'adapter !

Procedure Window()
    hwnd.l = FindWindow_ ( 0, 0 )
     While hwnd <> 0
         If GetWindowLong_ (hwnd, #GWL_STYLE ) & #WS_VISIBLE = #WS_VISIBLE
             ; If GetwindowLong_(Hwnd, #GWL_EXSTYLE) & #WS_EX_TOOLWINDOW <> #WS_EX_TOOLWINDOW
            txt.s = Space (256)
             GetWindowText_ (hwnd, txt, 256)
             If txt <> ""
                 Debug txt
             EndIf
             ; EndIf
         EndIf
        hwnd = GetWindow_ (hwnd, #GW_HWNDNEXT )
     Wend
EndProcedure

Window()

[Kwai chang caine]

Toutes mes excuses DOBRO

Je viens de m'appercevoir que je ne t'avais pas remercié pour ce code qui va m'etre hyper utile.

Faute à moitié avouée ...
Voila une erreur humblement réparée.

Je te souhaite une bonne journée