したらばTOP ■掲示板に戻る■ 全部 1-100 最新50 | |

【雑談】雑談専用・愚痴歓迎【愚痴】

6：nisii：2003/10/15(水) 13:16
> 1)SHELLでプログラムを実行する時にフォルダを与えながら実行は出来ないのか？
上村さん紹介の、SHELLEXECUTE が一番楽かな。

> 2)自分のフォルダを取得出来ないか？
ツリー型掲示板で紹介済み。
タイトル：続API -ウィンドウの列挙とモジュール名の取得


#define MAX_PATH 264
'------------------------------------------------------------
' モジュールとライブラリ関連のAPI宣言
'------------------------------------------------------------
' ロードされている実行モジュールのフルパス名を得る
declare function API_GETMODULEFILENAME& lib "KERNEL32" alias "GetModuleFileNameA" ( byval HMODULE& , byval LPFILENAME$ , byval NSIZE& )
'
' HMODULE& 実行モジュールのハンドル
' 0を指定すると、現在のプロセスを作成したモジュール
' LPFILENAME$ (戻り値)フルパス名を受け取るバッファ
' NSIZE& 同、バイト数
'
' 戻り値 正常終了のとき バッファにコピーしたバイト数
' エラーのとき 0
'
' 備考 「実行モジュール」とはEXE、DLLなどの実行形式のモジュール。

var LPFILENAME$
var NLENGTH as long

' ロードされている実行モジュールのフルパス名を得る
LPFILENAME$ = string$( MAX_PATH , chr$( 0 ))
NLENGTH = API_GETMODULEFILENAME( 0 , LPFILENAME$ , len( LPFILENAME$ ))
LPFILENAME$ = left$( LPFILENAME$ , NLENGTH )
print "この実行モジュールは " + LPFILENAME$

stop : end
新着レスの表示

名前： E-mail（省略可）：

※書き込む際の注意事項はこちら

※画像アップローダーはこちら

（画像を表示できるのは「画像リンクのサムネイル表示」がオンの掲示板に限ります）
掲示板管理者へ連絡 無料レンタル掲示板