IT博客-孤独的夜-随笔分类-VC Skill

从打开的文件句柄获得文件的路径

孤独的夜 — Fri, 17 Nov 2006 02:28:00 GMT

今天从CSDN看见有人问如何从 http://community.csdn.net/Expert/TopicView1.asp?id=5164878 提问从打开的文件句柄获得文件的路径，下面是解决的办法：

#include < Psapi.h >

#define        BUFSIZE                         512
#pragma comment(lib, " Psapi.lib " )
BOOL __stdcall GetFileNameFromHandle(HANDLE hFile, LPWSTR lpFileName, DWORD dwSize)
{
  BOOL bSuccess = FALSE;
  WCHAR pszFilename[MAX_PATH + 1 ];
  HANDLE hFileMap;

  DWORD dwFileSizeHi = 0 ;
  DWORD dwFileSizeLo = ::GetFileSize(hFile, & dwFileSizeHi);

   if ( dwFileSizeLo == 0 && dwFileSizeHi == 0 )
  {
      return bSuccess;
  }

  hFileMap = ::CreateFileMappingW(hFile,
                    NULL,
                    PAGE_READONLY,
                     0 ,
                     1 ,
                    NULL);

   if (hFileMap)
  {
       void * pMem = ::MapViewOfFile(hFileMap, FILE_MAP_READ, 0 , 0 , 1 );

     if (pMem)
    {
         if (::GetMappedFileNameW(GetCurrentProcess(),
                             pMem,
                             pszFilename,
                             MAX_PATH))
      {
        WCHAR szTemp[BUFSIZE];
        szTemp[ 0 ] = L'\ 0 ';

         if (::GetLogicalDriveStringsW(BUFSIZE - 1 , szTemp))
        {
          WCHAR szName[MAX_PATH];
          WCHAR szDrive[ 3 ] = L " : " ;
          BOOL bFound = FALSE;
          WCHAR * p = szTemp;

           do
          {
             * szDrive = * p;

             if (::QueryDosDeviceW(szDrive, szName, BUFSIZE))
            {
              UINT uNameLen = lstrlenW(szName);

               if (uNameLen < MAX_PATH)
              {
                  bFound = ::_wcsnicmp(pszFilename, szName,
                    uNameLen) == 0 ;

                 if (bFound)
                {
                  WCHAR szTempFile[MAX_PATH];
                  ::wsprintfW(szTempFile,
                            L " %s%s " ,
                            szDrive,
                            pszFilename + uNameLen);
                  ::lstrcpynW(pszFilename, szTempFile, MAX_PATH);
                }
              }
            }

             while ( * p ++ );
          } while ( ! bFound && * p);
        }
      }
        ::UnmapViewOfFile(pMem);
    }

    ::CloseHandle(hFileMap);
  }

   if (lpFileName)
  {
      ::lstrcpynW(lpFileName,pszFilename,dwSize);
      bSuccess = TRUE;
  }

   return (bSuccess);
}

孤独的夜 2006-11-17 10:28 发表评论

Rebase Position

孤独的夜 — Wed, 29 Mar 2006 09:18:00 GMT

Rebase is a command-line tool that you can use to specify the base addresses for the DLLs that your application uses.
>>A - C 0x60000000
>>D - F 0x61000000
>>G - I 0x62000000
>>J - L 0x63000000
>>M - O 0x64000000
>>P - R 0x65000000
>>S - U 0x66000000
>>V - X 0x67000000
>>Y - Z 0x68000000

孤独的夜 2006-03-29 17:18 发表评论

解决Linker Tools Error LNK1103

孤独的夜 — Mon, 09 Jan 2006 03:11:00 GMT

使用IID_IShellFolder之类的接口的ID时候，有时后会出现Linker Tools Error LNK1103。
此时可以在某个.cpp文件中使用：

#include <initguid.h>
#undef _SHLGUID_H_
#include <ShlGuid.h>

这样就有了IID_IShellFolder的实现。接着就能正确在工程里使用IID_IShellFolder了。

有时候在Realse编译的时候也会出现，此时尝试以下的解决方法：

