mainform.cpp

来自「C++ BUILDER精彩编程实例集锦(源码)2 第三部分 文件操作 第四部」· C++ 代码 · 共 45 行

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

#include <vcl.h>
#pragma hdrstop

#include "Mainform.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{//创建特大型文件
   HANDLE hHugeFile;
   hHugeFile = CreateFile(this->Edit1->Text.c_str(),GENERIC_WRITE,0,NULL,CREATE_NEW,FILE_ATTRIBUTE_NORMAL,NULL);
   if( hHugeFile == 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(hHugeFile,1024*1024*StrToInt(this->Edit2->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(hHugeFile);
    ::CloseHandle(hHugeFile);
    MessageBox(Handle,"特大型文件创建成功！","信息提示",MB_OK);
}
//---------------------------------------------------------------------------