社区
Delphi
帖子详情
我不想活了?
zcw
2000-05-14 08:53:00
我在做一个小项目,对方要求不要进入WINDOWS控制界面,于是我做了一个小程序,
把WINDOWS桌面隐藏,并且屏蔽了WINDOWS系统键和任务栏,但启动我的程序后,只要
双击鼠标左键,开始菜单就会自动弹出,我现在交不了差,各位高手救我呀!
...全文
323
11
打赏
收藏
我不想活了?
我在做一个小项目,对方要求不要进入WINDOWS控制界面,于是我做了一个小程序, 把WINDOWS桌面隐藏,并且屏蔽了WINDOWS系统键和任务栏,但启动我的程序后,只要 双击鼠标左键,开始菜单就会自动弹出,我现在交不了差,各位高手救我呀!
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
11 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
x86
2000-05-26
打赏
举报
回复
这样吧,你把这个功能集成到你要调的程序中吧.
见过银行的字助设备吗(ATM之类的),很多用的是win98/nt.
zcw
2000-05-26
打赏
举报
回复
我的程序如下,用上后只要双击鼠标左键,开始菜单就会自动弹出。zyc的方法我用过
但我还要用我的程序调用别的程序,一不小心我调用的程序就会跑到桌面后面了。
我试过只要我隐藏桌面就会出现这种情况。另外我想用我的程序控制,不要改文件。
procedure hideTaskbar;
var
wndHandle : THandle;
wndClass : array[0..50] of Char;
begin
StrPCopy(@wndClass[0], 'Shell_TrayWnd');
wndHandle := FindWindow(@wndClass[0], nil);
ShowWindow(wndHandle, SW_HIDE);
End;
var
hdesktop:thandle;
temp:integer;
begin
// 屏蔽系统功能键
SystemParametersInfo(Spi_screensaverrunning,1,@temp,0);
//隐藏桌面
hdesktop:=findwindow('progman',nil);
showwindow(hdesktop,sw_hide); ]
//隐藏任务栏
hideTaskbar;
end;
zyc
2000-05-22
打赏
举报
回复
放置一个窗口,其大小为屏幕的大小(用Screen对象取得屏幕大小)。将窗口的模式设为最大化,将窗口的边框设为bsSingle或bsDialog,并将BorderIcons里的东西清空(可保留系统菜单项)。于是你的愿望可以实现了。
Firing_Sky
2000-05-21
打赏
举报
回复
人家可以手动编辑System.ini文件来破解Shell=Explorer的方法。
什么?你屏蔽了F4和F8?
我还是有办法,启动Win9x,在黑屏时突然重启,呵呵,机器会叫你定位command.com,输入c:\command.com,呵呵,进入Dos模式了……
hcat1999
2000-05-19
打赏
举报
回复
在win95/98完整版中,找这个软件POLEDIT
用他可以屏蔽很多WIN的功能,看他能不能帮你
liu
2000-05-19
打赏
举报
回复
将 Windows 系统目录中的 Explorer.exe 备份后,将你的程序的可执行主文件拷贝更名为 Explorer.exe ,并覆盖掉原有的 Explorer.exe ,下次开机后,系统会直接启动你的程序,而所有其它的 Windows 程序和界面均不能显示和调用 .
haiyang
2000-05-18
打赏
举报
回复
在windows目录下有文件:system.ini,文件开始"[boot]"下有一行:shell=Explorer.exe,替换它:把explorer.exe改为你的程序名,其实就是把windows
的“外壳”该为你的程序!一切都在你的外壳的控制之下!不过,有得必有失,运行其他程序就要你想法了(应该可以运行其他程序的,我没试过,“没有调查就没有发言权”,呵呵)
wxz
2000-05-18
打赏
举报
回复
haiyang的方法是可行的,最好还是把Windows目录下的Taskmon.exe改个名字吧.
supershan
2000-05-18
打赏
举报
回复
很简单你可以在进入程序时,让WINDOWS没有响应,然后再隐藏任务栏
procedure hideTaskbar; //隐藏
var
wndHandle : THandle;
wndClass : array[0..50] of Char;
begin
StrPCopy(@wndClass[0], 'Shell_TrayWnd');
wndHandle := FindWindow(@wndClass[0], nil);
ShowWindow(wndHandle, SW_HIDE);
End;
systemparametersinfo(spi_screensaverrunning,1,nil,0);//不响应WINDOWS
saxash
2000-05-14
打赏
举报
回复
用屏保嘛。以前的很多帖子里都有提到,你可以去查一下。
Exam:
procedure ScreenSaver(i: integer); //i=1 Set i=0 Cancel
var
tmp: integer;
begin
SystemParametersInfo(SPI_SCREENSAVERRUNNING, i, @tmp, 0);
end;
此外,什么双击弹出开始菜单,应该是你的程序有问题。
zcw
2000-05-14
打赏
举报
回复
你说的是屏蔽系统键,我的程序里有,我说的是我把桌面隐藏后,双击鼠标就会弹出
开始菜单,我的程序没问题,就是屏蔽不了这个快捷功能。
为什么你
不想
学习?只想玩?人是如何一步一步废掉的
不知道是不是只有我这样子,还是你们也有过类似的经历。 上学的时候总有很多光辉历史,学年名列前茅,或者单科目大佬,但是虽然慢慢地长大了,你开始懈怠了,开始废掉了。。。 什么?你说不知道具体的情况是怎么样的? 我来告诉你: 你常常潜意识里或者心理觉得,自己真正的生
活
或者奋斗还没有开始。总是幻想着自己还拥有大把时间,还有无限的可能,自己还能逆风翻盘,只不是自己还没开始罢了,自己以后肯定会变得特别厉害...
外企程序员:“老板,这
活
我
不想
干,你找别人吧”
外企→员工:“这
活
我
不想
干,你找别人吧” 国企→老板:“这
活
我
不想
给你干,我找别人吧” 缘起 大家好,前两天有小伙伴私信问我,说是国外工作是什么样的体验,和国内究竟有什么不同? 我想来想去,好像没什么不一样,不仅风格类似,连干的
活
也差不多,开会的时候也很像,大部分人沉默,少数人发言。后来终于找到了一点不同,就是其他国家的同事在工作上往往说话更加直接,心态更加开放。比如他工作了一段时间累了,要趴在桌上休息绝对不会想老板看到了会不会不好。 甚至他们会在给老板(中国人)的feedback里写公司里中国人太多了.
为什么非常想要一样东西的时候却得不到,但慢慢就
不想
要了?
http://www.zhihu.com/question/24419624 为什么非常想要一样东西的时候却得不到,但慢慢就
不想
要了? 1.需求不占主导[1]; 2.平复认知失调[2]; 我们想要的一些东西,不是食物和水,也不是性,也不是所处某种深渊急需救赎的东西。没有它,你也会
活
得不错,只不过有了它,心理层面的感觉会更好而已。当得不到这个东西的时候,而我们又想得到,
异地多
活
架构
在软件开发领域,「异地多
活
」是分布式系统架构设计的一座高峰,很多人经常听过它,但很少人理解其中的原理。 异地多
活
到底是什么?为什么需要异地多
活
?它到底解决了什么问题?究竟是怎么解决的? 这些疑问,想必是每个程序看到异地多
活
这个名词时,都想要搞明白的问题。 有幸,我曾经深度参与过一个中等互联网公司,建设异地多
活
系统的设计与实施过程。所以今天,我就来和你聊一聊异地多
活
背后的的实现原理。 认真读完这篇文章,我相信你会对异地多
活
架构,有更加深刻的理解。 这篇文章干货
敏捷开发一千零一问系列之五:怎样让队员主动要
活
?
这是敏捷开发一千零一问系列的第五篇。(在这里提问,之一,之二,之三,问题总目录)本问题被评为某次课程最佳问题之一(每场2~4个)。问题怎样让团队成员完成从派
活
到主动要
活
?方案步骤0:在一个传统团队中,多半是由一个人(一般是项目经理)估算、分配、监督任务完成。由于这个人处于鸡的角色(请参考百度“猪与鸡”),所以真正承担任务的人要冒任务被错误估算和分配导致绩效低下的风险,引起大家的不满。按时完成了经理
Delphi
5,392
社区成员
262,731
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章