Überprüfen ob String in ListBox vorhanden

[GimbaR]

Hi, hba mal wieder ne Frage: Ich habe den Source-Code von Luckie genutzt, um bestimmte Programme zu schließen. Nun habe ich folgendes Problem: Wenn mein Programm ein Programm beenden will, bzw soll^^, dass nicht gestartet wurde, kommt eine Fehlermeldung "Listenindex überschreitet das Maximum (-1)". Ich habe es hiermit versucht zu umgehen:

Delphi-Quellcode:

if ((Listbox1.Items.Strings[Listbox1.Items.IndexOf(appexe)])=appexe) then
        KillProcess(GetProcessID(Listbox1.Items.Strings[Listbox1.Items.IndexOf(appexe)]));

Wie man unschwer erkennen kann, enthält die Variable appexe die exe-Datei. Das mit KillProcess funktioniert einwandfrei, außer wenn halt der String nicht in der ListBox (in der die System-Prozesse als Items/Strings geladen werden) vorhanden ist.

Meine Frage lautet nun, wie ich gucken kann, ob der String appexe schon vorhanden ist...

mfg GimbaR

[Assarbad]

Indem du die Rückgabe von IndexOf() überprüfst? -1 sollte bedeutetn, daß der String nciht vorhanden ist.

[himitsu]

Also sollte

Delphi-Quellcode:

if (Listbox1.Items.Strings[Listbox1.Items.IndexOf(appexe)]) > -1 then 
        ...

ausreichen, ausserdem ist doch

Delphi-Quellcode:

        Listbox1.Items.Strings[Listbox1.Items.IndexOf(appexe)]) = appexe

, da ja "Listbox1.Items.IndexOf(appexe)" die Position von "appexe" und demnach "Listbox1.Items.Strings[Die_Position_von_appexe)])" wiederum "appexe" zurückgibt.

Also kommt es somit auf folgendes raus:

Delphi-Quellcode:

if (Listbox1.Items.Strings[Listbox1.Items.IndexOf(appexe)]) > -1 then 
        KillProcess(GetProcessID(appexe));

[Assarbad]

Zitat:

Zitat von himitsu

Also kommt es somit auf folgendes raus:

Delphi-Quellcode:

if (Listbox1.Items.Strings[Listbox1.Items.IndexOf(appexe)]) > -1 then 
        KillProcess(GetProcessID(appexe));

LOL, so genau hatte ich garnicht hingeschaut. Sieht aber viel eleganter aus als vorher :-D