C++博客-飛天-随笔分类-C++Builder

将动态光标(ani)加入资源文件的方法

飛天 — Thu, 06 Dec 2007 06:18:00 GMT

      在程序中使用自定义光标,能使程序增色不少.如果使用外部光标文件,只要用LoadCursorFromFile()即可调用.但如果想要用资源文件来包含光标文件时,一般的光标文件没有问题,但是如果是动态光标的话,则不能通过LoadCursor()来调用.
解決方法:
      1.资源文件的建立
      新建一扩展名为rc的文件(记事本就可创建),添加资源说明.
       如: C1 Cursor   aaa.Cur
             C2   file         bbb.ani

      第一个是普通的光标,第二个是动态光标.
      2.将资源加到工程里.
      3.设置鼠标光标

Screen->Cursors[1]=LoadCursor(C1);
//Screen->Cursors[1]=LoadCursor(C2);
//如果想载入动态光标,会失败

//加载动态光标
TResourceStream * rs=new TResourceStream((int)HInstance,"C2","file);
//生成临时的光标文件
char temp_path[MAX_PATH];
GetTempPath(MAX_PATH,temp_path);
strcat(temp_path,"temp.ani");
rs->SaveToFile(temp_path);

Screen->Cursors[2]=LoadCursorFromFile(temp_path);
this->Cursor=TCursor(2);
delete rs;

这里只是通过间接的方法,先生成文件,在载入文件.如果谁有好的方法,就不要吝啬了.

飛天 2007-12-06 14:18 发表评论

读取串口硬盘序列号(出厂唯一的序列号)(csdn)

飛天 — Mon, 03 Dec 2007 13:29:00 GMT

#define IDENTIFY_BUFFER_SIZE 512

#define IDE_ATAPI_IDENTIFY 0xA0
#define IDE_ATA_IDENTIFY    0xEC
#define DFP_RECEIVE_DRIVE_DATA   0x0007c088

#pragma pack(1)
typedef struct _IDSECTOR
{
    USHORT wGenConfig;
    USHORT wNumCyls;
    USHORT wReserved;
    USHORT wNumHeads;
    USHORT wBytesPerTrack;
    USHORT wBytesPerSector;
    USHORT wSectorsPerTrack;
    USHORT wVendorUnique[3];
    CHAR    sSerialNumber[20];
    USHORT wBufferType;
    USHORT wBufferSize;
    USHORT wECCSize;
    CHAR    sFirmwareRev[8];
    CHAR    sModelNumber[40];
    USHORT wMoreVendorUnique;
    USHORT wDoubleWordIO;
    USHORT wCapabilities;
    USHORT wReserved1;
    USHORT wPIOTiming;
    USHORT wDMATiming;
    USHORT wBS;
    USHORT wNumCurrentCyls;
    USHORT wNumCurrentHeads;
    USHORT wNumCurrentSectorsPerTrack;
    ULONG   ulCurrentSectorCapacity;
    USHORT wMultSectorStuff;
    ULONG   ulTotalAddressableSectors;
    USHORT wSingleWordDMA;
    USHORT wMultiWordDMA;
    BYTE    bReserved[128];
}IDSECTOR, *PIDSECTOR;

typedef struct _DRIVERSTATUS
{
    BYTE bDriverError;
    BYTE bIDEStatus;
    BYTE bReserved[2];
    DWORD dwReserved[2];
} DRIVERSTATUS, *PDRIVERSTATUS, *LPDRIVERSTATUS;

typedef struct _SENDCMDOUTPARAMS
{
    DWORD         cBufferSize;
    DRIVERSTATUS DriverStatus;
    BYTE          bBuffer[1];
} SENDCMDOUTPARAMS, *PSENDCMDOUTPARAMS, *LPSENDCMDOUTPARAMS;

typedef struct _IDEREGS
{
    BYTE bFeaturesReg;
    BYTE bSectorCountReg;
    BYTE bSectorNumberReg;
    BYTE bCylLowReg;
    BYTE bCylHighReg;
    BYTE bDriveHeadReg;
    BYTE bCommandReg;
    BYTE bReserved;
} IDEREGS, *PIDEREGS, *LPIDEREGS;

typedef struct _SENDCMDINPARAMS
{
    DWORD     cBufferSize;
    IDEREGS   irDriveRegs;
    BYTE bDriveNumber;
    BYTE bReserved[3];
    DWORD     dwReserved[4];
    BYTE      bBuffer[1];
} SENDCMDINPARAMS, *PSENDCMDINPARAMS, *LPSENDCMDINPARAMS;

#pragma pack()

void ChangeByteOrder(LPSTR lpString, int nLen)
{
    USHORT i;
    CHAR c;

    // 63 63 72 75 6E 2E 63 6F 6D
    for(int i = 0; i < nLen; i += 2)
    {
        c = lpString[i];
        lpString[i] = lpString[i+1];
        lpString[i+1] = c;
    }
}

bool CrnGetHDSerialNumber(LPSTR lpBuf)
{
    strcpy(lpBuf, "");

    HANDLE hDevice;

    if(Win32Platform == VER_PLATFORM_WIN32_NT)
        // 获取第一个硬盘，如果有多个，更改PhysicalDrive?就可以了。
        hDevice = CreateFile("\\\\.\\PhysicalDrive0",
                GENERIC_READ | GENERIC_WRITE,
                FILE_SHARE_READ | FILE_SHARE_WRITE,
                NULL,
                OPEN_EXISTING,
                0,
                0);
    else
        hDevice = CreateFile("\\\\.\\SMARTVSD", 0, 0, NULL, CREATE_NEW, 0, 0);

    if(hDevice == INVALID_HANDLE_VALUE) return false;

    SENDCMDINPARAMS scip = { 0 };
    char szBuffer[sizeof(SENDCMDOUTPARAMS) + IDENTIFY_BUFFER_SIZE] = { 0 };
    DWORD dwBytesRet = 0;
    bool bSuccess = false;
    try
    {
        scip.cBufferSize = IDENTIFY_BUFFER_SIZE;

        scip.irDriveRegs.bSectorCountReg = 1;
        scip.irDriveRegs.bSectorNumberReg = 1;
        scip.irDriveRegs.bDriveHeadReg = IDE_ATAPI_IDENTIFY;
        scip.irDriveRegs.bCommandReg = IDE_ATA_IDENTIFY;

        if(DeviceIoControl(hDevice,
                DFP_RECEIVE_DRIVE_DATA,
                &scip,
                sizeof(SENDCMDINPARAMS) - 1,
                szBuffer,
                sizeof(szBuffer),
                &dwBytesRet,
                NULL))
        {
            PSENDCMDOUTPARAMS pOut = (PSENDCMDOUTPARAMS)szBuffer;
            PIDSECTOR pIdSec = (PIDSECTOR)(pOut->bBuffer);
            ChangeByteOrder(pIdSec->sSerialNumber, sizeof(pIdSec->sSerialNumber));
            strncpy(lpBuf, pIdSec->sSerialNumber, 20);
            bSuccess = true;
        }
    }
    __finally
    {
        CloseHandle(hDevice);
    }

    return bSuccess;
}
//---------------------------------------------------------------------------
// 测试一哈
void __fastcall TForm1::Button2Click(TObject *Sender)
{
    char sz[255];
    CrnGetHDSerialNumber(sz);
    ShowMessage(String(sz).Trim());
}
http://topic.csdn.net/u/20071120/01/ace8c302-4260-4be2-99d7-faba80c68e8e.html

飛天 2007-12-03 21:29 发表评论

WindowAPI SystemParametersInfo 设置工作区大小

飛天 — Thu, 29 Nov 2007 13:22:00 GMT

   一、说明 BOOL SystemParametersInfo(
               UINT   uiAction,
               UINT    uiParam,
               Pointer   pvParam,
               UINT    fWinlni
         );
      uiAction   动作代码,可选择欲截断或设定哪一个系统参数。
      uiParam   视动作而定
      pvParam   Pointer参数,视动作而定
      fWinIni  ：SPIF_UPDATEINIFILE   将新的设定写入系统
                        SPIF_SENDWININICHANGE   广播WM_SETTINGCHANGE 到系统中所有最上层视窗。

    二、参数设定
      SPI_SETWORKAREA    ,SPI_GETWORKAREA
      设定或取得工作区大小，pvParam指向设定工作区域的TRect结构
      例：

TRect R=BoundsRect;
SystemParametersInfo(SPI_SETWORKAREA,0,&R,SPIF_UPDATEINIFILE);

飛天 2007-11-29 21:22 发表评论

BCB提供的文件操作函数

飛天 — Sun, 04 Nov 2007 02:48:00 GMT

在BCB提供的这组文件操作函数中，可分为三种类型，就是：1、文件名函数，2、文件管理函数；3、文件I/O函数。

1、文件名函数
　　文件名函数可以对文件的名称、所在子目录、驱动器和扩展名等进行操作。下表列出这些函数及其功能。

函数说明
ExpandFileName() 返回文件的全路径(含驱动器、路径)
ExtractFileExt() 从文件名中抽取扩展名
ExtractFileName() 从文件名中抽取不含路径的文件名
ExtractFilePath() 从文件名中抽取路径名
ExtractFileDir() 从文件名中抽取目录名
ExtractFileDrive() 从文件名中抽取驱动器名
ChangeFileExt() 改变文件的扩展名
ExpandUNCFileName() 返回含有网络驱动器的文件全路径
ExtractRelativePath() 从文件名中抽取相对路径信息
ExtractShortPathName() 把文件名转化为DOS的8·3格式
MatchesMask() 检查文件是否与指定的文件名格式匹配

　　下面就把这些函数作一一介绍：

⑴ExpandFileName()
　　原型：extern PACKAGE AnsiString __fastcall ExpandFileName(const AnsiString FileName);

　　功能：返回文件的全路径(含驱动器、路径)

　　参数：FileName:要处理的文件名

　　例：ShowMessage(ExpandFileName(Application->ExeName));//显示你的程序文件名，如C:\MyBCB\Sample1.EXE

⑵ExtractFileExt()
　　原型：extern PACKAGE AnsiString __fastcall ExtractFileExt(const AnsiString FileName);

　　功能：从文件名中抽取扩展名

　　参数：FileName:要处理的文件名（全路径）

　　例：ShowMessage(ExtractFileExt(Application->ExeName));//显示".exe"

⑶ExtractFileName()
　　原型：extern PACKAGE AnsiString __fastcall ExtractFileName(const AnsiString FileName);

　　功能：从文件名中抽取不含路径的文件名

　　参数：FileName:要处理的文件名

　　例：ShowMessage(ExtractFileExt("c:\\Winnt\\SOL.EXE"));//显示"SOL.EXE"

⑷ExtractFilePath()
　　原型：extern PACKAGE AnsiString __fastcall ExtractFilePath(const AnsiString FileName);

　　功能：从文件名中抽取路径名

　　参数：FileName:要处理的文件名

　　例：ShowMessage(ExtractFilePath("Winnt\\SOL.EXE"));//显示"Winnt\"

⑸ExtractFileDir()
　　原型：extern PACKAGE AnsiString __fastcall ExtractFileDir(const AnsiString FileName);

　　功能：从文件名中抽取目录名(和上个函数不同，不包括最后的"\")

　　参数：FileName:要处理的文件名

　　例：ShowMessage(ExtractFileDir("Winnt\\SOL.EXE"));//显示"Winnt",注意和上个函数的区别

⑹ExtractFileDrive()
　　原型：extern PACKAGE AnsiString __fastcall ExtractFileDrive(const AnsiString FileName);

　　功能：从文件名中抽取驱动器名

　　参数：FileName:要处理的文件名

　　例：ShowMessage(ExtractFileDrive("c:\\Winnt\\SOL.EXE"));//显示"c:"

⑺ChangeFileExt()
　　原型：extern PACKAGE System::AnsiString __fastcall ChangeFileExt(const System::AnsiString FileName, const System::AnsiString Extension);

　　功能：更改文件名的扩展名，不是对真正的文件进行改名，只是对文件名这个字符串进行处理

　　参数：FileName:要改名的文件名，Extension：新的扩展名

　　例：ShowMessage(ChangeFileExt("c:\\Winnt\\SOL.EXE",".OOO"));//显示"c:\winnt\SOL.OOO"

⑻ExpandUNCFileName()
　　原型：extern PACKAGE AnsiString __fastcall ExpandUNCFileName(const AnsiString FileName);

　　功能：返回含有网络驱动器的文件全路径，格式为：\\机器名\共享名\文件名

　　参数：FileName:要处理的文件名

　　例：ShowMessage(ExpandUNCFileName("F:\\Winnt\\SOL.EXE"));/*如果F:是映射的网络驱动器\\NT40\WINNT，则显示"\\NT40\WINNT\SOL.EXE"*/

⑼ExtractRelativePath()
　　原型：extern PACKAGE AnsiString __fastcall ExtractRelativePath(const AnsiString BaseName, const AnsiString DestName);

　　功能：从文件名中抽取相对路径信息，如"..\sss\ss.asd"这种形式

　　参数：BaseName：基准文件名；DestName：目标文件名

　　例：ShowMessage(ExtractRelativePath("D:\\Source\\c\\1.123","D:\\Source\\Asm\\dz.asm"));/*显示"..\asm\dz.asm"*/

⑽ExtractShortPathName()
　　原型：extern PACKAGE AnsiString __fastcall ExtractShortPathName(const AnsiString FileName);

　　功能：把文件名转换为DOS的8、3格式

　　参数：FileName:要处理的文件名

　　例：ShowMessage(ExtractShortPathName("E:\\Program Files\\Dual Wheel Mouse\\4dmain.exe"));/*显示"E:\Progra~1\dualwh~1\4dmain.exe"*/

⑾MatchesMask()
　　原型：extern PACKAGE bool __fastcall MatchesMask(const AnsiString Filename, const AnsiString Mask);

　　功能：检查文件是否与指定的文件名格式匹配

　　参数：FileName:要处理的文件名；Mask:文件名格式，支持通配符

　　例：ShowMessage(MatchesMask("Lxf.exe","*.?x?));//显示"true"

飛天 2007-11-04 10:48 发表评论

最近代碼

飛天 — Mon, 13 Aug 2007 05:30:00 GMT

         一.選擇文件夾對話框。
          #include
         ........
          BROWSEINFO   bi;
          LPITEMIDLIST   pDir;
          char   path[MAX_PATH]={"C:\\"};
          bi.hwndOwner   =Handle;
          bi.lpszTitle   ="請選擇一個目錄，該目錄是你要保存數據的目錄.";
          bi.pszDisplayName   =path;
          bi.ulFlags   =BIF_RETURNONLYFSDIRS;//BIF_BROWSEFORCOMPUTER   ;
          bi.pidlRoot   =NULL;
          bi.lpfn   =NULL;
          bi.lParam   =124;
          pDir=SHBrowseForFolder(&bi);
          if(pDir!=NULL)
          {
                  SHGetPathFromIDList(pDir,path);
                  edtFileName->Text=(AnsiString)path;
          }

Public Const BIF_BROWSEFORCOMPUTER = &H1000 　　　　　　注释：允许浏览计算机
Public Const BIF_BROWSEFORPRINTER = &H2000 　　　　　　注释：允许浏览打印机文件夹
Public Const BIF_BROWSEINCLUDEFILES = &H4000 　　　　　注释：允许同时浏览文件（需IE4）
Public Const BIF_DONTGOBELOWDOMAIN = &H2 　　　　　　　注释：强制用户停留在网上邻居中
Public Const BIF_EDITBOX = &H10 　　　　　　　　　　　　注释：可在输入框中直接输入文件夹名（需IE4）
Public Const BIF_RETURNFSANCESTORS = &H8 　　　　　　　注释：返回文件系统祖先？
Public Const BIF_RETURNONLYFSDIRS = &H1 　　　　　　　　注释：仅允许浏览文件系统
Public Const BIF_STATUSTEXT = &H4 　　　　　　　　　　　注释：显示状态栏
Public Const BIF_USENEWUI = &H40 　　　　　　　　　　　注释：使用新界面（仅支持Win2000、WinME）
Public Const BIF_VALIDATE = &H20　　　　　　　　　　　　注释：若输入一个非法文件夹名，就返回
　　　　　　　　　　　　　　　　　　　　　　　　　　　　BFFM_VALIDATEFAILED 给回调函数
          二.創建多層文件夾

             1.可以用API CreateDirectory.
                 CreateDirectory只能創建單層目錄。
             2.使用BCB中自帶的函數ForceDirectories(AnsiString path);
                #include
         三.操作ini文件
            #incldue
              1.讀操作
             AnsiString strPath,strFile;
    strPath=ExtractFilePath(Application->ExeName);
    strFile=strPath+"reademail.ini";
    TIniFile *ini=new TIniFile(strFile);
    //ini->
    edtFileName->Text=ini->ReadString("Config","FileName","");
    edtSheet->Text=ini->ReadString("Config","Sheet","1");
    edtColumn->Text=ini->ReadString("Config","Column","1");
    edtEmailPath->Text=ini->ReadString("Config","EmailPath",strPath);
    delete ini;
           2.寫操作
                AnsiString strPath,strFile;
    strPath=ExtractFilePath(Application->ExeName);
    strFile=strPath+"reademail.ini";
    TIniFile *ini=new TIniFile(strFile);
    //ini->
    ini->WriteString("Config","FileName",edtFileName->Text);
    ini->WriteString("Config","Sheet",edtSheet->Text);
    ini->WriteString("Config","Column",edtColumn->Text);
    ini->WriteString("Config","EmailPath",edtEmailPath->Text);
    delete ini;

飛天 2007-08-13 13:30 发表评论

Bcb中的Excel操作類

飛天 — Fri, 03 Aug 2007 02:29:00 GMT

摘要: 最近做一個專案，要求能將Excel表中的數據轉入數據庫，反之將數據庫的內容導入到Excel表中。看了網上寫的關于操作Excel的方法，寫了一個簡單的Excel操作類。功能還不是很完善，以后再慢慢修改。 *************************************... 阅读全文

飛天 2007-08-03 10:29 发表评论