久久久无码精品亚洲日韩京东传媒,欧美精品乱码99久久蜜桃,国产精品天天影视久久综合网

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

      在程序中使用自定义光�?能�ɽE�序增色不少.如果使用外部光标文�g,只要用LoadCursorFromFile()卛_��调用.但如果想要用资源文�g来包含光标文件时,一般的光标文�g没有问题,但是如果是动态光标的�?则不能通过LoadCursor()来调�?
解決�Ҏ(gu��)��:
      1.资源文�g的徏�?br>      新徏一扩展名�ؓ(f��)rc的文�?��C��本就可创�?,��d��资源说明.
       �? C1 Cursor   aaa.Cur
             C2   file         bbb.ani

      �W�一个是普通的光标,�W�二个是动态光�?
      2.��资源加到工�E�里.
      3.讄��鼠标光标

Screen->Cursors[1]=LoadCursor(C1);
//Screen->Cursors[1]=LoadCursor(C2);
//如果惌��入动态光�?�?x��)失�?br>
//加蝲动态光�?/span>
TResourceStream * rs=new TResourceStream((int)HInstance,"C2","file);
//生成临时的光标文�?/span>
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;

�q�里只是通过间接的方�?先生成文�?在蝲入文�?如果谁有好的�Ҏ(gu��)��,��׃��要吝啬了.

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

��d��串口��盘序列�?出厂唯一的序列号)(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)
        // 获取�W�一个硬盘，如果有多个，更改PhysicalDrive?��可以了�?/span>
        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;
}
//---------------------------------------------------------------------------
// ��试一�?/span>
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 发表评论

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

   一�?说明 BOOL SystemParametersInfo(
               UINT   uiAction,
               UINT    uiParam,
               Pointer   pvParam,
               UINT    fWinlni
         );
      uiAction   动作代码,可选择�Ʋ截断或讑֮�哪一个系�l�参数�?br>      uiParam   视动作而定
      pvParam   Pointer参数,视动作而定
      fWinIni  �Q�SPIF_UPDATEINIFILE   ��新的设定写入系�l?br>                        SPIF_SENDWININICHANGE   �q�播WM_SETTINGCHANGE 到系�l�中所有最上层视窗�?br>
    二、参数设�?br>      SPI_SETWORKAREA    ,SPI_GETWORKAREA
      讑֮�或取得工作区大小�Q�pvParam指向讑֮�工作区域的TRect�l�构
      例：(x��)

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

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

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

