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 xe5 android 使用system.zip单元释放资源文件

Delphi 通过u盘方式加密

Delphi new 为指针分配内存空间

Delphi 一个线程安全的轻量级的日志类

Delphi createmessagedialog

Delphi隐藏进程

Delphi xe 获取 android application version 版本

Delphi响应wmi事件（响应网线断开）

Delphi package 把函数单元做成bpl调用

Delphi 去掉mdi窗口的滚动条

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

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