[Q]$BB?=E5/F0KI;_(JAPI

Article View: fj.lang.visualbasic

Article #345

Back to fj.lang.visualbasic Previous Next

#345

From: baba yoshinori
Date: Thu, 19 Mar 1998 00:00

26 lines
1301 bytes

馬場です
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

Technical Details

Message-ID: <6eq375$445$1@ipcgw.ipc.kajima.co.jp>

Path: arc1-ca.pugleaf.net!unknown!not-for-mail

Show Full Headers

Complete Article Headers

X-Google-Language: Japanese,JIS
X-Google-Thread: 105c2e,d91d61fd16ea102a,start
X-Google-Attributes: gid105c2e,public
From: "baba yoshinori" <bnb@mug.biglobe.ne.jp>
Subject: [Q]$BB?=E5/F0KI;_(JAPI
Date: 1998/03/19
Message-ID: <6eq375$445$1@ipcgw.ipc.kajima.co.jp>
X-Deja-AN: 335465677
Content-Transfer-Encoding: 8bit
Mime-Version: 1.0
Content-Type: text/plain; charset=ISO-2022-JP
Organization: Intelligent Systems Department, Kajima Corporation, Tokyo, JAPAN
Newsgroups: fj.lang.visualbasic

Article View: fj.lang.visualbasic

[Q]$BB?=E5/F0KI;_(JAPI

[Q]$BB?=E5/F0KI;_(JAPI