delphi 让程序只运行1次

本文整理自网络，侵删。

 让程序只运行1次
procedure TForm1.FormCreate(Sender: TObject);
begin
CreateMutex(nil,False,'NetSend');
if GetLastError=ERROR_ALREADY_EXISTS then
begin
Halt(0);
end;
end;
end. 

相关阅读 >>

Delphi paramstr 获取外部参数

Delphi playsound()函数应用

Delphi 两种登录界面验证写法

xp/2003下Delphi最简单的方法开放3389

Delphi hextoint32

Delphi使用json解析调用淘宝ip地址库rest api 示例

Delphi 根据注册表信息判断程序是否安装

Delphi 随意将函数执行权限提高到ring0源代码

Delphi实现文件下载urldownloadtofile

Delphi 取得和设置当前系统的短日期格式

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 让程序只运行1次