Problem beim Dateiensuchen -> Unicode + Gesperrte Ordner

[himitsu]

Zitat von ThE_-_BliZZarD:

Und die FindNext durch "FindNextFileW" oder was? muss ich was beachten? weil ich der Delphi7Hilfe stehen die Funktionen nicht

Also mein D7 kennt FindNextFile (Menü > Hile > Windows SDK).
nur wie Luckie schon sagte hat's die VCL nicht so mit'm Unicode und da die von Borland Konsequent sind, gibt's auch fast kein Unicode in der WinAPI-Hilfe. (OK, im MSDN gibt's davon och nicht viel)

Allerdigns sind die Befehle gleich den ANSI-Versionen aufgebaut, nur halt die String als Wide...

oder du schaust einfach mal ins MSDN > FindNextFileW

[add]
ich hoffe du hast i initialisiert?

Ansonsten ... wenn ich i umstelle und den Code kürze, dann kommt ja dieses raus
und einen Fehler kann ich da nicht entdecken, jedenfalls keinen welcher der ein "Festfahren"? erklären würde.

Delphi-Quellcode:

if FindFirst('*', faAnyFile, searchResult) = 0 then 
  begin 
    repeat 
      i := Length(ergebnisse);
      SetLength(ergebnisse, i + 1); 
      ergebnisse[i].is_directory := (searchResult.Attr and faDirectory) = faDirectory; 
      ergebnisse[i].name         := searchResult.Name;
      ergebnisse[i].size         := 0; 
    until FindNext(searchResult) <> 0; 
    FindClose(searchResult); 
end;

Zitat:

Das Listing versucht den Ordner zu öffnen, öffnet sich aber immer wieder
selbst (rekursiv..) und fährt sich dort fest.

Aber wo ist hier was rekursiv und wo wird was geöffnet?