ショートカットの設定値を調べる。
ショートカットの「実行時の大きさ」を「非表示」に設定しても、
プロパティページなどの情報では見えません。
以下の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