已在屏幕保护程序中打开,无法卸载

在文件夹删除。

屏幕保护程序是以文件形式存在于系统中的，一般来说，它们的扩展名是SCR。卸载屏幕保护程序的方法是，首先在显示属性中禁止要卸载的屏幕保护程序，然后到系统安装的文件夹下找到需要卸载的屏幕保护程序，它们的文件名一般以屏幕保护程序名来命名，一般在文件夹下面，你知道你那个屏保的名称就找这个名称的文件删除，你会发现里面有许多文件的图标像是一个显示器那就是屏保文件，不过你删除前最好先双击看看是不是你要删的因为那里面都是系统文件不好随便删的。找到后删除即可。第二，利用系统的文件搜索查找功能，查找所有扩展名为SCR的文件，这样所有的屏幕保护程序文件就会显示出来了。选择你要删除的屏保程序，删除它即可。

1、打开要设为屏保的ppt文档，选择：文件→另存为，在保存位置框中选择一个空文件夹或创建一个新的空文件夹，在保存类型中单击设备无关位图，在文件名框中保留原演示文稿文件\名或输入一个新名称；

2、设置好另存为对话框后单击保存会出现一个提示框，单击每张幻灯片或仅当前幻灯片，再单击确定；

3、经上一步会再次出现提示框，直接单击确定即可。演示文稿或幻灯片即可保存到所选文件夹，关闭ppt文档；

4、在桌面任意空白位置右击，出现显示属性对话框。进入屏幕保护程序选项卡，在其下选择收藏幻灯片，然后在等待框中，设置希望在显示该屏幕保护程序之前经过的时间；

5、在屏保程序下，单击设置，出现的收藏屏幕保护程序选对话框 ，在更换照片的频率是什么下，直接将滑块移至慢（三分钟），以避免在切换过程中屏幕闪烁不定；

6、在收藏屏幕保护程序选项对话框里单击使用该文件夹中的照片后的浏览，在出现的浏览文件夹对话框中选择保存了幻灯片的文件夹；

7、单击确定回到收藏屏幕保护程序选项对话框，（如果保存了幻灯片，则要清除在照片之间使用过渡效果复选框和允许用键盘滚动浏览复选框），单击确定。按屏幕保护程序选项卡的预览看一下效果。

利用Visual Basic 制作屏幕保护程序非常容易。本文将详细给大家介绍制作屏幕保护程序的方法。

---- 一 基本编程思路

---- 大家都知道屏幕保护程序就是利用变换的颜色或图形以防止不变化的屏幕像素被损伤。所以，屏幕保护程序就是显示不断变化或移动的图形，并且当有鼠标移动或按键时能够终止的程序。

---- 1 编制屏幕保护图形

---- 2 隐藏鼠标

---- 用ShowCursor Windows API 函数我们可以实现隐藏鼠标。

---- 3 检测鼠标和按键行为

---- 检测上述行为以便退出屏幕保护程序

---- 4 Windows 调用屏幕保护程序的参数命令

---- /a 在显示器属性对话框中单击了改变口令按钮。

---- /p 每当选中显示器属性对话框中屏幕保护程序标签时，在对话框显示预览效果。

---- /c 在显示器属性对话框中单击了设置按钮。

---- /s 在显示器属性对话框中单击了预览按钮或屏幕保护程序被系统正常调用。

---- 5 编译屏幕保护程序

---- 其实任何VB应用程序都可作为屏幕保护程序来运行，但为了被Windows 95 所调用，需要将它作为屏幕保护程序来编译。首先进入VB5编程环境，编好程序后选择/File/Make project菜单项，然后在File Name文本框中将后缀名EXE改为SCR。最后单击OK按钮,将生成的SCR文件拷到Windows目录下，就完成了屏幕保护程序的创建。

---- 二 实例

---- 下面就用一个实例给大家详细说明屏幕保护程序的制作。

Option Explicit

Dim quitflag As Boolean ‘声明终止程序标志变量

Dim lleft

‘声明隐藏或显示鼠标的API函数

Private Declare Function ShowCursor Lib "user32"

(ByVal bShow As Long) As Long

‘检测鼠标单击或移动

Private Sub Form_Click()

quitflag = True

End Sub

Private Sub Form_MouseMove(Button As Integer,

Shift As Integer, X As Single, Y As Single)

Static xlast, ylast

Dim xnow As Single

Dim ynow As Single

xnow = X

ynow = Y

If xlast = 0 And ylast = 0 Then

xlast = xnow

ylast = ynow

Exit Sub

End If

If xnow < > xlast Or ynow < > ylast Then

quitflag = True

End If

End Sub

‘检测按键

Private Sub Form_KeyDown(KeyCode As Integer,

Shift As Integer)

quitflag = True

End Sub

Private Sub Form_Load()

Dim X As Long

lleft = 0

‘横向滚动文字的起始X坐标

If AppPrevInstance = True Then

‘用APP对象的PrevInstance属性

Unload Me

‘防止同时运行屏幕保护程序的两个实例

Exit Sub

End If

Select Case Ucase$(Left$(Command$, 2))

‘装载命令行参数

Case "/S" ‘在显示器属性对话框中单击了

预览按钮或屏幕保护程序被系统正常调用。

Show

‘全屏显示Form1窗体

Randomize

‘初始化随机数生成器

X = ShowCursor(False)

‘隐藏鼠标

BackColor = vbBlack

Do

Timer2Enabled = True

‘启动Timer2 ,显示屏幕保护滚动文字

DoEvents

‘转让控制权,以便检测鼠标和按键行为

Loop Until quitflag = True

‘运行屏幕保护滚动文字直至有鼠标和按键行为

Timer2Enabled = False

‘终止滚动文字

Timer1Enabled = True

‘启动Timer1,退出屏幕保护程序

Case Else

Unload Me

Exit Sub

End Select

End Sub

Private Sub Form_Unload(Cancel As Integer)

Dim X

X = ShowCursor(True)

‘显示鼠标

End Sub

Private Sub Timer1_Timer()

Unload Me

‘退出屏幕保护程序

End Sub

Private Sub Timer2_Timer()

显示横向滚动文字

lleft = lleft + 100

If lleft >= 11810 Then

lleft = 0

Lab1Top = Int(Rnd 7000)

End If

Lab1Left = lleft

Timer2Enabled = False

End Sub

当然是打不开了,那是病毒程序,之所以改成scr,是让你的机器在屏幕保护启动时让你中毒的,它把你原来的文件夹隐藏掉,既然你已经运行过了病毒程序,那就先杀毒吧,至于你u盘上的,找一个干净的机器,然后不要打开,直接在dos下用命令将那些后缀名为scr的文件夹删除,在用attrib -s -h -r 命令将你u盘上的文件夹显示出来,(代表你原来的文件夹名字),就ok了,,

以上就是关于已在屏幕保护程序中打开,无法卸载全部的内容，包括:已在屏幕保护程序中打开,无法卸载、有办法把PPT文件设成桌面保护程序吗、自己怎么制作屏幕保护程序等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！