限定程序只執行一次

最新推荐文章于 2022-03-22 22:26:27 发布

bambuz

最新推荐文章于 2022-03-22 22:26:27 发布

阅读量739

点赞数

分类专栏： delphi 文章标签： function access string

本文链接：https://blog.csdn.net/bambuz/article/details/6009823

版权

delphi 专栏收录该内容

34 篇文章 0 订阅

订阅专栏

function GetFileNameExcludeExt(const AFileName: string): string;
// 取得擴展名

var
I: Integer;
begin
Result := ExtractFileName(AFileName);
I := LastDelimiter('.' + PathDelim + DriveDelim, Result);
if (I = 0) or (Result[I] <> '.') then I := MaxInt;
Result := Copy(Result, 1, I - 1);
end;

var
MutexName: string;
StockMutexHandle: THandle;

begin
MutexName := ExtractFileName(ParamStr(0));
if MutexName <> 'APServer.exe' then MutexName := 'APServer.exe';
MutexName := 'Mutex_' + GetFileNameExcludeExt(ParamStr(0)) + Copy(MutexName, 2, Length(MutexName));
StockMutexHandle := Windows.OpenMutex(MUTEX_ALL_ACCESS, False, PChar(MutexName));
if (StockMutexHandle = 0) and (Windows.GetLastError <> ERROR_ALREADY_EXISTS) then
begin
    Windows.CreateMutex(nil, False, PChar(MutexName));
    Application.Initialize;
    Application.CreateForm(TMainFrm, MainFrm);
    Application.Run;
end;
end.