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 firedac 的recordcount 相关测试 记录

Delphi 实现窗体随着鼠标移动

Delphi getprocesshandleasname 获取进程句柄

Delphi 优化mdb文件

Delphi dos编程

Delphi 绘制精美的签名图片

Delphi delete 删除字符串中指定的字符串

wmi远程访问问题解决方法

Delphi 递归搜索文件夹子目录

Delphi 获取路径分隔符

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

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