スタートアップに登録せずに起動するには？

解決

α  2001-04-07 22:50:35  No: 74108  IP: [192.*.*.*]

こんにちは。

質問の内容ですがシェアウェアのプログラムを組みました。
シェアウェアなら有効期限（無料期間）がすぎたかどうか
チェックします。

ですが、Windowsのスタートアップにショートカットをおいておくと
消される危険があるのでそこに置かずに起動したいのですが、
レジストリなどの関係になっていくのでしょうか。

あと、任意のファイルのショートカットを作成する
コマンドがあったらご教授お願いします。

編集    削除
MADIA  URL  2001-04-08 19:30:36  No: 74109  IP: [192.*.*.*]

まず下記の件ですが
＞ですが、Windowsのスタートアップにショートカットをおいておくと
＞消される危険があるのでそこに置かずに起動したいのですが、
＞レジストリなどの関係になっていくのでしょうか。

レジストリを使用します。

詳細はこのページに掲載していますのでそちらを見てください。
http://madia.world.coocan.jp/REG/Registry.htm

ショットカットの件は
ＯｓfCreateShellLink、又はＯｓfCreateShellLinkを使用します。

Public Declare Function OSfCreateShellLink Lib "vb6stkit.dll" Alias
"fCreateShellLink" (ByVal lpstrFolderName As String, ByVal lpstrLinkName As
String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArguments As String,
ByVal fPrivate As Long, ByVal sParent As String) As Long


※ちなみにこのＡＰＩ関数はＭＳＤＮで公開されていません

編集    削除
α  2001-04-09 00:10:16  No: 74110  IP: [192.*.*.*]

ショートカットについてですが、

>Dim ert As Long
>ert=ShellOSfCreateShellLink"Project.exe","Project1.lnk",0,0, 0,0))

のようにしてみました。
ですが、ファイルがないとエラーが起きます。
不適切なところがあったら指摘してください。
お願いします。

編集    削除
α  2001-04-09 00:28:42  No: 74111  IP: [192.*.*.*]

間違えてました
Dim ert As Long
ert = Shell(OSfCreateShellLink("Project.exe", 0, "Project1.lnk", 0, 0, 0))

編集    削除
α  2001-04-09 00:30:18  No: 74112  IP: [192.*.*.*]

"0"と"Project.lnk"を反対にしてください。
何度も間違えてすみません

編集    削除
α  2001-04-09 00:30:19  No: 74113  IP: [192.*.*.*]

間違えてました
Dim ert As Long
ert = Shell(OSfCreateShellLink("Project.exe", 0, "Project1.lnk", 0, 0, 0))

編集    削除
α  2001-04-09 00:31:49  No: 74114  IP: [192.*.*.*]

↑の発言は再送信のミスです。
無視してください。
どうもすみません。

編集    削除
α  2001-04-09 00:48:41  No: 74115  IP: [192.*.*.*]

レジストリに関してです。

試しにこのようにしたのですが、

SaveSetting appname:="P", section:="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\run\", _
Key:="PP", setting:="D:\PPP.exe"

レジストリはどうしても
HKEY_CURRENT_USER\Software\VB and VBA Program Settings
に作成されます。

どうすれば
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\run\にレジストリを作成するのでしょうか

編集    削除
PAPY  2001-04-09 21:19:49  No: 74116  IP: [192.*.*.*]

ＶＢの場合はWin32APIを使用しないとそこの場所には作成出来ません。

確か、ＡＰＩコーナーにレジストリ関係のサンプルを作ったような
気がするので試してみてください。

編集    削除
PAPY  2001-04-09 21:49:04  No: 74117  IP: [192.*.*.*]

ショートカットについて

ofCreateShellLink()APIは「vb6stkit.dll」がないと動きません。
また、VB5.0をインストールしていても動きません。

編集    削除
MADIA  2001-04-09 21:53:39  No: 74118  IP: [192.*.*.*]

レジストリのサンプルは作成したのであります。
＞PAPY

編集    削除
α  2001-04-10 00:15:02  No: 74119  IP: [192.*.*.*]

サンプル見つかりました。
どうもありがとうございます。
それにショートカットの件も見つかりました。

ご迷惑かけてすみません。

編集    削除