如何保证Delphi程序只能被执行一次
答案:2 悬赏:80 手机版
解决时间 2021-01-03 23:13
- 提问者网友：夢醒日落
- 2021-01-03 05:50
如何保证Delphi程序只能被执行一次
最佳答案
- 五星知识达人网友：雾月
- 2021-01-03 06:27
在你的程序的主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;
end;
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;
end;
全部回答
- 1楼网友：七十二街
- 2021-01-03 07:44
这程序点击按钮后，只有执行了一个函数：myproc(i);
myproc(i)的功能是对参数值递增3，并且是过程形式；另一个是递增2，并且是函数形式；
写成tmyclass类的形式作者的本意可能是为了突出 类 的应用，多个函数集中到一个类显得有条理些；当然也可以写成单个函数，可以不要tmyclass类。
type
tmyclass = class
procedure myproc(var x: integer);
function myfun (var x: integer): integer;
end;
括号里面的是形式参数。
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