HSPポータル
サイトマップ お問い合わせ


HSPTV!掲示板


未解決 解決 停止 削除要請

2007
1125
けいインターネットショートカットのアイコンを変えたい3未解決


けい

リンク

2007/11/25(Sun) 20:55:46|NO.12600

デスクトップ上に、インターネットショートカットを作成するexeを作っています。
ショートカットの作成はできたのですが、
デフォルトのアイコン(紙?にe)ではなく、
独自のアイコンで表示させたいのですが、うまくできません。

できれば、ショートカットを作成するexeから、アイコンを抽出し、
指定(Cドライブなど)の場所に保存させ、
(↑ショートカット作成後にexeが削除されても変わらないようにしたい)
ショートカットをそのアイコンで表示させたいのです。

IconLocationで指定してもうまくいかないし、
LoadIconとか、ExtractIconExを使うのかな?と調べてみたのですが
どうもうまく動かないのです。
どうか、いい対処方法を教えてください。よろしくお願いします。

以下、作成中のスクリプトです。
------------------------------------------------------------
newcom WshShell, "WScript.Shell"
newcom objFileSys, "Scripting.FileSystemObject"

fldDesktop=objFileSys("GetFolder",WshShell("SpecialFolders","Desktop"))
pathname=fldDesktop("Path")
pathname+= "\\ほげほげ.url"
sLink = "http://www.***.jp/"

oShellLink=WshShell("CreateShortcut",pathname)
oShellLink("TargetPath") = sLink

oShellLink->"Save"

delcom fldDesktop
delcom oShellLink
delcom WshShell
delcom objFileSys
dialog "デスクトップにショートカットが作成されました。",0,"確認"
stop
------------------------------------------------------------



この記事に返信する


pizza

リンク

2007/11/25(Sun) 23:48:41|NO.12601

インターネットショートカットならini操作モジュール等でも
作成、編集できると思います。



iconIndex = 0 iconPath = "" url = "http://hsp.tv/" buf = "[InternetShortcut]\n" if strlen(iconPath) { buf+="IconIndex="+iconIndex+"\n" buf+="IconFile=\""+iconPath+"\"\n" } buf+="URL=\""+url+"\"\n" path = dirinfo(0x10000)+"\\test.url" exist path if strsize != -1 : dialog ""+path+"は既に存在します。" : end notesel buf notesave path dialog ""+path+"を保存しました。" end



けい

リンク

2007/11/26(Mon) 01:06:50|NO.12604

ご返信、ありがとうございます。
実行してみたのですが、
iconPath = ""のパスの書き方が悪いのか(?)、アイコン指定ができません。
任意の場所に test.exe(実行ファイル)があるとして
そのtest.exeからアイコンを抽出するにはどう記述すればよいのでしょうか?
初心者で、すみません。ご教授ください。



pizza

リンク

2007/11/26(Mon) 02:06:57|NO.12605

test.exeがHSPで作った実行ファイル(自作)で、アイコンをパックしてあるのなら、
bloadとbsaveで抽出できると思います。

実行ファイルのリソースから抽出したい場合は
「アイコンの抽出」で過去ログを検索してみてください。



ONION software Copyright 1997-2021(c) All rights reserved.