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选中文本操作 设置webbrowser的内容

Delphi 解决Delphi indy10下 utf8码转换的问题

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

Delphi splitter 控件属性及作用

Delphi 判断上午还是下午

Delphi一个非常完整的取windows os 版本信息的函数

Delphi 从listview组件中的选定行在数据库中删除

Delphi 如何检测你的电脑日期或时间的变化

Delphi tchart使用经验小结

Delphi treeview �c 自动给标题上加图片

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

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