win10易语言程序怎么关闭
1.怎么关掉电脑的易语言程序
.版本 2
.支持库 eAPI
.子程序 _按钮1_被单击
时钟1.时钟周期 = 1000 ' 让时钟开始工作
.子程序 _时钟1_周期事件
.局部变量 进程名称, 进程信息, , "0"
.局部变量 成员数, 整数型
.局部变量 x, 整数型
进程名称 = 取系统进程列表 ()
成员数 = 取数组成员数 (进程名称)
.计次循环首 (成员数, x)
.如果 (进程名称 [x].进程名称 ≠ “某一个进程.exe”) ' '判断系统有没有这个进程
' 如果没有,执行下面
信息框 (“*****关闭系统*****”, 0, )
' 关闭系统 (#关机, 真) 这句先注释起来,要不然到时你调试的时候会关机的
.否则
' 如果有,执行这里
信息框 (“o,知道了!你开着这个进程!”, 0, )
.如果结束
.计次循环尾 ()
代码在这里了,不会加QQ614714919
绝对可以的!
2.怎样去掉易语言中的一些程序和启动窗口
长期使用电脑会产生很多垃圾文件,建议你按下面方法试试优化电脑,简单点就去下载一个优化大师清理1、关闭花瓶视觉效果 右击我的电脑→属性→高级→性能→设置,先去掉所有的勾,只保留“在窗口和按钮上使用视觉样式”和“在文件夹中使用常见任务”,这样既可以加快XP的速度,又可以保留XP的经典外观,何乐而不为呢 2、关闭启动和故障恢复 右击我的电脑→属性→高级→启动和故障恢复→设置,如果你只装了一个操作系统,去掉所有的勾,如果你有多个操作系统,保留第一个勾即可。
3、关闭错误报告 右击我的电脑→属性→高级→错误报告,选择“禁用错误报告”并去掉“但在发生严重错误时通知我”。 4、关闭系统还原 右击我的电脑→属性→系统还原,选中“在所以驱动器上关闭系统还原”。
系统还原是非常吃系统资源的,对老机来说一定不能要 5、关闭自动更新 右击我的电脑→属性→自动更新,去掉“保持我的计算机最新……”这个选项。 6、关闭远程协助 右击我的电脑→属性→远程,去掉“允许从这台计算机发送远程协助邀请”。
7、关掉调试器dr. watson 单击开始→运行→输入drwtsn32,把除了“转储全部线程上下文”之外的全都去掉。如果有程序出现错误,硬盘会响很久,而且会占用很多空间。
8、关闭用户登录时的欢迎屏幕 在控制面版中双击用户帐户→去掉“使用欢迎屏幕”单击应用选项。 因为为这种登录方式占系统资源过多。
9、关闭高级文字服务(可选) 在控制面版中双击区域和语言选项→语言→详细信息→高级,选中“关闭高级文字服务”。然后单击设置→最下面有个“键设置” →双击“在不同的输入语言之间切换”,选择CTRL+SHIFT,默认为左手ALT,这样以后就可以用传统的CTRL+SHIFT切换输入法了。
去掉了占内存的高级文字服务。 10、关闭WinXP对ZIP文件的支持 Win XP的ZIP支持对我而言连鸡肋也不如,因为不管我需不需要,开机系统就打开个zip支持,本来就闲少的系统资源又少了一分,点击开始→运行,敲入:“regsvr32 /u zipfldr.dll”双引号中间的,然后回车确认即可,成功的标志是出现个提示窗口,内容大致为:zipfldr.dll中的Dll UnrgisterServer成功。
11、关闭Internet时间同步 (本文是易寻网 WWW.1SOON.COM.CN/BBS 推荐文章)双击任务栏右下角的时间,单击“Internet时间”去掉“自动与Internet时间服务器同步”。 二、系统组策略及其它优化 1、关闭WinXP的光盘自动运行功能 在开始菜单运行中输入gpedit.msc 计算机配置→管理模板→系统,找到“关闭自动拨放”双击后选择“已启用,在下面的关闭自动播放,选择”所以驱动器。
2、打开WinXP的保留网络带宽 在开始菜单运行中输入gpedit.msc 计算机配置→管理模版→网络→qos数据包调度程序" ,双击 "限制可保留带宽" ,选中"已启用" ,将 "带宽限制%" 的值改为0。注:XP版本必须为Professional版的。
3、禁用不使用的IDE端口(请仔细设置) 右击我的电脑→硬件→设备管理器→IDE ATA/ATAPI 控制器,双击“主要 IDE 通道”,(如果你对自己的计算机足够了解)选择“高级设置”可以看到设备0、和设置1。如果你只有一个设备那么请禁用别一个设备,方法是把“自动检测”改为“无”。
“次要 IDE 通道”的设置方法同上。 这样可以大大加快的XP的启动速度,最少快一倍,如果你不小心把光驱改成无了,没关系再改回自动检测就可以了 4、打开硬盘的DMA模式 右击我的电脑→硬件→设备管理器→IDE ATA/ATAPI 控制器,双击“主要 IDE 通道” ,选择“高级设置”,在传送模式中选择“DMA(若可用)。
“次要 IDE 通道”的设置方法同上。重启计算机即可。
5、禁用不使用的设备 右击我的电脑→硬件→设备管理器,如:打印机端口、COM、网卡(当然是在你暂时不使用这此设备的前提下进行的),这样也有利于节约系统资源。 6、转移IE缓存文件夹 这个文件夹建议转移到其它的盘中,如D、E中。
可以减少C盘的碎片,从而加快系统速度。 我的文档也可以转移到其它盘中,有利于备份和安全。
三、关闭不使用的系统服务。
win10怎么运行易语言程序图标
1.win10系统,运行程序界面怎么调整
解决方法:
1、点击Windows10屏幕右下角的“通知中心图标”,点击弹出的界面中的“所有设置”;
2、系统会弹出设置菜单,找到图中的“系统”案件,点击并进入系统设置菜单;
3、选择进入系统设置菜单后,在在右边下方可以找到“高级显示设置”;
说明:如果在【高级显示设置】页面中,屏幕分辨率窗口是灰色的,那就说明当前电脑的显卡没有正确安装驱动程序。用户在使用360 驱动大师等软件更新更加匹配Windows 10操作系统的显卡驱动程序后,就能继续更改屏幕分辨率的操作。
5、点击“高级显示设置”后,就能够看到“屏幕分辨率设置窗口了”。只需在相关窗口选择要调整的分辨率大小即可。
2.win10系统,桌面点击个性化或显示设置后显示,找不到应用程序,怎
1、按2113【win+R】快捷键,打开运行。
2、在输入框输入:regedit,点击【确定】5261。
3、在注册表编辑器左4102侧,点开HKEY_CURRENT_USER。
4、再展开Software。
5、展开Microsoft。
6、展开Internet Explorer。点击MenuExt,在右边找1653到需要版删除的程序,然后在按下F5直接刷新权,这个问题就可以完成设置。
3.win10怎么让打开的程序显示在任务栏
在电脑桌面下方的任务栏空白位置,点击鼠标右键,在弹出菜单中选择属性 在打开的任务栏属性页面当中,找到通知领域栏目下的自定义按钮,打开
这时,在打开的自定义设置页面中,左侧栏切换到通知和操作栏目,然后在右侧点击打开选择在任务栏上显示哪些图标
这时,系统将进入程序列表的搜索页面
搜素完毕之后,我们将可以看到目前所运行各个程序的图标显示,在相对应的右侧都有一个开关按钮
我们针对自己的使用情况,对各个程序图标的开关显示按钮进行设置即可
这时,再回到原来的电脑桌面,就可以看到所设置的QQ程序图标就显示出来了
win10易语言设置在哪里
1.易语言设置窗口位置怎么用啊
xh=me.height, xw=me.width, X=10上,左:窗体<=X,窗体向上(top=xh-xh+X)或左移动;右、下:窗体与屏幕判断比较,当屏幕宽-(窗体左+宽)<=X,右移;屏幕高-(窗体上+高)<=X,下移然后鼠标指向窗体后拉出窗体,有些得加些API函数用于检测鼠标移入移出,窗体置顶,窗体也不能是普通类型的,有些难度,你也可以自己在网上找找看更好的。
新建工程,将窗体的BorderStyle设置为0,再加入一个Command按钮,粘贴以下代码测试Private Declare Function SetWindowPos& Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)Private Declare Function SetCapture Lib "user32" (ByVal hwnd As Long) As LongPrivate Declare Function ReleaseCapture Lib "user32" () As LongDim nX As Single, nY As SinglePrivate Sub Command1_Click()SetWindowPos Me.hwnd, -2, 0, 0, 0, 0, 3Unload MeEnd SubPrivate Sub Form_Load()SetWindowPos Me.hwnd, -1, 0, 0, 0, 0, 3End SubPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)nX = X: nY = YEnd SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 1 ThenMe.Move Me.Left - nX + X, Me.Top - nY + YMe.Caption = Me.TopEnd IfDim pW!, pH!, mL!, mT!, mW!, mH!pW = Screen.WidthpH = Screen.HeightmL = Me.LeftmT = Me.TopmW = Me.WidthmH = Me.HeightConst m = 50Dim MouseEnter As BooleanMouseEnter = (0 <= X) And (X <= mW) And (0 <= Y) And (Y <= mH)If MouseEnter Then '进入If mL <= m Then Me.Left = -mIf mT <= m Then Me.Top = -mIf mL >= pW - m Then Me.Left = pW - mWIf mT >= pH - m Then Me.Top = pH - mHSetCapture Me.hwndElse '移出If mL <= m Then Me.Left = m - mW '左隐If mT <= m Then Me.Top = m - mH '上隐If pW - mL - mW <= m Then Me.Left = pW - m '右隐If pH - mT - mH <= m Then Me.Top = pH - m '下隐ReleaseCaptureEnd IfEnd Sub 这样设定以后你的窗口可以自由移动,在靠边时可以也像QQ一样自动隐藏。
转载请注明出处windows之家 » win10易语言程序打不开