🚀 go-pugleaf

APIはさておき(^_^;　AppオブジェクトのPrevInstanceプロパティを
使用してみてはいかがでしょうか。

If App.PrevInstance Then
    MsgBox "起動しとるっちゅうねん。"
    End
End If

みたいな感じで・・・。
--
_______________________________________________________________________
差出人 Kaoru Shiiba
E-Mail  cba@pop06.odn.ne.jp   (caa52570@pop06.odn.ne.jp)

baba yoshinori wrote in message <6eq375$445$1@ipcgw.ipc.kajima.co.jp>...
>馬場です
>VB4でスクリーンセーバーを作るのに、多重起動防止のため
>下記のAPIを使用しました。
>実行ファイルをhogehoge.scrとして作成しコントロールパネルに
>登録したのですが、多重起動防止が効きません。
>どこか間違っているのでしょうか？
>
>Form1に記述しています。
>
>Private Declare Function SystemParametersInfo Lib "user32" Alias
>　　　 "SystemParametersInfoA" (ByVal uAction As Long,
>　　　　ByVal uParam As Long, ByVal lpvParam As Any,
>　　　　ByVal fuWinIni As Long) As Long
>
>Const SPI_SETSCREENSAVEACTIVE = 17
>
>
>Private Sub Form_Load()
>
>    Dim result As Integer
>    result = SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, True, 0&, 0)
>
>___________________________
>baba yoshinori
>bnb@mug.biglobe.ne.jp
>