&>&Delphi启动和关闭外部程序实例
Delphi启动和关闭外部程序实例
上传大小：179KB
Delphi启动和关闭外部程序实例，在Delphi7中调试通过，无需任何第三方控件，下载后打开其中的可执行文件*.exe可试用。并附有源码，供初学者参考。
综合评分：0（0位用户评分）
所需积分/C币：
下载个数：9
{%username%}回复{%com_username%}{%time%}\
/*点击出现回复框*/
$(".respond_btn").on("click", function (e) {
$(this).parents(".rightLi").children(".respond_box").show();
e.stopPropagation();
$(".cancel_res").on("click", function (e) {
$(this).parents(".res_b").siblings(".res_area").val("");
$(this).parents(".respond_box").hide();
e.stopPropagation();
/*删除评论*/
$(".del_comment_c").on("click", function (e) {
var id = $(e.target).attr("id");
$.getJSON('/index.php/comment/do_invalid/' + id,
function (data) {
if (data.succ == 1) {
$(e.target).parents(".conLi").remove();
alert(data.msg);
$(".res_btn").click(function (e) {
var q = $("#form1").serializeArray();
console.log(q);
var res_area_r = $.trim($(".res_area_r").val());
if (res_area_r == '') {
$(".res_text").css({color: "red"});
$.post("/index.php/comment/do_comment_reply/", q,
function (data) {
if (data.succ == 1) {
var $target,
evt = e || window.
$target = $(evt.target || evt.srcElement);
var $dd = $target.parents('dd');
var $wrapReply = $dd.find('.respond_box');
console.log($wrapReply);
var mess = $(".res_area_r").val();
var str = str.replace(/{%header%}/g, data.header)
.replace(/{%href%}/g, 'http://' + window.location.host + '/user/' + data.username)
.replace(/{%username%}/g, data.username)
.replace(/{%com_username%}/g, _username)
.replace(/{%time%}/g, data.time)
.replace(/{%id%}/g, data.id)
.replace(/{%mess%}/g, mess);
$dd.after(str);
$(".respond_box").hide();
$(".res_area_r").val("");
$(".res_area").val("");
$wrapReply.hide();
alert(data.msg);
}, "json");
/*删除回复*/
$(".rightLi").on("click",'.del_comment_r', function (e) {
var id = $(e.target).attr("id");
$.getJSON('/index.php/comment/do_comment_del/' + id,
function (data) {
if (data.succ == 1) {
$(e.target).parent().parent().parent().parent().parent().remove();
$(e.target).parents('.res_list').remove()
alert(data.msg);
//填充回复
function KeyP(v) {
$(".res_area_r").val($.trim($(".res_area").val()));
评论共有0条
审核通过送C币
Delphi 1.0~7.0合集+文章+代码+控件
创建者：caozhy
Borland Delphi合集
创建者：wuwei666888
Delphi编程
创建者：zang
上传者其他资源上传者专辑
ewebeditor 改进版，可以上传40M大附件图片视频
二维码打印驱动及软件
ScandALL PRO富士通扫描软件
富士通扫描软件scandall pro
富士通扫描仪的软件scandall pro
开发技术热门标签
VIP会员动态
下载频道用户反馈专区
下载频道积分规则调整V1710.18
开通VIP，海量IT资源任性下载
spring mvc+mybatis+mysql+maven+bootstrap 整合实现增删查改简单实例.zip
CSDN&VIP年卡&4000万程序员的必选
为了良好体验，不建议使用迅雷下载
Delphi启动和关闭外部程序实例
会员到期时间：
剩余下载个数：
剩余C币：593
剩余积分：0
为了良好体验，不建议使用迅雷下载
积分不足！
资源所需积分/C币
当前拥有积分
您可以选择
程序员的必选
绿色安全资源
资源所需积分/C币
当前拥有积分
当前拥有C币
(仅够下载10个资源)
全站1200个资源免积分下载
为了良好体验，不建议使用迅雷下载
资源所需积分/C币
当前拥有积分
当前拥有C币
全站600个资源免积分下载
资源所需积分/C币
当前拥有积分
当前拥有C币
您的积分不足，将扣除 10 C币
全站1200个资源免积分下载
为了良好体验，不建议使用迅雷下载
你当前的下载分为234。
你还不是VIP会员
开通VIP会员权限，免积分下载
你下载资源过于频繁，请输入验证码
你下载资源过于频繁，请输入验证码
您因违反CSDN下载频道规则而被锁定帐户，如有疑问，请联络:!
若举报审核通过，可奖励20下载分
被举报人：
举报的资源分：
请选择类型
资源无法下载
资源无法使用
标题与实际内容不符
含有危害国家安全内容
含有反动色情等内容
含广告内容
版权问题，侵犯个人或公司的版权
*详细原因：
Delphi启动和关闭外部程序实例全国统一热线：400-028-
VPS SERVER
CLOUD HOST
欢迎光临西部数码，我们将竭诚为您提供最优质的服务！
Delphi编程禁止用户关闭操作系统
　　本实例介绍在程序运行的过程中禁止用户关闭操作系统。 　　用户是否可以关闭操作系统是通过对WM_QueryEndSession的处理来实现的，为此首先需要在程序中添加WM_QueryEndSession消息处理的声明：
procedure QueryEndSession(var Msg:TMessage);Message WM_QueryEndS　　它的响应代码如下：
procedure TForm1.QueryEndSession(var Msg:TMessage);begin　Msg.Result:=0;　　当用户关闭操作系统时，操作系统会发布一个WM_QueryEndSession消息，这时就会激活本实例程序中的QueryEndSession过程，程序通过设置消息的返回值为0，就会禁止用户关闭操作系统，反之如果设置消息的返回值为1，就会允许用户关闭操作系统。　　程序代码如下：
unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dtype　TForm1 = class(TForm)private　{ Private declarations }　procedure QueryEndSession(var Msg:TMessage);Message WM_QueryEndS　public　　{ Public declarations }　var　Form1: TForm1;　implementation　{$R *.dfm}　procedure TForm1.QueryEndSession(var Msg:TMessage);begin　Msg.Result:=0;end.　　保存文件，然后按F9键运行程序。只要本程序在正常运行，用户就无法关闭操作系统。　　在工程实际中，经常需要使应用程序不间断地运行，为了防止意外因素关闭操作系统，可以使用本实例介绍的方法。
上一篇： Delphi编程实现3D图形修饰技术
下一篇： Delphi中为DBGrid控件添上色彩
版权申明：本站文章均来自网络，如有侵权，请联系028-0
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有。
服务器技术
西部数码.cn
CopyRight & &西部数码&版权所有
电话总机：028- (20线)
400电话： 400-查看: 252|回复: 14
注册时间最后登录阅读权限10积分0精华0帖子
该用户从未签到金钱60405 11971 0 在线时间0 小时阅读权限10精华0积分0UID9
我有一个网吧管理记费的程序，但是在程序启动的时候会被用户用ALT+CTRL+DEL结束任务；我总不能做一个单独的程序在我的程序之前去屏蔽系统热键吧！
所以我在找解决办法：
1、在XP下面有一个修改注册表的方法，加一个名为NOWINKEYS的DWORD的键值为1，来屏蔽所有的系统热键；但是98下面我没有找到添加该热键屏蔽系统热键的方法；
2、我用我的程序替换98的EXPLORER。EXE，并把原EXPLORER。EXE改名；这样我的程序就必须要执行了；但是问题出来了，我的桌面和任务栏都没有了（就算我在次调用我改名后的EXPLORER。EXE都没有用），可是兄弟门，我的是网吧管理软件呀，没有桌面和任务栏怎么用呀；
3、我想象做病毒一样，把我的程序和EXPLORER。EXE包裹在一起，但是我没有办法时间这样的包裹。
4、朋友说可以做一个VXD的虚拟设备驱动，来捕获键盘事件，就能防止程序被终止了；可是我没有做VXD的资料；
注册时间最后登录阅读权限10积分0精华0帖子
该用户从未签到金钱60515 11993 0 在线时间2 小时阅读权限10精华0积分0UID26
隐藏进程，让他在任务管理器中看不到
注册时间最后登录阅读权限10积分0精华0帖子
该用户从未签到金钱66600 12512 0 在线时间626 小时阅读权限10精华0积分0UID412
或者你可以使ctrl+alt+del失效
systemparametersinfo(SPI_SCREENSAVERRUNNING,1,0,0);
注册时间最后登录阅读权限10积分0精华1帖子
该用户从未签到金钱60224 11927 0 在线时间3 小时阅读权限10精华1积分0UID4
在Ctrl-Alt-Del 中隐藏应用程序
ShowWindowAsync(Application.Handle, SW_HIDE);
注册时间最后登录阅读权限200积分0精华0帖子
TA的每日心情慵懒 13:43:06签到天数: 15 天[LV.4]偶尔看看III金钱62512 12558 25 在线时间12 小时阅读权限200精华0积分0UID84
另外还有一种方法比较全面的
/channel/jsjn/read.asp?ano=729
如果你没有注册，先注册吧
注册时间最后登录阅读权限10积分0精华0帖子
TA的每日心情擦汗 08:43:45签到天数: 17 天[LV.4]偶尔看看III金钱61387 12274 4 在线时间19 小时阅读权限10精华0积分0UID2
如果是在Win98下的话,
你可以把它注册为服务程序
注册时间最后登录阅读权限10积分0精华0帖子
该用户从未签到金钱60515 11993 0 在线时间2 小时阅读权限10精华0积分0UID26
屏蔽系统热键可以的啊？
systemparametersinfo(SPI_SCREENSAVERRUNNING,1,0,0);
加在程序刚刚一启动的时候
注册时间最后登录阅读权限10积分0精华1帖子
该用户从未签到金钱60224 11927 0 在线时间3 小时阅读权限10精华1积分0UID4
网吧管理软件，如果你时间来不及的话，我给你一些提示！你可以在系统启动时就把键盘给锁定！因为按楼上各位说的是不管用的，因为系统刚起来的时候，你的程序不管是加了锁还是隐藏起来都没有那么快，用户还是用机会捕获到的，最致命的一点，你还得屏掉MSDOS。sys中的ROOTKEYS=0，不要认为就这一条有用，当有人恶意破坏的话，不停的重启，你的系统就会进入安全模式，你还得在MSDOS.sys中加上一条BootWarn=0，也许你会，其实再做另一个程序特意来屏掉功能键也行呀，因为你的系统安全第一，在你没有找到更好的办法的时候你可以试一下！建议做一个DOS下的程序，通过批处理调用，将键盘锁定！
注册时间最后登录阅读权限10积分0精华0帖子
TA的每日心情擦汗 08:43:45签到天数: 17 天[LV.4]偶尔看看III金钱61387 12274 4 在线时间19 小时阅读权限10精华0积分0UID2
使用Hook管用吗？
注册时间最后登录阅读权限10积分0精华0帖子
该用户从未签到金钱66600 12512 0 在线时间626 小时阅读权限10精华0积分0UID412
注册时间最后登录阅读权限10积分0精华0帖子
TA的每日心情衰 10:31:01签到天数: 1 天[LV.1]初来乍到金钱58881 11668 1 在线时间0 小时阅读权限10精华0积分0UID7424
对不同的windows版本，像9x就很容易隐藏进程。而NT下麻烦啊
注册时间最后登录阅读权限10积分0精华1帖子
该用户从未签到金钱60224 11927 0 在线时间3 小时阅读权限10精华1积分0UID4
我知道怎么隐藏系统进程，也知道怎么通过API屏蔽系统热键；
但是我是说我的程序正在启动，代码还没有分配内存，你说怎么做到上面说的；
到是‘luoshumeng(乡村意外)’说的有点可能实现；
对了，98怎么能把程序注册为服务器：
兄弟门还能赐教点什么吗？
我一定给分；
注册时间最后登录阅读权限10积分0精华0帖子
该用户从未签到金钱60765 11765 0 在线时间118 小时阅读权限10精华0积分0UID912
在程序没有启动并分配内存之前，我们的代码是没有用的；
所以楼上的几位兄弟都说错了；
到是 luoshumeng(乡村意外）兄说的好象可以；
luoshumeng(乡村意外）能说的具体些吗？我一定给分；
还有98下能把EXE为注册服务器？
注册时间最后登录阅读权限10积分0精华0帖子
TA的每日心情擦汗 08:43:45签到天数: 17 天[LV.4]偶尔看看III金钱61387 12274 4 在线时间19 小时阅读权限10精华0积分0UID2
有什么方法能在系统一启动就锁定键盘；
注册时间最后登录阅读权限10积分0精华0帖子
TA的每日心情开心 09:27:44签到天数: 78 天[LV.6]常住居民II金钱63989 12532 7 在线时间60 小时阅读权限10精华0积分0UID18
我能锁定键盘，但可惜不能锁定CTRL+ALT+DEL三个键，真是可惜呀，不然就一点问题都没有，你如果能在启动之前将鼠标锁定隐藏鼠标的话，那么先这样配合起来一定不会有问题的！
Powered by&&&&&&&&&&&&&
转载于网易博客：
windows是个多用户多任务的操作系统，支持多个程序同时运行，如果你的程序不想让用户同时运行一个以上，
那应该怎样做呢？ 本文将介绍避免用户同时运行多个程序的例子。
需要用到的函数CreateMutex ，CreateMutex 函数是windows中一个并不常用的函数，
该函数对象在系统中只能存在一个实例且是互斥体，所以利用这种特性就很简单的实现了我们的要求。
【函数原声明】：
function&CreateMutex(lpMutexAttributes:&PSecurityA&bInitialOwner:&BOOL;&lpName:&PChar):&TH&
function CreateMutex(lpMutexAttributes: PSecurityA bInitialOwner: BOOL; lpName: PChar): TH&br/&
【参数说明】：
lpMutexAttributes 是一个SECURITY_ATTRIBUTES 结构类型的指针，可以设置为NULL。
bInitialOwner 是否初始化互斥体。
lpName 互斥体对象的名称。
函数返回一个互斥体句柄。
当程序运行时创建对象，如果对象已经存在就表明程序已经被运行了。。
【实现过程如下】：
新建一个工程，窗体明明为Form1.
添加一个Button按钮命名为Button1.
双击按钮添加代码
procedure&TForm1.Button1Click(Sender:&TObject);&
&&hw&:&HWND;&
&&Application.I&
&&Application.Title&:=&'runmyfile';&
&&hw&:=&CreateMutex(nil,False,'runmyfile');&{创建互斥体对象}&
&&gt&:=&GetLastE&
&&if&gt&&&&Error_ALREADY_EXISTS&then&&&&&{如果没有发现互斥体对象}&
&&&&Application.CreateForm(TForm1,Form1);&{创建窗体}&
&&&&Application.R&
&&&&Application.MessageBox('程序已经运行','提示',MB_OK);&
&&&&Application.T&
&&&&ReleaseMutex(hw);{释放互斥体}&
阅读(...) 评论()