`
paulfzm
  • 浏览: 870996 次
  • 性别: Icon_minigender_1
  • 来自: 杭州
文章分类
社区版块
存档分类
最新评论

DELPHI 让程序只能运行一次

 
阅读更多
在你的程序的主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;

//....这是你原来的代码继续下去
分享到:
评论

相关推荐

    delphi程序只运行一次

    delphi编写的让程序只运行一次的代码。希望喜欢

    delphi_一次只运行一个程序原代码

    程序运行时有时只允许启动一个窗口,这时把这个代码你的代码中就可以了.

    Delphi禁止一个程序多次打开.rar

    Delphi禁止一个程序多次打开,也就是同一个程序,只允许运行一次, Result := True;  GetWindowText(Wnd,@WndCaption, 254);//获取窗口的Caption  if(Pos('MyTest',WndCaption)>=1)then //如果窗口的Caption含某...

    Delphi监测是否运行多个程序实例

    Delphi禁止运行多个程序实例,监测是否运行同一程序实例,也就是只允许让一个程序打开一次窗口,正在运行时再次打开本程序的EXE,会弹出一个窗口告诉你,程序正在运行。 运行环境:Windows/Delphi7

    DELPHI XE10.1开发的抽奖软件

    首先载入抽奖号码,再选择奖项,这两步可以任意操作,完成后才能进行下一步,软件打开后只能有一次载入抽奖号码动作; 设置要抽奖的数量,点击开始抽奖,软件开始运行,开始抽奖按键变灰不可使用,同时停止按键可以...

    delphi APPLICATIONEVENTs使用

    当应用程序转移到空闲状态时,只调用一次OnIdle事件。除非参数Done设置为False,否则不连续调用OnIdle事件。将参数Done设置为False的应用程序,将消耗过多的CPU时间,从而影响整个系统性能。 在delphi中, 当在一...

    Autoupgrader for Delphi XE5 Full Source

    Delphi程序的自动升级功能的实现(AutoUpdate使用指南) 在UtiMnid组件下,利用auAutoUpgrader实现自动升级(已经测试通过) 第一步:下载AutoUpgrader.Pro.v4.6.4。 第二步:打开AutoUpgrader.Pro.v4.6.4下面的Delphi...

    Delphi通过IdTCPServer只允许一个用户登录

    Delphi网络编程源码实例,IdTCPServer只允许一个用户登录到程序,通过IdTCPServer只允许一个用户登录,解决多用户登录问题。考虑到退出异常但是保证登录正确的情况,很实用。 运行环境:Windows/Delphi7

    GExperts 1.32 For Delphi 7

    这个功能也是非常实用的,它可以将每一次剪贴动作都记录下来,当你需要的时候,就可以快速查找到所需要的内容,在进行比较复杂的编辑时,你再也不需要因为剪贴板只能保存一次内容而犯愁了,这个功能可以为你保存最近...

    delphi / c++ builder 10.1 Berlin 安装Intraweb 14.1.5

    4.如果需要用bcb开发由进行这一步,如只需要用delphi开发则可跳过这步,本人前几次安装都没有成功, 后面增加了这步,不知道此步是否必须, 将C:\Program Files (x86)\Embarcadero\Studio\18.0\include\windows\...

    .Net4与Delphi7完整解决方案

    用于提供数据更新操作,支持多数据集(多表)同时更新,数据一次从服务器取回,修改完后一发回服务器更新,具体如何获取数据 或者更新数据由.Net程序在服务器上完成。组件提供三种操作:打开(Buf_OpenEntityData),...

    Delphi XE2的OpenCL控件(可以象TQuery一样使用OpenCL)

    使用TOpenCL控件,可以象使用数据库控件那样方便的去调用OpenCL程序,不需要太多代码就可以运行一个OpenCL 的Kernel。这对于学习和深入研究OpenCL的性能有一个很好的铺垫。 使用OpenCL做并行计算的一个主要因素...

    Delphi Logger

    //如果要写的日志文件和打开的不同(在程序第一次运行和跨天的时候出现) //则关闭打开的日志文件。 if filename <> log_filename then begin log_filename := filename; if Assigned(log_fileStream) then ...

    Delphi二维码、分组、批量打印笔记和例程

    然后再安装的,然后出现了一系列的问题,实在没时间,因为大部分程序是在2010下的,还没时间向XE8切换,不知道是不在安装的时候不能安装自带的FS5,我朋友在第一次安装的时候就没有选择,然后手动安装的,效果很好!...

    触摸查询终端机客户端程序

    这是小弟第一次上传的程序,可用于电子政务查询终端机及其它商业查询终端机上,这是一个在触摸终端机上运行的客户端程序,后续小弟还会奉上设置程序。 本程序结构灵活,所有图片都可替换,除按钮限制为240*68外,...

    delphi EhLib 9.5.012 Full Source 专业版 .rar

    允许一次(无动态支持)排序数据,包括 计算和查找字段。 允许在设计时创建和填充数据,并将数据保存在的dfm文件中 形成。 允许以树的方式进行记录。每条记录可以有一条记录 元素分支和本身是其他父母记录的...

    Delphi多线程编程之三 同步读写全局数据

    所谓临界区,就是一次只能由一个线程来执行的一段代码。如果把初始化数组的代码放在临界区内,另一个线程在第一个线程处理完之前是不会被执行的。 使用临界区的步骤: 1、先声明一个全局变量类型为...

    delphi 开发经验技巧宝典源码

    0096 使用Pos函数返回子字符串第一次出现的索引值 66 0097 使用Quotedstr函数返回字符串的引证串 66 0098 使用Trim函数删除字符串的首尾空格 66 4.2 数学计算函数 67 0099 使用Abs函数返回指定数值的绝对值...

    AccessAdmin v0.10 棕熊数据库管理

    高手请指点,处女作品!win2000+delphi7+access2000 ...限定程序只运行一次,并能激活已经运行的实例,用到了自定义消息。 更换软件界面,这个用suipack就很容易实现了 access数据库的基本操作等

Global site tag (gtag.js) - Google Analytics