Dos窓で？ (ID:123928)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 手元にVB6しかないので、参考程度に・・・・ Private Declare Function AllocConsole Lib "kernel32" () As Long Private Declare Function FreeConsole Lib "kernel32" () As Long Private Declare Function SetConsoleCtrlHandler Lib "kernel32" (ByVal lpHandlerRoutine As Long, ByVal bAdd As Long) As Long Private Declare Function GenerateConsoleCtrlEvent Lib "kernel32" (ByVal dwCtrlEvent As Long, ByVal dwProcessGroupId As Long) As Long Private Const CTRL_C_EVENT = &H0& Private Sub Command1_Click() Shell "xcopy C:\TEST D:\TEST\ /s" End Sub Private Sub Command2_Click() Call GenerateConsoleCtrlEvent(CTRL_C_EVENT, 0) End Sub Private Sub Form_Load() Call AllocConsole Call SetConsoleCtrlHandler(AddressOf HandlerRoutine, 1) End Sub Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) Call FreeConsole End Sub ※標準モジュール Public Function HandlerRoutine(ByVal Param As Long) As Long HandlerRoutine = 1 End Function