using Tcl/Tk 8.4.6.0 on a Windows2000 system. On Windows many applications store their icon inside the executable file. So typing:
wm iconbitmap . test.exe
will return an error. But if you type:
wm iconbitmap . [wm iconbitmap .]
wm iconbitmap . test.exe
or
wm iconbitmap . [wm iconbitmap .]
wm iconbitmap . -default test.exe
set location [file join [getDirectoryOfInstalledExecutableForInstanceReadingTheRegistry] "test.exe"]
wm iconbitmap . [wm iconbitmap .]
wm iconbitmap . -default "$location"