; スペースで区切ってあるコマンドラインを分解し、
; notesel、noteget で簡単に取り出せるようにする。

; EXEファイルのアイコンの上にドラッグしたファイルの
; 名前を取り出す時に便利です。


#include "kernel32.as"

#module
;---------- ---------- ---------- ---------- ---------- ----------
; コマンドラインを取得
;---------- ---------- ---------- ---------- ---------- ----------
#deffunc get_cmdline var file

	sdim tmp  ,260     : csize = strlen(dir_cmdline)
	sdim cline,csize+1 : cline = dir_cmdline

	notesel file : i = 0
	repeat csize
		if i >= csize : break

		//ファイル名を取得
		if peek(cline,i) == '"' {
			getstr tmp,cline,i+1,'"' : i+=strsize+2
		} else {
			getstr tmp,cline,i  ,' ' : i+=strsize
		}

		//短いファイル名を正常に変換
		#ifdef GetLongPathName
			GetLongPathName varptr(tmp),varptr(tmp),260
		#endif

		noteadd tmp
	loop
	noteunsel
	return

;---------- ---------- ---------- ---------- ---------- ----------
#global