Question

使用 FireMonkey 和多平台应用程序（ Windows + Mac OS X ），如何只有一个实例< / strong>同时运行的应用程序？

如果之前的实例已在运行，如何将其设置为桌面前景窗口？

我可以检查文件是否被锁定：

未锁定：我将其锁定并正常运行

已锁定：找到以前的版本（在Windows上，我知道如何...但在Mac上？）并将其设置为前景窗口

我可以查看启动同一进程的次数（同上，在Windows上，确定，但是如何在Mac OS X上执行）

...

Answer 1

对于Windows和OSX，您都可以获取正在运行的应用程序列表，并在关闭消息之前检查您的应用程序是否在列表中。在OSX中，您可以使用NSWorkspace的lauchedApplications方法获取列表，而在Windows中，您可以使用toolhelp32库来实现相同的目的。以下是我在我的网站上发布的TPlatformExtensions类的相关代码。

对于OSX：

uses Macapi.AppKit, Macapi.Foundation;

class procedure TPlatformExtensionsMac.GetRunningApplications(
  Applist: TStringlist);
var
  fWorkSpace:NSWorkSpace;
  list:NSArray;
  i: Integer;
  lItem:NSDictionary;
  key,value: NSString;
begin
  fWorkSpace := TNsWorkspace.Wrap(TNsWorkSpace.OCClass.sharedWorkspace);
  list := fWorkspace.launchedApplications;
  if (List <> nil) and (List.count > 0) then
  begin
    for i := 0 to list.count-1 do
    begin
      lItem := TNSDictionary.Wrap(List.objectAtIndex(i));
      key := NSSTR(String(PAnsiChar(UTF8Encode('NSApplicationBundleIdentifier'))));
      // You can also use NSApplicationPath or NSApplicationName
      value := TNSString.Wrap(lItem.valueForKey(key));
      Applist.Add(String(value.UTF8String));
    end;
  end;
end;

对于Windows：

uses Winapi.TlHelp32, Winapi.Windows;

class procedure TPlatformExtensionsWin.GetRunningApplications(
  Applist: TStringlist);
var
 PE: TProcessEntry32;
 Snap: THandle;
 fName: String;
begin
  pe.dwsize:=sizeof(PE);
  Snap:= CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  if Snap <> 0 then
  begin
    if Process32First(Snap, PE) then
    begin
     fName := String(PE.szExeFile);
     Applist.Add(fName);
     while Process32Next(Snap, PE) do
     begin
       fName := String(PE.szExeFile);
       Applist.Add(fName);
     end;
    end;
    CloseHandle(Snap);
  end;
end;

如果您需要有关该主题的更多信息，可以阅读关于该主题的article。

只有一个带有FireMonkey的应用程序实例

1 个答案: