« バッチファイルで作るteeコマンド | トップページ | 「写真の印刷ウィザード」に送る。 »

2007年5月15日 (火)

ショートカットの設定値を調べる。

ショートカットの「実行時の大きさ」を「非表示」に設定しても、
プロパティページなどの情報では見えません。

以下のVBSファイルにショートカットをドロップします。
「実行時の大きさ」の実際の設定値を表示します。

Set wShell=CreateObject("WScript.Shell")
Path=WScript.Arguments(0)
Set Link=wShell.CreateShortCut(Path)
WScript.Echo Join(Array(_
  "FullName"&vbTab&vbTab&Link.FullName,_
  "TargetPath"&vbTab&Link.TargetPath,_
  "Arguments"&vbTab&vbTab&Link.Arguments,_
  "WorkingDirectory"&vbTab&Link.WorkingDirectory,_
  "SetWindowStyle"&vbTab&WindowStyle(),_
  "GetWindowStyle"&vbTab&Link.WindowStyle,_
  "Hotkey"&vbTab&Link.Hotkey,_
  "IconLocation"&vbTab&Link.IconLocation,_
  "Description"&vbTab&Link.Description),vbLf)

Function WindowStyle()
Dim Stream
Set Stream=CreateObject("ADODB.Stream")
Stream.Open
Stream.Type=1
Stream.LoadFromFile Path
Stream.Position=&H3C
WindowStyle=AscB(Stream.Read(1))
End Function

« バッチファイルで作るteeコマンド | トップページ | 「写真の印刷ウィザード」に送る。 »