Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Function TigerSearchFolder( Path , FName : String; SubFolder , FileSize : Boolean ) : String; Var Sr : TSearchRec; Res : Integer; Begin Path := IncludeTrailingPathDelimiter( Path ); Res := FindFirst( Path + FName , faAnyFile , Sr ); While Res = 0 Do Begin Application.ProcessMessages; If ( Sr.Name <> '.' ) AND ( Sr.Name <> '..' ) Then Begin If DirectoryExists( Path + Sr.Name ) Then Begin If SubFolder Then Begin TigerSearchFolder( Path + Sr.Name , FName , SubFolder , FileSize); End; End Else Begin with form6.Listview1.Items.Add do begin Caption := path + Sr.Name; SubItems.Add(extractfilename(path + Sr.Name)); SubItems.Add(extractFileExt(lowercase(path + Sr.Name))); //SubItems.Add(booltostr(DirectoryExists(path + Sr.Name))); end; End; End; Res := FindNext(Sr); End; FindClose(Sr); End; TigerSearchFolder('C:\; ,'*.*', true , true );
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.