当前位置: 传客网 > Delphi限制只允许运行一个实例,程序只运行一次的方法

Delphi限制只允许运行一个实例,程序只运行一次的方法

2016-12-30 作者:牵着左手去旅行

procedure TFrmMain.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;
  end;

  //下面这是你原来的代码
end;


相关推荐

  • dephi让程序只运行一次详解

    公司开发的软件需要对串口进行*作,每次打开软件后程序自动去打开串口寻找连接到串口上的设备,但是如果用户不知道打开了两次,那么第二次打开的程序是不能正常使用的,因为对串口的*作时独占的,第一个程序独占了串口的使用权,其他程序无法再使用那一个串

  • 如何在linux嵌入式开发板上开机自动运行用户应用程序

    开机后自动运行用户的应用程序或启动系统服务的命令保存在开发板根文件系统的/usr/etc/rc.local文件中。有的开发板开机后自动运行图形界面程序,需要按住ctrl+c让开发板进入到Linux的SHELL提示符界面。其实可通过注释掉rc

  • Hadoop学习全程记录——在Eclipse中运行第一个MapReduce程序

    Hadoop学习全程记录——在Eclipse中运行第一个MapReduce程序博客分类:hadoopHadoopEclipseMapreduceJavaUbuntu接上一篇文章:Hadoop学习全程记录——hadoop入门这是Hadoop学

  • 实变函数,计算方法程序,康托图

    计算方法程序:1、秦九韶算法2、二分法3、拉格朗日插值4、埃特金算法5、复化梯形法6、复化辛甫生算法7、二阶龙格库塔方法8、四阶龙格库塔方法 9、改进的欧拉方法 10、迭代法 11、埃特金加速方法:12、牛顿迭代法 13、追赶法 14、雅克

  • [IOS]从零开始搭建基于Xcode7的IOS开发环境和免开发者帐号真机运行第一个IOS程序HelloWorld

    首先这篇文章比较长,若想了解Xcode7的免开发者帐号真机运行IOS程序的话,直接转到第五部分。转载请注明原文地址:http://www.cnblogs.com/litou/p/4843772.html本文章的内容来自于百度、谷歌得到的别人

  • winmonV4.6绿色版(可以帮助在后台记录用户运行过哪些的程序)下载,高速下载

    winmonV4.6绿色版(可以帮助在后台记录用户运行过哪些的程序)软件标签:winmon软件授权:绿色版更新时间:2010-12-1408:22:53软件类型:国产软件软件大小:32.0KB软件语言:简体中文 应用平台:Win2000/W

  • VI设计的原则、方法程序及其对公司的长远影响,vi设计论文

    VI设计的原则、方法程序及其对公司的长远影响,vi设计论文一、VI内涵及其对于企业的作用概述VI即VisualIdentity,即企业视觉识别系统,它是CIS即公司识别系统的重要组成部分,对于企业形象和深层次的企业理念有着最强的传播力和感染

  • 模拟农场15游戏打不开无法运行解决方法

    模拟农场15作为模拟农场系列游戏的最新作品,其受欢迎程度也前所未有,最近有些玩家反映游戏打不开无法运行,遇到这种问题怎么办呢?接下来小编就为大家带来模拟农场15无法运行解决方法详解,以供参考。1.游戏安装环境不全模拟农场15对对游戏运行环境

  • 《模拟农场15》游戏打不开 无法运行解决方法

    在模拟农场15游戏中,不少玩家下载安装游戏后遇到了游戏打不开无法运行的问题,这里给大家分享下这一问题的解决方法。游戏安装环境不全模拟农场15对对游戏运行环境也有要求。游戏安装程序在游戏目录_CommonRedist文件夹下。安装程序包括Di

  • 如何超度祖先亡魂、荐亡?如何安胎解厄?如何消业障集福?超度的方法程序顺序。

    为什么子孙继嗣为作功德,可以超度亡魂呢?众生都是不见棺材不落泪,不到黄河心不死!活着的时候,一千个不信,一万个不信,一旦肉体的生命断绝了,此‘中阴身’的见闻觉知,和生前一样;这时处境凄凉恐怖,精神上受著很大威胁与不安!生前若闻佛法而不信者,

  • linux下weblogic服务后台运行封装方法

    在linux直接使用以下命令weblogic服务始终处于前台,当我们推出前台时服务将自动关闭./startWeblogic.sh如果需要在后台运行时进行如下封装1.创建start.shnohup./startWeblogic.sh&

  • 解决64位本本WIN7改装xp3后系统运行慢的方法是什么

    2011年3月,笔者新买了一款64位戴尔Inspiron14R(N4010)笔记本,将原装正版64位WIN7-HOMEBASIC,换装网上盛行的“戴尔[DeLL]笔记本&台式机GhostXP_SP3专业版V2011.04”后(非双系

  • skyeye安装运行详细方法

    05年初的时候因为公司项目需要研究过一下skyeye,觉得skyeye真是一个挺不错的开源项目,遗憾的是后来公司硬件板出来后没有再深入的研究它。转眼已经过去5年了,昨天一个网友向我了解skyeye多网口配置的问题,早就忘光了!幸好原来还写了

  • 最方便的运动养生方法--步行健身

      步行快走路是最简便易行的一种健身防老法,作为一项户外活动,其锻炼身心的作用完全可以和其他运动相媲美。  平时走路,两臂要自然下垂,随着步伐轻曳摆动,保持体态平衡;通过双臂动作,腰部尽量随着转动可使关节牵引肌体活动,促进血液循环,消除疲劳

  • 谁大且有能力让日月在天上停止运行一天之久呢?又让日头倒行二次神迹呢?

    一、「Ellibrodejashar」该书为目前硕果仅存的一卷犹太古历史书,成书时间约在3500年前,公元后七十年,耶路撒冷城沦陷后,「Ellibrodejashar」及其他数种古希伯来文献从耶路撒冷被携至西班牙。公元后1613年,第一卷由

  • 电脑后台运行程序该如何关闭

    常常开机很慢很卡有没有?要等好几个程序都启动了才能用电脑有没有?那你们知道怎么提高电脑的速度吗?关闭后台程序是一种不错的方法,下面跟你分享关闭运行在电脑上的后台程序的方法。任务管理器为用户提供了计算机性能的信息,并且可以显示出正在运行的程序

  • 使用Perl的system运行外部程序

    很多情况下,需要把程序包装在Perl脚本中运行。例如,我们可以用Perl来收集执行某个程序所需的参数。或者也可以捕获其它命令行程序的输出,然后再基于它们做一些决策。Perl提供了很多不同的解决方案。来看一下。systemsystem可能是最

  • [转载]调试运行程序时输出为乱码

    原文地址:调试运行程序时输出为乱码作者:debmzhang问题:调试运行程序时输出为乱码解决:乱码是由于使用文档编码方式不同造成,修改文档编码即可,我使用的是EditPlus来编写php代码,调整可点文档--文件编码方式调整即可解决!

  • 虚拟机中被提示"请不要在虚拟机中运行此程序" 解决方法,“Themida Sorry, th

    虚拟机中被提示"请不要在虚拟机中运行此程序"解决方法.英文提示:"ThemidaSorry,thisapplicationcannotrununderaVirtualMachine"解决VMware虚拟机中被提示“请不要在虚拟机中运行此程序

  • 运行python程序的方法

    运行python程序的主要方法有:1.在交互模式下输入运行代码2.在系统命令提示符中运行,如下:C:\>D:\apps\pythonC:\Users\Youngziyi\Desktop\test\script1.pyC:\>D:

返回
顶部