1.关闭优化，即 /Od 选项
2.关闭最小编译，即/Gm选项
3.打开函数级别链接/Gy 选项
4.尝试使用其他级别的编译/G选项
5.改变函数或者全局变量的顺序。

原文：

Turn off optimization with the /Od (Disable) option.
Disable minimal rebuild with the /Gm– (Enable Minimal Rebuild) option.
Compile with the /Gy (Enable Function-Level Linking) option to package functions.
Use a different code generation option. See the /G (Optimize for Processor) options.
Change the order of functions and global variables.

孤独的夜 2006-01-09 11:11 发表评论

HTTP服务器上断点下载文件

孤独的夜 — Sat, 31 Dec 2005 06:22:00 GMT

摘要: 从HTTP服务器上下载一个文件有很多方法，“热心”的微软提供了 WinInet 类，用起来也很方便。当然，我们也可以自己实现这些功能，通过格式化请求头很容易就能实现断点续传和检查更新等等功能。连接主机格式化请求头 ... 阅读全文

孤独的夜 2005-12-31 14:22 发表评论

如何在程序崩溃时，获取相应的信息

孤独的夜 — Thu, 15 Dec 2005 08:33:00 GMT

         今天在CSDN上看到有人问关于类似QQ那样崩溃时弹出的自己的崩溃提示框（原文）想了想，挺有意思。所以自己查了一下资料写了个库，方便使用

         使用起来应该是比较简单的，但是我没有进行严格的测试，弟兄们不要扁我

         将文件中的头文件和lib文件复制到你的工程里，将两个Dll复制到执行目录或者System32目录，然后工程里用代码设定即可（不设定按默认方式：不弹出提示，而在后台记录）。一个程序只要主线程包含该头文件即可。

         例图：

         上文设置出现出错提示框，和出错后要执行的命令行。如果逆向显示崩溃文件的话，将上面的设置改为：

    CString strCmdLine;
    strCmdLine = _T("C:\\windows\\system32\\notepad.exe ");
    strCmdLine += m_gExceptionRepot.GetLogFileName();
    m_gExceptionRepot.SetErrorExcuteFile( strCmdLine );

      我们现在输入会出现异常的代码：

         这是一个除零异常，然后我们执行可以看到：


         在和执行文件物理路径相同的位置，出现了同名的rpt文件，它的内容是：

         出现详细的崩溃信息，当然前提条件是执行文件的相应路径下可以找到调试符号，否则只能看到如下信息：

         看到了吧，比调试版本少了很多信息，不过没有关系，搭配map文件也能大概确定出错的位置了。

         本文用到的库文件可以在我的Blog下载。如果由于使用我的库文件出现任何问题，本人不负任何责任，如果不同意，请不要下载使用。

      库文件下载地址

孤独的夜 2005-12-15 16:33 发表评论

使用GetPrivateProfile系列函数的困惑

孤独的夜 — Wed, 14 Dec 2005 06:20:00 GMT

今天包装Ini文件的读写，出现一个令人困惑的问题：我将C:\windows\system.ini复制到D:的根目录下，添加、修改了几个值，然后使用GetPrivateProfileString函数读取，发现值根本没有变，但是实际文件改变了。我把D:下的system.ini改名为123.Ini，读写就正常了。困惑中……难道GetPrivateProfileString函数中的文件名参数是吃干饭的？！而其他名字的Ini却很正常？还是我得机器有问题？？？？我的机器是Xp+Sp2+Vc 6.0。

孤独的夜 2005-12-14 14:20 发表评论

如何调试MFC中的内存泄漏

孤独的夜 — Wed, 14 Dec 2005 04:56:00 GMT

         最近好像常常看到有人问如何调试内存泄漏的问题，于是我写下本文，抛砖引玉……

         首先，应该是MFC报告我们发现内存泄漏。注意：要多运行几次，以确定输出的内容不变，特别是{}之间的数值，不能变，否则下面的方法就不好用了。

        我们来看看：

F:\CodeSample\Test\TestPipe\LeakTest\MainFrm.cpp(54) : {86} normal block at 0x00422E80, 10 bytes long.
Data: < > 1F 1F 1F 1F 1F CD CD CD CD CD

