在你的程序的主FORM 的 FORMCREATE 事件里面添加如下的代码: procedure 主FORM.FormCreate(Sender: TObject); var errno:integer; hmutex:hwnd; begin hmutex:=createmutex(nil,false,pchar(application.Title)); errno:=getlasterror; if errno=error_already_exists then begin ShowMessage('程序已经在运行了'); Application.Terminate; self.Close();//关闭重复启动的程序 end; //....这是你原来的代码继续下去
- 浏览: 870996 次
- 性别:
- 来自: 杭州
最新评论
-
zj7243886:
非常感谢,这东西解决我的问题;谢谢你的分享
Linux 安装 jpeg-6b 错误 ./libtool 命令未找到 -
丶Sk.Mabon:
能让html也绕过吗。。机房限制很悲剧
绕过 <?PHP exit(’Access Denied’); ?> 限制 -
丶Sk.Mabon:
请教gzip.php 的写法。万分感谢!
apache 开启 gzip -
hyxj1220:
火狐中单纯的定义这样的样式,貌似不行,必须要让容器浮动
英文长文本换行CSS -
逆水寒龙:
太好了,正好用上,谢谢博主共享
Asp.net 将中文汉字转换成拼音首字和拼音全拼
相关推荐
delphi编写的让程序只运行一次的代码。希望喜欢
程序运行时有时只允许启动一个窗口,这时把这个代码你的代码中就可以了.
Delphi禁止一个程序多次打开,也就是同一个程序,只允许运行一次, Result := True; GetWindowText(Wnd,@WndCaption, 254);//获取窗口的Caption if(Pos('MyTest',WndCaption)>=1)then //如果窗口的Caption含某...
Delphi禁止运行多个程序实例,监测是否运行同一程序实例,也就是只允许让一个程序打开一次窗口,正在运行时再次打开本程序的EXE,会弹出一个窗口告诉你,程序正在运行。 运行环境:Windows/Delphi7
首先载入抽奖号码,再选择奖项,这两步可以任意操作,完成后才能进行下一步,软件打开后只能有一次载入抽奖号码动作; 设置要抽奖的数量,点击开始抽奖,软件开始运行,开始抽奖按键变灰不可使用,同时停止按键可以...
当应用程序转移到空闲状态时,只调用一次OnIdle事件。除非参数Done设置为False,否则不连续调用OnIdle事件。将参数Done设置为False的应用程序,将消耗过多的CPU时间,从而影响整个系统性能。 在delphi中, 当在一...
Delphi程序的自动升级功能的实现(AutoUpdate使用指南) 在UtiMnid组件下,利用auAutoUpgrader实现自动升级(已经测试通过) 第一步:下载AutoUpgrader.Pro.v4.6.4。 第二步:打开AutoUpgrader.Pro.v4.6.4下面的Delphi...
Delphi网络编程源码实例,IdTCPServer只允许一个用户登录到程序,通过IdTCPServer只允许一个用户登录,解决多用户登录问题。考虑到退出异常但是保证登录正确的情况,很实用。 运行环境:Windows/Delphi7
这个功能也是非常实用的,它可以将每一次剪贴动作都记录下来,当你需要的时候,就可以快速查找到所需要的内容,在进行比较复杂的编辑时,你再也不需要因为剪贴板只能保存一次内容而犯愁了,这个功能可以为你保存最近...
4.如果需要用bcb开发由进行这一步,如只需要用delphi开发则可跳过这步,本人前几次安装都没有成功, 后面增加了这步,不知道此步是否必须, 将C:\Program Files (x86)\Embarcadero\Studio\18.0\include\windows\...
用于提供数据更新操作,支持多数据集(多表)同时更新,数据一次从服务器取回,修改完后一发回服务器更新,具体如何获取数据 或者更新数据由.Net程序在服务器上完成。组件提供三种操作:打开(Buf_OpenEntityData),...
使用TOpenCL控件,可以象使用数据库控件那样方便的去调用OpenCL程序,不需要太多代码就可以运行一个OpenCL 的Kernel。这对于学习和深入研究OpenCL的性能有一个很好的铺垫。 使用OpenCL做并行计算的一个主要因素...
//如果要写的日志文件和打开的不同(在程序第一次运行和跨天的时候出现) //则关闭打开的日志文件。 if filename <> log_filename then begin log_filename := filename; if Assigned(log_fileStream) then ...
然后再安装的,然后出现了一系列的问题,实在没时间,因为大部分程序是在2010下的,还没时间向XE8切换,不知道是不在安装的时候不能安装自带的FS5,我朋友在第一次安装的时候就没有选择,然后手动安装的,效果很好!...
这是小弟第一次上传的程序,可用于电子政务查询终端机及其它商业查询终端机上,这是一个在触摸终端机上运行的客户端程序,后续小弟还会奉上设置程序。 本程序结构灵活,所有图片都可替换,除按钮限制为240*68外,...
允许一次(无动态支持)排序数据,包括 计算和查找字段。 允许在设计时创建和填充数据,并将数据保存在的dfm文件中 形成。 允许以树的方式进行记录。每条记录可以有一条记录 元素分支和本身是其他父母记录的...
所谓临界区,就是一次只能由一个线程来执行的一段代码。如果把初始化数组的代码放在临界区内,另一个线程在第一个线程处理完之前是不会被执行的。 使用临界区的步骤: 1、先声明一个全局变量类型为...
0096 使用Pos函数返回子字符串第一次出现的索引值 66 0097 使用Quotedstr函数返回字符串的引证串 66 0098 使用Trim函数删除字符串的首尾空格 66 4.2 数学计算函数 67 0099 使用Abs函数返回指定数值的绝对值...
高手请指点,处女作品!win2000+delphi7+access2000 ...限定程序只运行一次,并能激活已经运行的实例,用到了自定义消息。 更换软件界面,这个用suipack就很容易实现了 access数据库的基本操作等