Filemanager Fehler - Lösung gefunden?

[DarkItachi]

Nein ^^

Ich will nur die Ordner auflisten...
ListFileDir da kommt auch noch der Ordner Code hinter..
Den hab ich jetzt nur weggelassen, damit der Code nicht so riesig aussieht!

Naja, auf jeden Fall danke für die Hilfe...
Die ganzen Versuche, um die Ordner . und .. wegzulassen hat sich nicht gelohnt!
Aber hier gibt es ja Experten! ^^
Ich probiere den Code mal...


Thx


EDIT:

Funktioniert Super!

Ich weiß wie ich verschiedene Icons machen könnte!
Also zu mindestens wäre 'Case of' gut.

Jedoch hab ich schon seit gestern das Problem, die letzten Zeichen herauszufinden.
PosEx() kennt mein Delphi nicht, zu mindestens weiß ich nicht welche Unit ich einbinden muss...

Delphi-Quellcode:

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, Buttons, StdCtrls, ImgList, PngImageList;

Naja, vielleicht kennt jemand noch einen besseren Weg, um die Extension herauszubekommen.

Also SR.Name hat leider nur einen Befehl um den Namen herauszufinden.
Und mit *.exe usw hab ich auch schon rumprobiert...

Was würdet ihr mir empfehlen?