Hallo Community,
Ich will mithilfe eines Lazarus Programms alle Dateien aus einem Ordner öffnen.
Nun habe ich einen FileListBox erstellt und folgende Procedure geschrieben:
procedure TForm1.Button1Click(Sender: TObject);
var
x,i:integer;
begin
x := FileListBox1.items.count;
for i := 1 to x do
begin
SysUtils.ExecuteProcess('hier\steht\der\pfad'+FileListBox1.items[i],['',''])
end;
end;
aber es kommt immer ein Fehler... wenn ich auf den Button klicke :/
1. Welche Fehlermeldung?
2. Bei Lazarus laufen Listen- und Arrayindices immer von Null ab. Das heißt, das letzte Element hat den Index Count-1. Deine Schleife muss daher "for i := 0 to x-1" heißen.
3. Was meinst du genau mit "Öffnen"? Was willst du mit den Dateien machen? Jedesmal einen Prozess zu starten erscheint mir nicht richtig. Was ist, wenn das Betriebssystem für die Datei keine geeigenete Anwendung findet? Dann musst du, bei x=100, 100 mal bestätigen, welche Anwendung die richtig ist...
also... ich möchte für ein Spiel addons installieren.
und die sind alle vom typ: ".Sims3pack"
aber da das ziemlich viele sind möchte ich die nicht alle einzeln anklicken.
Fehlermeldung:
Projekt project1 hat Excception-Klass >> EOSError<< ausgelöst mit der Meldung:
Failed to execute ""Pfad\datein.Sims3pack"
Bei Adresse 45909A