Takaさん、isiiさんこんにちは。

＞roichan2さん、isiiさん、こんばんは。
＞

＞良くないです。
＞ウィンドウのOpenイベントでthisを参照すると、それはウィンドウそのものになります。
＞それをHandle()して得られるのは、ウィンドウのハンドルになります。
＞これに対し、isiiさんが書いている方法は、あくまでもアプリケーションオブジェクトのハンドルを
＞求めていますよね。この点が違うのでは？
＞
＞更に言うと、GetModuleFileName()の第１引数は、この場合でしたらゼロを与えて構いません。
＞
＞アプリケーションオブジェクトはPB独自のものであり、Windowsが認識できるハンドルを伴う
＞オブジェクトではありません。
＞よって、Handle(GetApplication()) の戻り値はゼロになっているはずです。
＞
＞追記：
＞有効なウィンドウハンドルの値を使ってGetModuleFileName()すると、確かにエラーになるようです。

ずばり原因がわかりました。ありがとうございました。

まず最初に
＞ウィンドウのOpenイベントでthisを参照すると、それはウィンドウそのものになります。
という点に気づき、
GetModuleFileNameA( Handle(app),FileName,lBuf)という記述に変えたところ、
思った様な動作をしてくれました。
その後、Takaさんの言われる様に、
GetModuleFileNameA(0,FileName,lBuf)と変えたところ、これも上にかいたのと
同じ動作をしてくれました。

お二人のおかげで、見事納得いく動作を得ることができました。
ありがとうございました。