Quote:Function AlreadyRunning: Boolean;
var
{$IFDEF MACOS}
fWorkSpace:NSWorkSpace;
list:NSArray;
i: Integer;
lItem:NSDictionary;
key,value: NSString;
{$ELSE}
PE: TProcessEntry32;
Snap: THandle;
{$ENDIF}
t: Integer;
Begin
result:=False;
t:=0;
{$IFDEF MACOS}
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));
if 'MYPROGRAMMA.APP'=Uppercase(String(value.UTF8String)) then
inc(t);
end;
end;
{$ELSE}
pe.dwsize:=sizeof(PE);
Snap:= CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS, 0);
if Snap <> 0 then
begin
if Process32First(Snap, PE) then
begin
if 'MYPROGRAMMA.EXE'=Uppercase(String(PE.szExeFile)) then
inc(t);
//Applist.Add(fName);
while Process32Next(Snap, PE) do
begin
if 'MYPROGRAMMA.EXE'=Uppercase(String(PE.szExeFile)) then
inc(t);
end;
end;
CloseHandle(Snap);
end;
{$ENDIF}
if t>1 then
Result:=True;
End; { AlreadyRunning }
Searched alot over internet did not found it