解決したスレを上げてしまって申し訳無いのですが、よくよく考えてみたら、後にこのスレを誰かが見つけた時にモジュールのリンクを貼るだけでは不親切だと感じたので、モジュールの中身を貼らせていただきます。
#module "getcmd"
#uselib "kernel32"
#func GetCommandLineW "GetCommandLineW"
#func GetModuleFileName "GetModuleFileNameA" int, int, int
#func LocalFree "LocalFree" sptr
#uselib "shell32"
#func CommandLineToArgvW "CommandLineToArgvW" wptr, wptr
#defcfunc GetCmdline
sdim Result, 1024
sdim MyPath, 256
GetModuleFileName , varptr(MyPath), 256
GetCommandLineW
lpCmdLineW = stat
CommandLineToArgvW lpCmdLineW, varptr(NumArgs)
if stat {
pCmdList = stat
} else {
return -1
}
repeat NumArgs
dupptr p, pCmdList + cnt * 4, 4, vartype("int")
dupptr temp_CmdLineW, p, 256, vartype("str")
CmdLinesA(cnt) = cnvwtos(temp_CmdLineW)
if CmdLinesA(cnt) ! MyPath and CmdLinesA(cnt) ! "obj" {
Result += CmdLinesA(cnt) + "\n"
}
loop
LocalFree pCmdList
Result = strmid(Result, 0, strlen(Result) - 2)
return Result
#global