F:\CodeSample\Test\TestPipe\LeakTest\MainFrm.cpp(54) 告诉我们MFC认为是在该文件的54行，发生了内存泄漏。你双击改行就可以转到该文件的54行了。但是有时候这一信息并不能用来准确判断，比如：MFC可能报告Strcore.cpp文件的某行，实际上这是CString的实现函数，此时并不知道什么时候发生了内存泄漏。

此时我们需要更多的信息。那么我们看看紧接其后的：

{86} normal block at 0x00422E80, 10 bytes long.
Data: < > 1F 1F 1F 1F 1F CD CD CD CD CD

         它告诉我们：在第86次分配的内存没有释放，一共有10字节，内容移16进制方式打印给我们看。

         有了这些信息，我们可以开始调试内存泄漏了。

         按下F10在程序的刚开始处，停下来，打开Watch窗口：

         在Watch窗口中输入：

{,,msvcrtd.dll}_crtBreakAlloc

         然后更改值为上文提到的分配次数：86

         接着按下F5继续，然后在第86次分配的时候会发生中断：

         然后我们打开堆栈窗口：

      往回查看最近我们自己的代码，双击堆栈我们自己的函数那一层，上图有绿色三角的那一层。就定位到泄漏时分配的内存了。

之后，就是看你的编码功底了。

孤独的夜 2005-12-14 12:56 发表评论

Vc Release 时自动增加版本

孤独的夜 — Mon, 12 Dec 2005 03:41:00 GMT

Vc编译版本时，手工管理版本的增加比较麻烦，所以自己写了个小工具，用来自动增加版本。首先要在你的工程里设定一下。下面图示自动增加Release时的版本。
首先打开Release的工程设定，切换到Post-build step页面。在Post-build Command(s)里新建一行命令，输入要执行的命令，本文是：

E:\Tools\AutoVersion.exe /Comments "Powered By King"

当然你也可以增加其他的命令。

然后编译Release版本，你会在输出窗口看到：

那么此时的文件属性就是：

没错，文件版本显示的是1003，这是上一次的属性。因为AutoVersion.exe是在编译完成后才开始更改版本的，所以显示的总会延迟一次。

好了现在来介绍AutoVersion.exe的参数：

/ResFile C:\Work\Work.Rc 指定特定的资源文件，用于资源文件不是放在工程目录下时，或者工程文件下有多个资源文件时
/Buckup 参数告诉在改变时现在资源所在的路径备份一下，备份文件是添加.bak扩展名。
/IncMain 自动增加主文件版本号。
/Comments "This is Comment"
/CompanyName "My Company"
/FileDescription "FileDescription"
/InternalName "FileName"
/LegalCopyright "Copyright 2003"
/LegalTrademarks "LegalTrademarks"
/OriginalFilename "FileName"
/ProductName "ProductName"
/SpecialBuild "SpecialBuild"

以上参数必须在资源文件中存在（除了Comments），另外如果资源里存在PrivateBuild值，那么PrivateBuild会被改成编译时间（比如2005-12-9 16:13:34）

AutoVersion.exe可以在我的blog下载：
AutoVersion下载
声明：
本工具只是本人游戏之做，使用时最好要备份资源文件（.rc），如果出现问题本人概不负责。使用请自己考虑清楚。

孤独的夜 2005-12-12 11:41 发表评论

如何通过托盘图标得到该所属进程

孤独的夜 — Mon, 12 Dec 2005 01:06:00 GMT

