Forum: Win32/Win64 API (native code)
Delphi
by DeddyH,
2. Mär 2010
Das kann wohl nur der TE beantworten.
Forum: Win32/Win64 API (native code)
Delphi
by DeddyH,
2. Mär 2010
Ich hab mich jetzt nach dem Edit in #3 gerichtet, danach will er Ordner haben.
Forum: Win32/Win64 API (native code)
Delphi
by DeddyH,
2. Mär 2010
Dann will ich auch noch meinen Senf dazugeben :mrgreen:procedure ListFileDir(const Path: string; const DirFileView: TListView);
var
SR: TSearchRec;
dview: TListItem;
begin
if FindFirst(IncludeTrailingPathDelimiter(Path) + '*.*', faAnyFile, SR) = 0 then
begin
repeat
if (SR.Name <> '.') and (SR.Name <> '..') then
if (sr.Attr and faDirectory = faDirectory) then