by 三毛CAT » 2008年7月25日(金) 14:40
exeのアイコンにドロップする場合は、
コード: 全て選択
#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]
とするとコマンドラインが取得できます。