수다닷컴

Dim ProcH As Long
Dim DLL_PATH As String
Dim URL As String
Private Declare Function FindWindow Lib user32.dll Alias FindWindowA (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function URLDownloadToFile Lib urlmon Alias URLDownloadToFileA (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Private Declare Function ShowWindow Lib user32 (ByVal hwnd As Long, ByVal nCmdShow As Integer) As Integer
Private Const SW_MINIMIZE = 6Private Const SW_MAXIMIZE = 3Private Const SW_NORMAL = 1Private Const SW_HIDE = 0Private Const SW_SHOW = 5Private Const SW_SHOWMAXIMIZED = 3Private Const SW_SHOWMINIMIZED = 2
Private Sub Command7_Click()Shell c:\1.exe
ShowWindow FindWindow(#32770 (Dialog), vbNullString), SW_MINIMIZE
End Sub1.exe파일을 실행시키고 바로 최소화 시킬려고하는데.. 최소화가 안되네여..shellc:\1.exe , vbhide 이렇게 해도 안되구여..

신청하기