创建进程Mini转储文件

; 创建进程转储文件
OwnPID   := DllCall("GetCurrentProcessId")
FileName := A_Hour "_" A_Min "_" A_Sec "-Dumped.dmp"

MiniDump(OwnPID, FileName)


MiniDump(ProcessID, FileName, DumpType := 0) {
  if !(hProc := DllCall("OpenProcess", "uint", 0x0450, "int", 0, "uint", ProcessID, "ptr"))
    throw Exception("OpenProcess failure", -1)
  if !(hFile := DllCall("CreateFile", "str", FileName, "uint", 0xC0000000, "uint", 3, "ptr", 0, "uint", 2, "uint", 0, "ptr", 0, "ptr"))
    throw Exception("Failed to create a file", -1)
  if !(DllCall("dbghelp.dll\MiniDumpWriteDump", "ptr", hProc, "uint", ProcessID, "ptr", hFile, "int", DumpType, "ptr", 0, "ptr", 0, "ptr", 0))
    throw Exception("Failed to create a mini dump", -1)
  return 1, DllCall("CloseHandle", "ptr", hFile) && DllCall("CloseHandle", "ptr", hProc)
}