[Q]VBでショートカットを作成したい

Thread View: fj.lang.visualbasic

3 messages

[T] Back to Threads [V] Tree View [G] Group Articles

3 total messages Started by N.Maekawa Thu, 23 Apr 1998 00:00

#57

Author: N.Maekawa
Date: Thu, 23 Apr 1998 00:00

25 lines
1476 bytes

　みなさんこん？？は。

　現在VB(5.0-SP3)からプログラム・グループやスタートアップにショートカ
ットを作成しようとしていて悩んでいます。

　VB付属の"Setup1.vbp"を見て、"VB5STKIT.DLL"の"OSfCreateShellGroup"でW
in95の場合はOKだったのですが、NT4.0の"All Users"下のプログラム・グルー
プやスタートアップににショートカットを作成する場合の方法がよく解りませ
ん。

　全然別の手段でも結構ですので、どなたか手だてをご存じの方がいらっしゃ
いましたら教えていただきたいのですが．．．．

　あ、ちなみにWin95の場合も、スタートアップにショートカットを作成する
方法は解らなかったので、レジストリ(HKLM\...\run)に書き込むことで逃げま
した。でも、できればショートカットを作成したい．．．．

　よろしくお願いします。


**************************************
 前川 信幸 (Nobuyuki Maekawa)
 nmaekawa@mbox.kyoto-inet.or.jp
**************************************

Re: [Q]VBでショートカットを作成したい

#61

Author: AKIYA Saburou
Date: Fri, 24 Apr 1998 00:00

41 lines
1744 bytes

穐谷(あきや)です。

N.Maekawa　wrote in article
 <6hn13v$mv4$1@news.kyoto-inet.or.jp>...
> 　現在VB(5.0-SP3)からプログラム・グループやスタートアップにショートカ
> ットを作成しようとしていて悩んでいます。

VB5のCDの
	Q:\VB5.0\TOOLS\UNSUPPRT\SHELLLNK
を参考にして下さい。

COMネタだから、fj.os.ms-windows.programmingの方がふさわしいかも
しれません。

タイプライブラリを作るのが面倒だ、という場合は、まだ制作中ですが、
	http://www.cmpk.or.jp/user/akiya/typelibs/
に、一応おいてあります。(タイプライブラリは再配布の必要がありません。)

で、これを使った場合、エラー処理を端よりますが、

Sub CreateShortcut(LinkTo As String, FileName As String)
	Dim objShortcut As ShellLink
	Dim islShellLink As IShellLinkA
	Dim ipfFile As IPersistFile

	On Error Resume Next
	Set objShortcut = New ShellLink
	Set islShellLink = objShortcut
	Set ipfFile = objShortcut

	Call islShellLink.SetPath(LinkTo)
	Call ipfFile.Save(FileName, 0)

	Err.Clear
End Sub

という感じです。
------------------------------------------------------------
		差出人:	穐谷 三郎
		E-Mail:	akiya@cmpk.or.jp

Re: [Q]VBでショートカットを作成したい

#75

Author: N.Maekawa
Date: Mon, 27 Apr 1998 00:00

13 lines
1075 bytes

　穐谷さん、ありがとうございました。
　さっそく勉強させていただきたいと思います、といいたいところなのですが、
現在他の問題の解決で手が取られています（早々に教えていただいたのに何と
身勝手な．．．．）。
　近日中に勉強させていただきます。また頭に乗って質問させていただくこと
があるかも知れませんが、その折りはよろしくお願いします。


**************************************
 前川 信幸 (Nobuyuki Maekawa)
 nmaekawa@mbox.kyoto-inet.or.jp
**************************************

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads