发信人: fishy()
整理人: fishy(2000-05-07 13:36:48), 站内信件
|
【 在 charminglee () 的大作中提到: 】
以下是在System.ini中读取当前的屏幕保护程序的例子：
Dim WinDir As String, Name As String, Buffer As String
WinDir = Space(255)
GetWindowsDirectory WinDir, 255
WinDir = Left(WinDir, InStr(WinDir, Chr(0)) - 1)
If Right$(WinDir, 1) <> "\" Then WinDir = WinDir & "\"
WinDir = WinDir & "system.ini"
Buffer = Space(32)
GetPrivateProfileString "boot", "scrnsave.exe", "no", Buffer, 255, Win
Dir
Buffer = Left$(Buffer, InStr(Buffer, Chr(0)) - 1)
If Left$(Buffer, 2) <> "no" Then Shell Buffer & " /s"
--
Dim fishy As Friend
回复时请打勾
------------
欢迎大家访问酷码工作室：http://comma.yes8.com
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 202.110.183.114]
|
|