RSS订阅 | 匿名投稿
您的位置:网站首页 > 程序 > 正文

delphi 判断程序是否已经运行

作者:admin 来源:未知 日期:2010/5/8 23:42:15 人气: 标签:

1。在工程单元中引用windows单元。

2。定义一个变量,类型为hMutex:THandle.

3. hMutex := CreateMutex(nil, False, 'TheStandard');

4.if GetLastError = ERROR_ALREADY_EXISTS then
begin

   CloseHandle(hMutex);
    ShowMessage('本软件的另一个副本已经在运行中');
    application.Terminate;
end
else
begin
Application.CreateForm(TForm1, Form1);
Application.Run;
end;

例如:

program Project1;

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

{$R *.res}
var
hMutex: THandle;
begin
Application.Initialize;
hMutex := CreateMutex(nil, False, 'TheStandard');
if GetLastError = ERROR_ALREADY_EXISTS then
begin

    CloseHandle(hMutex);
    ShowMessage('本软件的另一个副本已经在运行中');
    application.Terminate;
end
else
begin
Application.CreateForm(TForm1, Form1);
Application.Run;
end;
end.

例如:


读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址: