网站 › 『编程语言区』 › 工程文件中的互斥体的应用

hixiaosheng 发表于 2010-2-4 22:52

工程文件中的互斥体的应用

本帖最后由 当红小生 于 2010-2-4 23:01 编辑

program Project1;

uses
Forms,windows,
Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
CreateMutex(nil,False,'only flag!');
if GetLastError <> 0 then
begin
Application.MessageBox('程序已经运行,你不想双开吧？','提示',MB_OK);
Halt(0);
end;
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
==========================================
脱穿山甲，pespin双进程的时候用到了互斥体
其他收获：
**** Hidden Message *****

哲少 发表于 2010-2-22 15:32

来看一下

zx258 发表于 2010-6-17 09:16

互斥体是个有用的d~~

nevsayno 发表于 2010-6-18 03:50

谢谢分享

nevsayno 发表于 2010-6-18 03:54

Terminate之后便是互斥体释放了吗？

hak88 发表于 2010-9-29 14:48

第一次听说这个，学习了

ww949494 发表于 2010-10-18 18:44

我一直用findwindow判断

elqs 发表于 2010-10-26 16:12

我也是這麼用的

ji5261 发表于 2011-1-11 12:14

新手来学习下这个东西。

qwertq002 发表于 2011-10-17 18:09

{:1_921:}{:1_921:}{:1_921:}{:1_921:}

查看完整版本: 工程文件中的互斥体的应用