在BCB提供的这�l�文件操作函��C��Q�可分�ؓ(f��)三种�c�d��Q�就是：(x��)1、文件名函数�Q?/span>2、文件管理函敎ͼ�3、文件I/O函数�?br>
1、文件名函数
　　文�g名函数可以对文�g的名�U�、所在子目录、驱动器和扩展名�{�进行操作。下表列��些函数及(qi��ng)其功能�?br>
函数说明
ExpandFileName() �q�回文�g的全路径(含驱动器、�\�?
ExtractFileExt() 从文件名中抽取扩展名
ExtractFileName() 从文件名中抽取不含�\径的文�g�?
ExtractFilePath() 从文件名中抽取�\径名
ExtractFileDir() 从文件名中抽取目录名
ExtractFileDrive() 从文件名中抽取驱动器�?
ChangeFileExt() 改变文�g的扩展名
ExpandUNCFileName() �q�回含有�|�络驱动器的文�g全�\�?
ExtractRelativePath() 从文件名中抽取相对�\径信�?
ExtractShortPathName() 把文件名转化为DOS�?·3格式
MatchesMask() ��(g��)查文件是否与指定的文件名格式匚w��

　　下面��把�q�些函数作一一介绍�Q?br>
⑴ExpandFileName()
　　原型�Q?/span>extern PACKAGE AnsiString __fastcall ExpandFileName(const AnsiString FileName);

　　功能�Q�返回文件的全�\�?含驱动器、�\�?

　　参数�Q�FileName:要处理的文�g�?br>
　　例：(x��)ShowMessage(ExpandFileName(Application->ExeName));//昄��你的�E�序文�g名，如C:\MyBCB\Sample1.EXE

⑵ExtractFileExt()
　　原型�Q?/span>extern PACKAGE AnsiString __fastcall ExtractFileExt(const AnsiString FileName);

　　功能�Q�从文�g名中抽取扩展�?br>
　　参数�Q�FileName:要处理的文�g名（全�\径）(j��)

　　例：(x��)ShowMessage(ExtractFileExt(Application->ExeName));//昄��".exe"

⑶ExtractFileName()
　　原型�Q?/span>extern PACKAGE AnsiString __fastcall ExtractFileName(const AnsiString FileName);

　　功能�Q�从文�g名中抽取不含路径的文件名

　　参数�Q�FileName:要处理的文�g�?br>
　　例：(x��)ShowMessage(ExtractFileExt("c:\\Winnt\\SOL.EXE"));//昄��"SOL.EXE"

⑷ExtractFilePath()
　　原型�Q?/span>extern PACKAGE AnsiString __fastcall ExtractFilePath(const AnsiString FileName);

　　功能�Q�从文�g名中抽取路径�?br>
　　参数�Q�FileName:要处理的文�g�?br>
　　例：(x��)ShowMessage(ExtractFilePath("Winnt\\SOL.EXE"));//昄��"Winnt\"

⑸ExtractFileDir()
　　原型�Q?/span>extern PACKAGE AnsiString __fastcall ExtractFileDir(const AnsiString FileName);

　　功能�Q�从文�g名中抽取目录�?和上个函��C��同，不包括最后的"\")

　　参数�Q�FileName:要处理的文�g�?br>
　　例：(x��)ShowMessage(ExtractFileDir("Winnt\\SOL.EXE"));//昄��"Winnt",注意和上个函数的区别

⑹ExtractFileDrive()
　　原型�Q?/span>extern PACKAGE AnsiString __fastcall ExtractFileDrive(const AnsiString FileName);

　　功能�Q�从文�g名中抽取驱动器名

　　参数�Q�FileName:要处理的文�g�?br>
　　例：(x��)ShowMessage(ExtractFileDrive("c:\\Winnt\\SOL.EXE"));//昄��"c:"

⑺ChangeFileExt()
　　原型�Q?/span>extern PACKAGE System::AnsiString __fastcall ChangeFileExt(const System::AnsiString FileName, const System::AnsiString Extension);

　　功能�Q�更�Ҏ(gu��)��件名的扩展名�Q�不是对真正的文件进行改名，只是�Ҏ(gu��)��件名�q�个字符串进行处�?br>
　　参数�Q�FileName:要改名的文�g名，Extension�Q�新的扩展名

　　例：(x��)ShowMessage(ChangeFileExt("c:\\Winnt\\SOL.EXE",".OOO"));//昄��"c:\winnt\SOL.OOO"

⑻ExpandUNCFileName()
　　原型�Q?/span>extern PACKAGE AnsiString __fastcall ExpandUNCFileName(const AnsiString FileName);

　　功能�Q�返回含有网�l�驱动器的文件全路径�Q�格式�ؓ(f��)�Q�\\机器名\�׃�n名\文�g�?br>
　　参数�Q�FileName:要处理的文�g�?br>
　　例：(x��)ShowMessage(ExpandUNCFileName("F:\\Winnt\\SOL.EXE"));/*如果F:是映��的�|�络驱动器\\NT40\WINNT�Q�则昄��"\\NT40\WINNT\SOL.EXE"*/

⑼ExtractRelativePath()
　　原型�Q?/span>extern PACKAGE AnsiString __fastcall ExtractRelativePath(const AnsiString BaseName, const AnsiString DestName);

　　功能�Q�从文�g名中抽取相对路径信息�Q�如"..\sss\ss.asd"�q�种形式

　　参数�Q�BaseName�Q�基准文件名�Q�DestName�Q�目标文件名

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

⑽ExtractShortPathName()
　　原型�Q?/span>extern PACKAGE AnsiString __fastcall ExtractShortPathName(const AnsiString FileName);

　　功能�Q�把文�g名�{换�ؓ(f��)DOS�?�?格式

　　参数�Q�FileName:要处理的文�g�?br>
　　例：(x��)ShowMessage(ExtractShortPathName("E:\\Program Files\\Dual Wheel Mouse\\4dmain.exe"));/*昄��"E:\Progra~1\dualwh~1\4dmain.exe"*/

⑾MatchesMask()
　　原型�Q?/span>extern PACKAGE bool __fastcall MatchesMask(const AnsiString Filename, const AnsiString Mask);

　　功能�Q�检查文件是否与指定的文件名格式匚w��

　　参数�Q�FileName:要处理的文�g名；Mask:文�g名格式，支持通配�W?br>
　　例：(x��)ShowMessage(MatchesMask("Lxf.exe","*.?x?));//昄��"true"

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

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

         一.選擇文�g夑ְ�話框�?br>          #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 　　　　　　注释�Q�允许浏览计��机
Public Const BIF_BROWSEFORPRINTER = &H2000 　　　　　　注释�Q�允许浏览打印机文�g�?br>Public Const BIF_BROWSEINCLUDEFILES = &H4000 　　　　　注释�Q�允许同时浏览文�Ӟ��需IE4�Q?br>Public Const BIF_DONTGOBELOWDOMAIN = &H2 　　　　　　　注释�Q�强制用户停留在�|�上��d��?br>Public Const BIF_EDITBOX = &H10 　　　　　　　　　　　　注释�Q�可在输入框中直接输入文件夹名（需IE4�Q?br>Public Const BIF_RETURNFSANCESTORS = &H8 　　　　　　　注释�Q�返回文件系�l�祖先？
Public Const BIF_RETURNONLYFSDIRS = &H1 　　　　　　　　注释�Q�仅允许��览文�g�pȝ��
Public Const BIF_STATUSTEXT = &H4 　　　　　　　　　　　注释�Q�显�C�状态栏
Public Const BIF_USENEWUI = &H40 　　　　　　　　　　　注释�Q��用新界面�Q�仅支持Win2000、WinME�Q?br>Public Const BIF_VALIDATE = &H20　　　　　　　　　　　　注释�Q�若输入一个非法文件夹名，��p��?br>　　　　　　　　　　　　　　　　　　　　　　　　　　　　BFFM_VALIDATEFAILED �l�回调函�?nbsp;
          �?創徏多層文�g�?br>
             1.可以用API CreateDirectory.
                 CreateDirectory只能創徏單層目錄�?br>             2.使用BCB中自帶的函數ForceDirectories(AnsiString path);
                #include
         �?操作ini文�g
            #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.寫操�?br>                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 发表评论

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

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

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

久久久无码精品亚洲日韩京东传媒,欧美精品乱码99久久蜜桃,国产精品天天影视久久综合网

��d��串口���盘序列�?出厂唯一的序列号)(csdn)

��d��串口��盘序列�?出厂唯一的序列号)(csdn)