Fehler in Tool zur Nezwerk- und Programm- Prüfung

[shmia]

Zitat von theend:

währe es möglich da ich alle Prozesse in eine listbox schreibe in dieser listbox nach einem eintrag zu suchen!?

Ja klar.
baust du dir eine Funktion und schmeist die globale Variable xx auf den Müll

Delphi-Quellcode:

function TForm1.ProgrammExists(const progname:string):boolean;
var
   i : integer;
begin
   for i:=0 to ListBox1.Items.Count-1 do
   begin
      if AnsiCompareStr(LowerCase(ListBox1.Items[i]),LowerCase(progname)) = 0 then 
      begin
         result := True;
         Exit;
      end;
   end;
   Result := False;
end;