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 中让嵌入窗体的 webbrowser 控件无边框

Delphi xe6 在两个图片切换的时候实现翻书效果

Delphi 日期相关总结20190702完结篇

Delphi tstreamreader tfile assignfile读取文本文件

Delphi文件是否正在使用

Delphi tparallel并行性能测试

Delphi getforegroundwindow 与 getactivewindow 的区别

Delphi idhttp访问http与https不同点

Delphi 一行一行读取txt文件

Delphi基于prewitte算子的图像边缘检测

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

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