begin
CreateMutex(nil, True, '互斥对象');
if GetLastError <> ERROR_ALREADY_EXISTS then
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end
else begin
ShowMessage('只能运行一个实例');
end;
end.
Delphi 只运行一个实例
最新推荐文章于 2023-11-22 12:55:25 发布