文件操作相关示例程序

#include <dos.h>
#include <io.h>

#include <vcl.h>
#pragma hdrstop

#include "UnitMain.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::btn_readFileClick(TObject *Sender)
{
if(dlgOpen_1->Execute())
edt_delFile->Text = dlgOpen_1->FileName;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::btn_delFileClick(TObject *Sender) // 删除文件
{
if(edt_delFile->Text.IsEmpty()) return;
if(DeleteFile(edt_delFile->Text))
MessageBox(Handle,"删除文件操作成功！","提示信息",MB_OK);
else{ //删除只读文件
_rtl_chmod(edt_delFile->Text.c_str(),1,FA_ARCH);
if(DeleteFile(edt_delFile->Text))
MessageBox(Handle,"删除文件操作成功！","提示信息",MB_OK);
else
MessageBox(Handle,"删除文件操作失败！","提示信息",MB_OK);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::btn_delDirClick(TObject *Sender) // 删除文件夹
{
// deltree(edt_Dir->Text);
String strFolder = edt_Dir->Text;
if(strFolder.IsEmpty()) return;
if(!DirectoryExists(strFolder)){
MessageBox(Handle,"删除文件夹不存在","提示信息",MB_OK);
return;
}
String strOpt = "rd ";
strOpt += strFolder + " ";
int iResult = system(strOpt.c_str());
switch(iResult){
case ENOMEM:
MessageBox(Handle,"系统内存或资源不足！","提示信息",MB_OK);
break;
case ENOENT:
MessageBox(Handle,"路径或文件错误！","提示信息",MB_OK);
break;
case ENOEXEC:
MessageBox(Handle,"执行文件格式错误！","提示信息",MB_OK);
break;
default:
break;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::btn_FindClick(TObject *Sender) // 搜索含隐藏文件
{
lst_ListFile->Clear();
String strFolder = edt_Folder->Text;
String strFile = edt_File->Text;
if(strFolder.IsEmpty() || strFile.IsEmpty()) return;
TSearchRec strRecord;
int iAttributes = 0;
iAttributes |= faHidden;
if(FindFirst(strFolder+"//"+strFile,iAttributes,strRecord) == 0){
if(_rtl_chmod(strRecord.Name.c_str(),0) == FA_HIDDEN) //FA_systm FA_rdonly FA_hidden FA_label FA_direc FA_arch
{
_rtl_chmod(strRecord.Name.c_str(),1,FA_ARCH);
lst_ListFile->Items->Add(strFolder+"//"+strRecord.Name);
}
while(FindNext(strRecord) == 0){
_rtl_chmod(strRecord.Name.c_str(),1,FA_ARCH);
lst_ListFile->Items->Add(strFolder+"//"+strRecord.Name);
}
FindClose(strRecord);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::btn_1Click(TObject *Sender)
{
if(dlgOpen_1->Execute())
edt_FileName->Text = dlgOpen_1->FileName;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::btn_FindStrClick(TObject *Sender) // 搜索文本文件字符串
{
TMemo *mmo_1 = new TMemo(this);
mmo_1->Parent = this;
try{
mmo_1->Lines->LoadFromFile(edt_FileName->Text);
}catch(...){
MessageBox(Handle,"文本文件不能正确打开","信息提示",MB_OK);
return;
}
int iCount = 0, i = 0;
bool bFlag = false;
char p1[255],p2[255],*p3,*p4;
for(i=0; i<mmo_1->Lines->Count; i++){
StrPCopy(p1,mmo_1->Lines->Strings[i]);
p3 = p1;
while((*p3)!= '/0'){
StrPCopy(p2,edt_String->Text);
p4 = p2;
if(strlen(p4) > strlen(p3)) break;
bFlag = true;
while((*p4)!='/0' && (*p3)!='/0'){
if( *p4 != *p3){
bFlag = false;
p3++;
break;
}
p4++;
p3++;
}
if(bFlag == true) iCount++;
}
}
if(iCount){
AnsiString strResult = "找到" + IntToStr(iCount) + "个相同的字符串";
edt_Result->Text = strResult;
}
else
edt_Result->Text = "没有找到相同的字符串";
delete mmo_1;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::btn_2Click(TObject *Sender)
{
if(dlgOpen_1->Execute())
edt_Long->Text = dlgOpen_1->FileName;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::btn_ShortPathClick(TObject *Sender) // 长文件名转化短文件名
{
if(edt_Long->Text.IsEmpty()) return;
char shortFileName[MAX_PATH];
GetShortPathName(edt_Long->Text.c_str(),shortFileName,MAX_PATH);
edt_Short->Text = shortFileName;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::btn_MultiSelectClick(TObject *Sender) // 在文件中选择多个文件
{
lst_Multi->Clear();
dlgOpen_1->Options.Clear();
dlgOpen_1->Options<<ofAllowMultiSelect<<ofFileMustExist;
if(dlgOpen_1->Execute()){
for(int i=0; i< dlgOpen_1->Files->Count; i++)
lst_Multi->Items->Add(dlgOpen_1->Files->Strings[i]);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::btn_SystemClick(TObject *Sender) // 获得系统所有文件类型
{
lst_Multi->Clear();
HKEY hKey;
if(ERROR_SUCCESS == RegOpenKeyEx(HKEY_CLASSES_ROOT,"",0,KEY_ENUMERATE_SUB_KEYS,&hKey)){
DWORD dwIndex = 0;
char Name[100];
SHFILEINFO shSmall;
while(RegEnumKey(hKey,dwIndex++,Name,100) == ERROR_SUCCESS){
if(Name[0] != '.') continue;
ZeroMemory(&shSmall,sizeof(shSmall));
SHGetFileInfo(Name,FILE_ATTRIBUTE_NORMAL,&shSmall,sizeof(shSmall),SHGFI_USEFILEATTRIBUTES | SHGFI_DISPLAYNAME | SHGFI_TYPENAME | SHGFI_ICON | SHGFI_SMALLICON);
AnsiString strFileType = "文件扩展名: ";
strFileType += Name;
strFileType += "/t文件类型: ";
strFileType += shSmall.szTypeName;
lst_Multi->Items->Add(strFileType);
}
::RegCloseKey(hKey);
}
MessageBox(Handle,"获取系统所有文件类型操作成功","信息提示",MB_OK);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::btn_BigClick(TObject *Sender) // 快速创建特大型文件
{
HANDLE hFile = CreateFile(edt_Path->Text.c_str(),GENERIC_WRITE,0,NULL,CREATE_NEW,FILE_ATTRIBUTE_NORMAL,NULL);
if(hFile == INVALID_HANDLE_VALUE){ // 错误处理
LPVOID strInfo;
::FormatMessage(FORMAT_MESSAGE_ALLOCATE_BUFFER | FORMAT_MESSAGE_FROM_SYSTEM,0,GetLastError(),
MAKELANGID(LANG_NEUTRAL,SUBLANG_DEFAULT),(LPTSTR)&strInfo,0,NULL);
MessageBox(0,(LPCTSTR)strInfo,"信息提示",MB_OK|MB_ICONINFORMATION);
::LocalFree(strInfo);
return;
}
// 特大型文件大小
DWORD dwPtr = SetFilePointer(hFile,1024*1024*StrToInt(edt_Size->Text),NULL,FILE_BEGIN);
if(dwPtr == 0xFFFFFFFF){ //处理出错信息
LPVOID strInfo;
::FormatMessage(FORMAT_MESSAGE_ALLOCATE_BUFFER | FORMAT_MESSAGE_FROM_SYSTEM,0,GetLastError(),
MAKELANGID(LANG_NEUTRAL,SUBLANG_DEFAULT),(LPTSTR)&strInfo,0,NULL);
MessageBox(0,(LPCTSTR)strInfo,"信息提示",MB_OK|MB_ICONINFORMATION);
::LocalFree(strInfo);
return;
}
SetEndOfFile(hFile);
::CloseHandle(hFile);
MessageBox(Handle,"特大型文件创建成功","信息提示",MB_OK);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::btn_CreateTempClick(TObject *Sender) // 产生临时文件
{
if(edt_Bf->Text.IsEmpty()) return;
char TempPath[MAX_PATH];
GetTempPath(sizeof(TempPath),TempPath);
char TempFile[MAX_PATH];
char PreFix[3];
strcpy(PreFix,edt_Bf->Text.c_str());
GetTempFileName(TempPath,PreFix,0,TempFile);
edt_TempName->Text=TempFile;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::btn_5Click(TObject *Sender)
{
if(dlgOpen_1->Execute())
edt_File_1->Text = dlgOpen_1->FileName;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::btn_RenameClick(TObject *Sender) // 更改文件名
{
if(edt_File_1->Text.IsEmpty() || edt_File_2->Text.IsEmpty()) return;
if(RenameFile(edt_File_1->Text,edt_File_2->Text))
MessageBox(NULL,"文件更名成功","信息提示",MB_OK);
else
MessageBox(NULL,"文件更名错误","信息提示",MB_OK);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::btn_3Click(TObject *Sender)
{
if(dlgOpen_1->Execute())
edt_FileExt->Text = dlgOpen_1->FileName;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::btn_ChangeExtClick(TObject *Sender) // 更改文件扩展名
{
if(edt_FileExt->Text.IsEmpty()) return;
String strFileName = ChangeFileExt(edt_FileExt->Text,edt_ChangeExt->Text);
if(RenameFile(edt_FileExt->Text,strFileName))
MessageBox(Handle,"文件扩展名修改操作成功","信息提示",MB_OK);
else
MessageBox(Handle,"文件扩展名修改操作失败","信息提示",MB_OK);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::btn_GetAttributesClick(TObject *Sender) // 获取文件属性
{
chk_Read->Checked = false;
chk_System->Checked = false;
chk_Hidden->Checked = false;
chk_Archive->Checked = false;

String strFileName = edt->Text;
if(strFileName.IsEmpty()) return;
DWORD dwAttrs = GetFileAttributes(strFileName.c_str());
if(dwAttrs & FILE_ATTRIBUTE_READONLY)
chk_Read->Checked = true;
if(dwAttrs & FILE_ATTRIBUTE_SYSTEM)
chk_System->Checked = true;
if(dwAttrs & FILE_ATTRIBUTE_HIDDEN)
chk_Hidden->Checked = true;
if(dwAttrs & FILE_ATTRIBUTE_ARCHIVE)
chk_Archive->Checked = true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::btn_4Click(TObject *Sender)
{
if(dlgOpen_1->Execute()){
String fileName = dlgOpen_1->FileName;
edt->Text = fileName;
btn_GetAttributesClick(Sender); // 获取文件属性
btn_GetTimeClick(Sender); // 获取文件时间属性

edt_FilePath->Text = ExpandFileName(fileName);
edt_Ext->Text = ExtractFileExt(fileName);
edt_Name->Text = ExtractFileName(fileName);
edt_PathName->Text = ExtractFilePath(fileName);
edt_View->Text = ExtractFileDir(fileName);
edt_Drive->Text = ExtractFileDrive(fileName);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::btn_SetAttributesClick(TObject *Sender) // 设置文件属性
{
String strFileName = edt->Text;
if(strFileName.IsEmpty()) return;

DWORD dwAttrs = GetFileAttributes(strFileName.c_str());
SetFileAttributes(strFileName.c_str(),0);
if(chk_Read->Checked)
SetFileAttributes(strFileName.c_str(),dwAttrs|FILE_ATTRIBUTE_READONLY);

dwAttrs = GetFileAttributes(strFileName.c_str());
if(chk_System->Checked)
SetFileAttributes(strFileName.c_str(),dwAttrs|FILE_ATTRIBUTE_SYSTEM);

dwAttrs = GetFileAttributes(strFileName.c_str());
if(chk_Hidden->Checked)
SetFileAttributes(strFileName.c_str(),dwAttrs|FILE_ATTRIBUTE_HIDDEN);

dwAttrs = GetFileAttributes(strFileName.c_str());
if(chk_Archive->Checked)
SetFileAttributes(strFileName.c_str(),dwAttrs|FILE_ATTRIBUTE_ARCHIVE);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::btn_GetTimeClick(TObject *Sender) // 获取文件时间属性
{
String strFileName = edt->Text;
if(strFileName.IsEmpty()) return;
int FileHandle = FileOpen(strFileName,fmOpenRead);
if(FileHandle == -1){
MessageBox(Handle,"文件打开不正确","信息提示",MB_OK);
return;
}
TFileTime tCreate,tAccess,tWrite;
if(GetFileTime((void*)FileHandle,&tCreate,&tAccess,&tWrite)){
TSystemTime SystemTime;
FileTimeToSystemTime(&tCreate,&SystemTime);
edt_CreateTime->Text = IntToStr(SystemTime.wYear)+"-"+IntToStr(SystemTime.wMonth)+"-"+IntToStr(SystemTime.wDay);
FileTimeToSystemTime(&tAccess,&SystemTime);
edt_AccessTime->Text = IntToStr(SystemTime.wYear)+"-"+IntToStr(SystemTime.wMonth)+"-"+IntToStr(SystemTime.wDay);
FileTimeToSystemTime(&tWrite,&SystemTime);
edt_WriteTime->Text = IntToStr(SystemTime.wYear)+"-"+IntToStr(SystemTime.wMonth)+"-"+IntToStr(SystemTime.wDay);
}
FileClose(FileHandle);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::btn_SetTimeClick(TObject *Sender) // 设置文件时间属性
{
String strFileName = edt->Text;
if(strFileName.IsEmpty()) return;
int FileHandle = FileOpen(strFileName,fmOpenRead);
if(FileHandle == -1){
MessageBox(Handle,"文件打开不正确","信息提示",MB_OK);
return;
}
TFileTime tCreate,tAccess,tWrite;
if(!GetFileTime((void*)FileHandle,&tCreate,&tAccess,&tWrite))
MessageBox(Handle,"获取文件时间属性操作失败","信息提示",MB_OK);

TSystemTime SystemTime;
String Temp = edt_CreateTime->Text;
SystemTime.wYear=Temp.SubString(1,4).ToInt();
SystemTime.wMonth=Temp.SubString(6,2).ToInt();
SystemTime.wDay= Temp.SubString(9,2).ToInt();
SystemTimeToFileTime(&SystemTime,&tCreate);

String Temp2 = edt_AccessTime->Text;
SystemTime.wYear=Temp2.SubString(1,4).ToInt();
SystemTime.wMonth=Temp2.SubString(6,2).ToInt();
SystemTime.wDay=Temp2.SubString(9,2).ToInt();
SystemTimeToFileTime(&SystemTime,&tAccess);

String Temp3 = edt_WriteTime->Text;
SystemTime.wYear=Temp3.SubString(1,4).ToInt();
SystemTime.wMonth=Temp3.SubString(6,2).ToInt();
SystemTime.wDay=Temp3.SubString(9,2).ToInt();
SystemTimeToFileTime(&SystemTime,&tWrite);

if(SetFileTime((void*)FileHandle,&tCreate,&tAccess,&tWrite))
MessageBox(Handle,"设置文件时间属性操作成功","信息提示",MB_OK);
else
MessageBox(Handle,"设置文件时间属性操作错误","信息提示",MB_OK);
FileClose(FileHandle);
}