C語言代碼套用在Delphi編程中[3]

       以下是引用片段

/*
　　文件名稱:DatFormath
　　*/
　　#ifndef DatFormat_H
　　#define DatFormat_H
　　#include 
　　#pragma pack(push )//這個與下面的配對一般用到記錄類型的時候需要定義這裡實際不用
　　#ifdef __cplusplus
　　extern C {
　　#endif
　　extern BOOL CheckIsDatFile(const char * FileNameBOOL *IsDatFile);
　　#ifdef __cplusplus
　　}
　　#endif
　　#pragma pack(pop)
　　#endif // DatFormat_H
　　具體實現代碼DatFormatc如下:
　　#include DatFormath
　　BOOL CheckIsDatFile(const char * FileNameBOOL *IsDatFile)
　　/*
　　函數說明:該函數用於判斷一個文件是否為Dat文件(即VCD文件)格式
　　參數:
　　IN:
　　FileName:欲判斷的文件名稱
　　INOUT:
　　IsDatFile:是否為Dat格式文件
　　OUT:
　　讀文件失敗返回FALSE否則返回TRUE
　　
　　{
　　HANDLE hFile;
　　DWORD dwBytesRead;
　　BOOL re;
　　char MyBuf[];
　　*IsDatFile=FALSE;
　　//建立讀文件句柄
　　hFile = CreateFile(FileName
　　GENERIC_READ
　　FILE_SHARE_READ
　　NULL
　　OPEN_EXISTING
　　
　　);
　　if (hFile == INVALID_HANDLE_VALUE) return FALSE;
　　//讀文件
　　re = ReadFile(hFile
　　&MyBuf
　　
　　&dwBytesRead
　　NULL);
　　if (dwBytesRead!=)
　　{
　　CloseHandle(hFile);
　　return FALSE;
　　}
　　//讀文件失敗的時候
　　if (re!=TRUE)
　　{
　　CloseHandle(hFile);
　　return FALSE;
　　}
　　CloseHandle(hFile);
　　*IsDatFile=(MyBuf[]==R && MyBuf[]==I && MyBuf[]==F && MyBuf[]==F);
　　return(TRUE);
　　}

        運行CBC新建一個工程然後把DatFormatc添加到工程裡面編譯整個工程將得到我們需要的OBJ文件:DatFormatOBJ然後我們關閉CBC即可因為下面不再需要用到它了

[]  []  []  []  []  

From:http://tw.wingwit.com/Article/program/Delphi/201311/8456.html