Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
test: TStringList;
begin
Listbox1.Clear;
GetProcessList(Listbox1.items);
i := 0;
test := TStringList.Create;
test.AddStrings(Listbox1.items);
while i <= test.Count - 1 do
begin
if test.Strings[i] = PChar('XXX.exe') then ShellExecute(Application.Handle, 'open', 'mail.bat', nil, nil, SW_SHOW);
i := i+1;
end
so hab i das jetzt gemacht
da ich ja sowieso alle prozesse in eine listbox ausgebe... lese ich die items in eine TSTringList ein und prüfe ob die gewünschte datei dabei ist!
jetzt muss ich nur noch das if so setzen das der fehler nur dan kommt wen
test.Strings[i] = PChar('XXX.exe')
nicht zutrifft bis
i <= test.Count - 1
ist...