ok also im explorer is das laufwerk verbunden ganz normal mit netzlaufwerk verbinden...und wird immer wieder beim systemstart verbunden. Auch wenn ich im explorer das laufwerk schonmal angeklickt habe gehts nicht. in dem shelltreeview sehe ich den laufwerksbuchstaben UND auch die unterordner und wenn ich per opendialog ein file von der platte hinzufüge geht es. Es hat nichts mit dem Thread zu tun. Es ist auch nich so das ich es in manchen programmen sehe und in manchen nicht das hab ich nie gesagt es ist nur so das eben findfirst etc einfach nichts tut null
und das is mein code:
Delphi-Quellcode:
procedure TGetFiles.GetThisFiles(aDir:ShortString; aList, aExt:TStringList);
var
fd:TWin32FindData;
fh:THandle;
i :Integer;
begin
Priority := tpLower;
FreeOnTerminate := True;
if (aDir[Length(aDir)]<>'\') then aDir:=aDir+'\';
for i:=0 to aExt.Count-1 do
begin
fh:=FindFirstFile(PChar(aDir+'*.'+aExt.Strings[i]), fd);
if (fh<>INVALID_HANDLE_VALUE) then //
repeat
aList.Add(aDir+StrPas(fd.cFileName));
until not FindNextFile(fh, fd);
Windows.FindClose(fh);
end;
fh:=FindFirstFile(PChar(aDir+'*.*'), fd);
if (fh<>INVALID_HANDLE_VALUE) then
repeat
if ((fd.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY)=FILE_ATTRIBUTE_DIRECTORY ) then
if (StrPas(fd.cFileName)[1]<>'.') then
GetThisFiles(aDir+StrPas(fd.cFileName)+'\', aList, aExt);
until not FindNextFile(fh, fd);
Windows.FindClose(fh);
end;
also es ist einfach nur so das findfirst nicht funzt auf dem laufwerk auf anderen netzlaufwerken geht es nur auf dem iomega lan Hdd ding eben nicht.