void  CTrayDlg::OnButton1()
{
           //  TODO:  Add  your  control  notification  handler  code  here
HWND  wd=::FindWindow("Shell_TrayWnd",NULL);
   if  (wd==NULL)
   {
         MessageBox("Error1");
             return;
   }
   HWND  wtd=FindWindowEx(wd,NULL,"TrayNotifyWnd",NULL);
   if  (wtd==NULL)
   {
         MessageBox("Error2");
             return;
   }
   HWND  wd1=FindWindowEx(wtd,NULL,"ToolbarWindow32",NULL);
   if  (wd1==NULL)
   {
         MessageBox("Error3");
             return;
   }
   DWORD  pid;
   pid=0;
   GetWindowThreadProcessId(wd1,&pid);
   if  (pid==NULL)
   {
         MessageBox("Error4");
             return;
   }

   HANDLE  hd=OpenProcess(PROCESS_QUERY_INFORMATION    ¦    PROCESS_ALL_ACCESS            ,true,pid);
   if  (hd==NULL)
   {
         MessageBox("Error6");
         return;
     }

   int  num=::SendMessage(wd1,TB_BUTTONCOUNT  ,NULL,NULL);
   int  i;
   unsigned  long  n;
   TBBUTTON  p,*pp;
   CString  x;
   wchar_t  name[256];
   unsigned  long  whd,proid;
   CString  temp;

   TBBUTTON  *sp;

   sp=  (TBBUTTON  *)0x20f00; //这里应该改成用VirtualAllocEx分配内存否则有可能出错，不过人懒，就先这么着吧
   for(i=0;i<num;i++)
   {
           ::SendMessage(wd1,TB_GETBUTTON,i,(LPARAM)sp);
       pp=&p;
       ReadProcessMemory(hd,sp,pp,sizeof(p),&n);
//        x.Format("%x  %x  %x  %x    %x  %x",p.iBitmap,p.idCommand,p.fsState,p.fsStyle,    p.dwData,  p.iString);
       name[0]=0;
       if  (p.iString!=0xffffffff)
       {
               try
               {
                       ReadProcessMemory(hd,(void  *)p.iString,name,255,&n);
                       name[n]=0;
               }
               catch()
               {
               }
//                x+="  ";
//                x+=name;
                       temp=name;
                       try
                       {
                                   whd=0;
                       ReadProcessMemory(hd,(void  *)p.dwData,&whd,4,&n);
                       }
                       catch()
                       {
                       }
                       proid=0;
               GetWindowThreadProcessId((HWND)whd,&proid);
                       x.Format("位置=%d  名称=%s  窗口句柄=%08x  进程ID=%08x",
                                         i,(LPCTSTR  )temp,whd,proid);
               m_list.AddString(x);
       }
   }
}

孤独的夜 2005-12-12 09:06 发表评论

SoftIce使用随笔

孤独的夜 — Wed, 07 Dec 2005 07:22:00 GMT

使用SoftIce调试关键是建立符号表，和让SoftIce加载符号表。
建立符号表可以用下面的命令行：

C:\Program Files\Compuware\DriverStudio\SoftICE\nmsym.exe /TRANS:SYMBOLS,PACKAGE,ALWAYS F:\CodeSample\Test\hook\Debug\hOOKDLL.DLL /OUTPUT:F:\CodeSample\Test\hook\Debug\HOOK.NMS /SOURCE:"E:\Program Files\Microsoft Visual Studio\VC98\CRT\SRC";"E:\Program Files\Microsoft Visual Studio\VC98\MFC\SRC";F:\CodeSample\Test\hook

然后双击生成的符号表，让SoftIce载入。
之后就可以在SoftIce调试界面里使用了。

转：使用SoftIce调试free build版的Driver方法

标题：使用SoftIce调试free build版的Driver方法
创建：2006/07/24

--------------------------------------------------------------------------
1. 使用IDA生成map文件。

2. 使用Visual Studio中的mapsym.exe生成sym文件。
e.x:
mapsym -m test.map
产生test.sym文件

3. 使用Driver Studio中SoftIce目录下的nmsym.exe生成nms文件。
e.x:
nmsym test.sym
产生test.nms文件

4. 加载test.nms文件，Ctrl-d呼出sice，就可以根据ida里的标签、变量等进行设置
断点了。
e.x:
nmsym /sym:test.nms

--------------------------------------------------------------------------
windbg symbolsetting:
set _NT_SYMBOL_PATH=srv*DownstreamStore*http://msdl.microsoft.com/download/symbols

srv*E:\Cache\Symbols*http://msdn.microsoft.com/download/symbols;
--------------------------------------------------------------------------

