#N88BASIC'サンプル用
Dim buf[MAX_PATH] As Byte
Dim filename As String
GetModuleFileName(0,buf,MAX_PATH)
filename=Mid$(MakeStr(GetCommandLine()),Len(MakeStr(buf))+3)
Print a'サンプル用
とするとコマンドラインが取得できます。
exeのアイコンにドロップする場合は、 [code]#N88BASIC'サンプル用 Dim buf[MAX_PATH] As Byte Dim filename As String GetModuleFileName(0,buf,MAX_PATH) filename=Mid$(MakeStr(GetCommandLine()),Len(MakeStr(buf))+3) Print a'サンプル用[/code] とするとコマンドラインが取得できます。