isiiさん、こんにちは。
お世話になります。

＞実行ファイル名が2種類あるのですがどちらが正しいのでしょうか？
＞rejistr.exe、registr.exe
＞アプリケーション名がrejistrの場合は、実行ファイル名をrejistr.exeでない場合、カレント
＞ディレクトリ（作業フォルダ）を返すようにしています。
＞アプリケーション名は、フォルダ名とファイル名を分解するための基準として使用しています。
＞
＞FileNameに何も入っていないのは、使用しているスクリプトに影響していると思います。
＞コントロール（コマンドボタン等）のスクリプトで使用する場合は、thisではなくparentに変更
＞しないと、アプリケーションのハンドルが求まりません。
＞GetModuleFileNameA( Handle( parent ), FileName, lBuf )
＞
＞（記述例は、実はユーザー関数を抜き出した物です。）
＞
失礼しました。ファイル名はrejistr.exeです。

今、app.AppNameとFileName、CurDirの３つを表示させたところ
rejister、空白、C:\\pbapps\\rejistr\\dataと表示されました。

スクリプトはウィンドウのOpenイベントに記述しているので、thisでいいと思います。
ほしい情報は、作業ディレクトリと、exeファイルの存在するディレクトリです。
ショートカットから実行だとこの方法だと取得できないのでしょうか？
作業ディレクトリは取得できているのですが・・・

たびたびすみませんがよろしくお願い致します。