Rausfinden wie oft ein Programm läuft

[DeddyH]

Nach einem kurzen Blick in die Unit sollte das so funktionieren:

Delphi-Quellcode:

var
  test: TJclAppInstances;
begin
  test := TJclAppInstances.Create;
  try
    ShowMessage(IntToStr(test.GetInstanceCount));
  finally
    test.Free;
  end;