Einzelnen Beitrag anzeigen

PierreB
(Gast)

n/a Beiträge
 
#5

Re: Wie oft ist meine Anwendung geöffnet?

  Alt 6. Jun 2005, 23:23
Noch ne Methode:
Einfach alle laufenden Prozesse in ne Listbox laden:
Delphi-Quellcode:
uses
 tlhelp32;

procedure GetProcessList(const aProcessList: TStrings);
var
  Snap: THandle;
  ProcessE: TProcessEntry32;
begin
  aProcessList.Clear;
  Snap := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  try
    ProcessE.dwSize := SizeOf(ProcessE);
    if Process32First(Snap, ProcessE) then
      Repeat
        aProcessList.Add(ProcessE.szExeFile);
      Until not Process32Next(Snap, ProcessE)
    else
      RaiseLastOSError;
  finally
    CloseHandle(Snap);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 GetProcessList(listbox1.Items);
end;
Und dann einfach in der Listbox suchen wie oft deine Anwendung da drinne steht.
Zawr nicht grad elegant, aber eine Alternative.
  Mit Zitat antworten Zitat