こんにちは。

現在、複数人が操作するプログラムを作っています。

環境は以下の通りです。

１．ネットワークドライブに、実行ファイルなどをおく。
２．各自ネットワークドライブをマウントし、実行ファイルのショートカットを
デスクトップに作成。ショートカットのプロパティの作業フォルダを、
各自の作業用フォルダに変更。
３．プログラムでは、ネットワークドライブ上に作成したヘルプファイルを読みこみたい。

過去のログから、isiiさんの書き込み
-----------------------------ここから---------------------------------------------
以下に、例を記述します。
記述例の仕様
・EXEファイルは[アプリケーション名].EXEとする。
・PBから実行（PBLの状態で）した場合は、カレントディレクトリとする。

・グローバル外部関数の定義
function ulong GetCurrentDirectoryA(ulong lBuf, ref string CurDir) &
library \"kernel32.dll\"
function ulong GetModuleFileNameA(ulong hWnd, ref string Fname, ulong lBuf) &
library \"kernel32.dll\" 

・スクリプト
// アプリケーション名を求める
Application app
app = GetApplication()

// カレントディレクトリを求める
ulong lBuf
string CurDir
lBuf = 260
CurDir = Space( lBuf + 1 )
GetCurrentDirectoryA( lBuf, CurDir )

// 実行ファイル名を求める
string FileName, work
FileName = Space( lBuf + 1 )
GetModuleFileNameA( Handle( this ), FileName, lBuf )
work = Upper( FileName )

// 実行ディレクトリを求める
string PathName
long index
index = Pos( work, \"\\\" + Upper( app.AppName ) + \".EXE\" )
if index > 0 then
　 PathName = Left( FileName, index - 1 )
else
　 PathName = CurDir
end if

-----------------------------------ここまで----------------------------------------
このプログラムを使ってみましたが、
取得できるのは、各自変更した作業フォルダで、実行ファイルのあるフォルダを
取得することができません。

どのように記述すれば、上記環境でネットワーク上の実行ファイルのフォルダを
取得できますでしょうか？？

よろしくｂｱんにちは。