a:=FindFirst(TransLatePath(apath, ASender
.
HomeDir)+
'*.*'
, faAnyFile, f);
Form1
.
Edit1
.
Text:=Copy(apath,
7
,
1
)+
':'
+Copy(apath,
8
,
1000
)+
'*.*'
;
if
Copy(ASender
.
CurrentDir,
2
,
4
)=
'disc'
then
a:=FindFirst(Copy(apath,
7
,
1
)+
':'
+Copy(apath,
8
,
1000
)+
'*.*'
, faAnyFile, f);
if
ASender
.
CurrentDir=
'/'
then
begin
AddlistItem(ADirectoryListing,
'disc D'
, ditDirectory,
0
, Date()+Time());
AddlistItem(ADirectoryListing,
'disc E'
, ditDirectory,
0
, Date()+Time());
AddlistItem(ADirectoryListing,
'disc I'
, ditDirectory,
0
, Date()+Time());
AddlistItem(ADirectoryListing,
'disc F'
, ditDirectory,
0
, Date()+Time());
end
;