SAMBA方式读取局域网共享文件BCB6.0

用C++Builder6.0编写的通过SAMBA方式读取局域网内共享文件夹并列表显示其所有子文件夹及文件。附件中包含完整代码及可执行程序和截图，希望对需要的朋友有参考。

//---------------------------------------------------------------------------

#include 
#pragma hdrstop
//---------------------------------------------------------------------------
USEFORM（“Unit1.cpp“ Form1）;
//---------------------------------------------------------------------------
WINAPI WinMain（HINSTANCE HINSTANCE LPSTR int）
{
        try
        {        //同一个程序只运行一次的实例，仅需复制以下一段代码
                 HANDLE   hnd   =   CreateMutex（NULLTRUE“FXQSMB“）;
                 if（NULL == hnd）
                   {MessageBox（NULL“创建Mutex失败!““NoPrev“MB_OK|MB_SYSTEMMODAL）;  return 0; }
                 if（GetLastError（）==ERROR_ALREADY_EXISTS）
                    {
                     ::MessageBox（NULL“我已经运行了!“Application->title.c_str（）MB_OK|MB_SYSTEMMODAL）;
                     ReleaseMutex（hnd）;
                     return   0;
                     }
                 //同一个程序只运行一次的实例END



                 Application->Initialize（）;
                 Application->title = “范兴强“;
                 Application->CreateForm（__classid（TForm1） &Form1）;
                 Application->Run（）;
        }
        catch （Exception &exception）
        {
                 Application->ShowException（&exception）;
        }
        catch （...）
        {
                 try
                 {
                         throw Exception（““）;
                 }
                 catch （Exception &exception）
                 {
                         Application->ShowException（&exception）;
                 }
        }
        return 0;
}
//---------------------------------------------------------------------------

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件       1544  2018-09-24 22:35  Unit1.h

     文件       4934  2018-09-24 22:35  Unit1.dfm

     文件         51  2018-09-24 22:38  Unit1.ddp

     文件       8944  2018-09-24 22:38  Unit1.cpp

     文件      28288  2018-09-24 22:49  QQ截图20180924223203.png

     文件       1648  2002-02-02 00:00  mpr.lib

     文件        876  2018-09-24 22:24  FXQSMB.res

     文件     615424  2018-09-24 22:38  FXQSMB.exe

     文件       1722  2018-09-24 15:24  FXQSMB.cpp

     文件       3647  2018-09-24 22:24  FXQSMB.bpr

     文件        766  2006-01-07 12:04  FAN.ICO

     文件         32  2017-10-21 00:09  DelTemp.bat

----------- ---------  ---------- -----  ----

               667876                    12