search

zertovitch / gwindows

GWindows: GUI framework for MS Windows
https://sf.net/projects/gnavi/
21 stars 5 forks source link

GWindows.Application: Explorer_Path_At_Location does not work on Windows 11 #36

Closed zertovitch closed 2 months ago

zertovitch commented 4 months ago

The hack allowing to get the directory path from an Explorer window at an arbitrary (X, Y) location doesn't work anymore. You can notice by running the sample (project: gwindows_samples.gpr) cap_test.adb.

Some keywords to explore a solution:

SHDocVw ShellWindowsClass path

NB: Ada generated code exists for SHDocVw, see tutorials\msie\ie.ads Additionally the recommended method seen on Stack Overflow is to enumerate objects in the SHDocVw.ShellWindows collection; for each ie in that collection, match those with ie.FullName = "explorer" (after some treatement); grab the path via ie.LocationURL.

zertovitch commented 2 months ago

Solved in commit 9b95c6b6c399e33e268789cebd3873b6822be6c9