■ D計画 本体ソース 2006年09月01日（金） Option Explicit Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long Private Const DRIVE_TYPE_UNDTERMINED = 0 Private Const DRIVE_NO_ROOT_DIR = 1 Private Const DRIVE_REMOVABLE = 2 Private Const DRIVE_FIXED = 3 Private Const DRIVE_REMOTE = 4 Private Const DRIVE_CDROM = 5 Private Const DRIVE_RAMDISK = 6 Private Declare Function Unlha Lib "UNLHA32.DLL" (ByVal hwnd As Long, ByVal szCmdLine As String, ByVal Lpstr As String, ByVal wsize As Long) As Long Private Declare Function UnlhaSetCursorMode Lib "UNLHA32.DLL" (ByVal CursorMode As Long) As Long Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long Private Const CompFile = "xxx.lzh" Private Const ListFile = "xxxx.lst" Private Const DupSetFile = "xxx.set" （以下省略） ソースといえばブルドッグ。 それともおたふく？