CSDN下载源码地址:https://download.csdn.net/download/lzksword/13959429
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit4.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm4 *Form4;
//---------------------------------------------------------------------------
__fastcall TForm4::TForm4(TComponent* Owner)
: TForm(Owner)
{
}
//ExtractFileDrive :返回完整文件名中的驱动器,如"C:"
//ExtractFilePath:返回完整文件名中的路径,最后带“/”,如"C:\test\"
//ExtractFileDir:返回完整文件名中的路径,最后不带“/” ,如"C:\test"
//ExtractFileName:返回完整文件名中的文件名称 (带扩展名),如"mytest.doc"
//ExtractFileExt 返回完整文件名中的文件扩展名(带.),如".doc"
//---------------------------------------------------------------------------
void __fastcall TForm4::Button1Click(TObject *Sender)
{
String strMdbFile = ExtractFilePath(ParamStr(0))+"\\1.txt";
Label1->Caption=Label1->Caption+ExtractFileDrive(strMdbFile) ;
Label2->Caption=Label2->Caption+ExtractFilePath(strMdbFile) ;
Label3->Caption=Label3->Caption+ExtractFileDir(strMdbFile) ;
Label4->Caption=Label4->Caption+ExtractFileName(strMdbFile) ;
Label5->Caption=Label5->Caption+ExtractFileExt(strMdbFile) ;
}
//编译实例效果图