再装vmware tools ，选择自定义安装项，只安装svga driver，next……finish。
找到虚拟的操作系统的vmx文件在最后添加以下两行代码：
vmmouse.present = "FALSE"
svga.maxFullscreenRefreshTick = "5"
ctlr+d 呼出正常。但返回后，键盘失灵。这个以前到是碰到过，将softice安装程序目录下的i8042prt.sys文件覆盖system32\drivers下同名文件。这下可以了.

孤独的夜 2005-12-07 15:22 发表评论

流备份和枚举NTFS的数据流

孤独的夜 — Mon, 05 Dec 2005 01:15:00 GMT

Win32 备份 API 函数（BackupRead、BackupWrite 等等），可被用来枚举文件中的流。不过，它们用起来有点怪异，而且看上去更像一个工作区，而不是有效的最终的解决方案。

其思路是，当您想要备份一个文件或整个文件夹时，您需要打包并存储全部可能存在的信息。因此，当需要尝试枚举文件中的流时，BackupRead() 是您最好的朋友。我将重点介绍该函数的原型：

BOOL BackupRead(
  HANDLE hFile,
  LPBYTE lpBuffer,
  DWORD nNumberOfBytesToRead,
  LPDWORD lpNumberOfBytesRead,
  BOOL bAbort,
  BOOL bProcessSecurity,
  LPVOID *lpContext
);

为了我们的目的，您此处可忽略诸如上下文和安全等方面。hFile 参数必须通过调用 CreateFile() 获得，而 lpBuffer 应指向 WIN32_STREAM_ID 数据结构：

typedef struct _WIN32_STREAM_ID {
    DWORD         dwStreamId;
    DWORD         dwStreamAttributes;
    LARGE_INTEGER Size;
    DWORD         dwStreamNameSize;
    WCHAR         cStreamName[ANYSIZE_ARRAY];
} WIN32_STREAM_ID, *LPWIN32_STREAM_ID;

这种结构的前 20 个字节表示每个流的标题。流的名称紧随 dwStreamNameSize 字段后面出现，名称后面跟着流的内容。因为传统的文件内容可被视为流 — 尽管是未命名的流，所以要想枚举所有的流，您只需进行循环，直到 BackupRead 返回 False。实际上，BackupRead 应该能读取所有与给定的文件或文件夹相关的信息：

WIN32_STREAM_ID sid;
ZeroMemory(&sid, sizeof(WIN32_STREAM_ID));
DWORD dwStreamHeaderSize = (LPBYTE)&sid.cStreamName -
      (LPBYTE)&sid+ sid.dwStreamNameSize;
bContinue = BackupRead(hfile, (LPBYTE) &sid,
   dwStreamHeaderSize, &dwRead, FALSE, FALSE,
   &lpContext);

上面的这个小段是在流的标题中读到的关键代码。如果该操作是成功的，即可尝试读取该流的实际名称：

WCHAR wszStreamName[MAX_PATH];
BackupRead(hfile, (LPBYTE) wszStreamName, sid.dwStreamNameSize,
&dwRead, FALSE, FALSE, &lpContext);

在访问下一个流之前，首先要调用 BackupSeek()，向前移动备份指示器：

BackupSeek(hfile, sid.Size.LowPart, sid.Size.HighPart,
&dw1, &dw2, &lpContext);

在多数情况下，您可将流视为常规文件 — 如，要删除流，可以用 DeleteFile()。如果想要刷新流的内容，只需使用 ReadFile() 和 WriteFile()。没有正式的和得到支持的方法来移动或重新命名流。在本文的最后部分，我将利用本代码建立一个 NTFS 2000 专用的 Windows shell 扩展，将新的属性页添加到所有带流信息的文件中。

孤独的夜 2005-12-05 09:15 发表评论

Vc中将普通字符串和宽字符串互相转化的宏

孤独的夜 — Fri, 02 Dec 2005 00:26:00 GMT

在VC中输入Tchar麻烦，所以写了个宏方便使用。
// VS2005

