Forum: Object-Pascal / Delphi-Language
Delphi
by Satty67,
3. Mär 2009
Nächster Schritt wäre jetzt wohl mit absoluten Pfaden zu arbeiten (also C:\...).
Glaube '.\' greift auf den aktuellen Explorer-Ordner zu, der sich während des Programmablaufs auch gerne mal ändern kann
Forum: Object-Pascal / Delphi-Language
Delphi
by Satty67,
3. Mär 2009
Vielleicht ist der Fehler im Abruf der Strings von AdvSmoothListBox1 (?) oder noch irgendwo ein Fehler in der ExeSearch.
Poste doch was Du jetzt hast.
€: Werden zwei aufeinander folgende Backslash nicht einfach als einer interpretiert?
Forum: Object-Pascal / Delphi-Language
Delphi
by Satty67,
3. Mär 2009
Ok, kenne AdvSmoothListBox1 nicht. dachte Items ist eine StringList.
ich muss jetzt etwas raten, funktioniert:
ExeSearch(AdvSmoothListBox1.Items.Caption);
Ansonsten musst Du selber schauen, wo die Strings gespeicheert sind.
Forum: Object-Pascal / Delphi-Language
Delphi
by Satty67,
3. Mär 2009
Einfach die Liste mit den Ordnern durchgehen und da nach Exe suchen:
// Eigentlich Blödsinn, für jede Aufgabe eine extra Procedure
// könnte man prima mit ein paar Parametern in einer lösen
// aber zu leichteren Verständnis
procedure ExeSearch(ADirectory: String);
var
SR: TSearchRec;
begin
if FindFirst(ADirectory + '\*.exe', faAnyFile, SR)=0 then