sample\basic\dirinfo.hsp » Plain Format
; ; システムのディレクトリ情報を表示する ; cls 3 sysfont 17 hr="---------------------------------------------------" max=13 sdim dex,64,max sdim s1,128 dex(0)="0 : カレント(現在の)ディレクトリ" dex(1)="1 : HSPの実行ファイルがあるディレクトリ" dex(2)="2 : Windowsディレクトリ" dex(3)="3 : Windowsのシステムディレクトリ" dex(4)="4 : コマンドライン文字列" dex(5)="$10000 : デスクトップディレクトリ" dex(6)="$10002 : プログラムディレクトリ" dex(7)="$10005 : マイドキュメントディレクトリ" dex(8)="$10006 : お気に入りディレクトリ" dex(9)="$10007 : スタートアップディレクトリ" dex(10)="$10008 : 最近使ったファイルディレクトリ" dex(11)="$10009 : SendToディレクトリ" dex(12)="$1000b : スタートメニューディレクトリ" repeat max color 0,255,255 mes dex(cnt) getstr s1,dex(cnt),0,32 prm = 0+s1 color 255,255,255 mes "dirinfo("+s1+")="+dirinfo(prm) color 0,255,0 mes hr loop