Sub ChangeToTChar()
        'DESCRIPTION: Change Normal String to T Char String, TChar String to Normal String.
        Dim doc
        doc = ActiveDocument

        ' Be sure active document is a text document
        If doc Is Nothing Then
            Exit Sub
        ElseIf doc.Type <> "Text" Then
            Exit Sub
        End If

        Dim CurrText
        Dim CurrTextLen
        CurrText = doc.Selection.Text
        CurrText = Trim(CurrText)
        CurrTextLen = Len(CurrText)
        If CurrTextLen = 0 Then
            CurrText = " TEXT(""" & CurrText & """)"
            doc.Selection.Text = CurrText
            doc.Selection.CharLeft(2)
        Else
            If Mid(CurrText, 1, 1) = """" Then
                'MsgBox Mid(CurrText,CurrTextLen,1)
                If Mid(CurrText, CurrTextLen, 1) = """" Then
                    CurrText = " TEXT(" & CurrText & ") "
                Else
                    Exit Sub
                End If
            ElseIf Mid(CurrText, 1, 2) = "_T" Then
                CurrText = Mid(CurrText, 3, CurrTextLen - 2)
                CurrText = Trim(CurrText)
                CurrTextLen = Len(CurrText)
                If Mid(CurrText, 1, 1) = "(" And Mid(CurrText, CurrTextLen, 1) = ")" Then
                    CurrText = Mid(CurrText, 2, CurrTextLen - 2)
                Else
                    Exit Sub
                End If
            ElseIf Mid(CurrText, 1, 4) = "TEXT" Then
                CurrText = Mid(CurrText, 5, CurrTextLen - 4)
                CurrText = Trim(CurrText)
                CurrTextLen = Len(CurrText)
                If Mid(CurrText, 1, 1) = "(" And Mid(CurrText, CurrTextLen, 1) = ")" Then
                    CurrText = Mid(CurrText, 2, CurrTextLen - 2)
                Else
                    Exit Sub
                End If
            Else
                'Here Are Not String
                'CurrText = " _T(""" & CurrText & """) "
                Exit Sub
            End If
            doc.Selection.Text = CurrText
        End If
    End Sub

// VS2003

Sub ChangeToTChar()
'DESCRIPTION: Change Normal String to T Char String, TChar String to Normal String.
    Dim doc
    Set doc = ActiveDocument

    ' Be sure active document is a text document
    If doc Is Nothing Then
        Exit Sub
    Elseif doc.Type <> "Text" Then
        Exit Sub
    End If

    Dim CurrText
    Dim CurrTextLen
    Set CurrText = doc.Selection
    CurrText = Trim(CurrText)
    CurrTextLen = Len(CurrText)
    If CurrTextLen = 0 Then
        CurrText = " TEXT(""" & CurrText & """)"
        doc.Selection = CurrText
        doc.Selection.CharLeft dsMove, 2
    Else
        If Mid(CurrText,1,1) = """" Then
            'MsgBox Mid(CurrText,CurrTextLen,1)
            If Mid(CurrText,CurrTextLen,1) = """" Then
                CurrText = " TEXT(" & CurrText & ") "
            Else
                Exit Sub
            End If
        ElseIf Mid(CurrText,1,2) = "_T" Then
            CurrText = Mid(CurrText,3,CurrTextLen-2)
            CurrText = Trim(CurrText)
            CurrTextLen = Len(CurrText)
            If Mid(CurrText,1,1) = "(" and Mid(CurrText,CurrTextLen,1) = ")"  Then
                CurrText = Mid(CurrText,2,CurrTextLen-2)
            Else
                Exit Sub
            End If
        ElseIf Mid(CurrText,1,4) = "TEXT" Then
            CurrText = Mid(CurrText,5,CurrTextLen-4)
            CurrText = Trim(CurrText)
            CurrTextLen = Len(CurrText)
            If Mid(CurrText,1,1) = "(" and Mid(CurrText,CurrTextLen,1) = ")"  Then
                CurrText = Mid(CurrText,2,CurrTextLen-2)
            Else
                Exit Sub
            End If
        Else
            'Here Are Not String
            'CurrText = " _T(""" & CurrText & """) "
            Exit Sub
        End If
        doc.Selection = CurrText
    End If
End Sub

孤独的夜 2005-12-02 08:26 发表评论