Forum: Win32/Win64 API (native code)
Delphi
by nat,
2. Mär 2010
dort redest du davon, dass du verschiedene icons "machen" willst...
hier redest du dann davon, dass du ein zeichen herausfinden willst (wohl um die ext auszulesen)
daraus habe ich mir dann zusammengereimt, dass du wohl die file-ext extrahieren möchtest um
abhängig davon verschiedene icons anzuzeigen. wirklich ersichtlich war das aber nicht.
naja, ist ja auch nicht schlimm. habe dich...
Forum: Win32/Win64 API (native code)
Delphi
by nat,
2. Mär 2010
so richtig hab ich schon wieder nicht kapiert was du von uns wissen willst, aber
ich versuche mal das zu beantworten was ich aus deinem post herauslesen konnte.
uses StrUtils;
Ext := ExtractFileExt(Filename);
Forum: Win32/Win64 API (native code)
Delphi
by nat,
2. Mär 2010
genau diese variante benutze ich extra nicht.
was machst du denn, wenn ein ordner ".hallo" heißt?
ist ein gültiger name. deine routine überspringt ihn dann!
Forum: Win32/Win64 API (native code)
Delphi
by nat,
2. Mär 2010
ich habe jetzt nicht ganz kapiert was du für ein problem hast, aber
wenn du "." und ".." weg haben willst, dann sollte dein code so aussehen:
procedure ListFileDir(Path: string);
var
SR: TSearchRec;
dview: TListItem;
begin
if FindFirst(Path + '*.*', faAnyFile, SR) = 0 then begin
//if SR.Name <> '.' then begin // Benutze ich, um die zwei Ordner wegzukriegen! (Screenshot) ...