메뉴 건너뛰기

프로그래밍


VB에서 프로세스 실행시 우선순위 주기
Option Explicit Private Type STARTUPINFO cb As Long lpReserved As String lpDesktop As String lpTitle As String dwX As Long dwY As Long dwXSize As Long dwYSize As Long dwXCountChars As Long dwYCountChars As Long dwFillAttribute As Long dwFlags As Long wShowWindow As Integer cbReserved2 As Integer lpReserved2 As Long hStdInput As Long hStdOutput As Long hStdError As Long End Type Private Type PROCESS_INFORMATION hProcess As Long hThread As Long dwProcessID As Long dwThreadID As Long End Type Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal _ hHandle As Long, ByVal dwMilliseconds As Long) As Long Private Declare Function SetPriorityClass Lib "kernel32" (ByVal hProcess As Long, ByVal dwPriorityClass As Long) As Long Private Declare Function SetCurrentDirectory Lib "kernel32" Alias "SetCurrentDirectoryA" (ByVal lpPathName As String) As Long Private Declare Function CreateProcessA Lib "kernel32" (ByVal _ lpApplicationName As Long, ByVal lpCommandLine As String, ByVal _ lpProcessAttributes As Long, ByVal lpThreadAttributes As Long, _ ByVal bInheritHandles As Long, ByVal dwCreationFlags As Long, _ ByVal lpEnvironment As Long, ByVal lpCurrentDirectory As Long, _ lpStartupInfo As STARTUPINFO, lpProcessInformation As _ PROCESS_INFORMATION) As Long Private Declare Function CloseHandle Lib "kernel32" (ByVal _ hObject As Long) As Long Private Const HIGH_PRIORITY_CLASS = &H80 Private Const NORMAL_PRIORITY_CLASS = &H20& Private Const INFINITE = -1& Public Sub ExecCmd(cmdline$) Dim proc As PROCESS_INFORMATION Dim start As STARTUPINFO Dim ReturnValue As Integer Dim AA As Long ' Initialize the STARTUPINFO structure: start.cb = Len(start) AA = SetCurrentDirectory("C:\") If AA = 0 Then MsgBox "에러?" End If ' Start the shelled application: ReturnValue = CreateProcessA(0&, cmdline$, 0&, 0&, 1&, _ NORMAL_PRIORITY_CLASS, 0&, 0&, start, proc) ' Wait for the shelled application to finish: ReturnValue = SetPriorityClass(proc.hProcess, NORMAL_PRIORITY_CLASS) Do ReturnValue = WaitForSingleObject(proc.hProcess, 0) DoEvents Loop Until ReturnValue <> 258 ReturnValue = CloseHandle(proc.hProcess) End Sub Sub Testing() ExecCmd "NOTEPAD.EXE" MsgBox "Process Finished" End Sub Private Sub Command1_Click() Testing End Sub ** Lee Gun-woo





번호 제목 글쓴이 날짜 조회 수
공지 [TIP] PYTHON 에서 "UnicodeDecodeError: 'cp949' codec can't decode byte 0xe2 in position 6987: illegal multibyte sequence" 오류 날때... [51] 파이팅건맨 2016.02.20 143662
공지 [TIP] R에서 페이스북 페이지 정보 크롤링 하기 [6] 파이팅건맨 2017.02.11 19725
공지 [TIP] TensorFlow를 윈도우에서 사용하기 (A way to use TensorFlow on Windows) [3] 파이팅건맨 2016.04.16 15318
86 [LINK] VC++7 to VC++6 project converter 파이팅건맨 2004.04.28 574
85 [링크]CDirectoryChangeWatcher - ReadDirectoryChangesW 파이팅건맨 2004.03.04 403
84 [TIP] 헝가리안 표기법 파이팅건맨 2004.01.09 448
83 SNTP Protocol을 이용하는 소스 예제 파이팅건맨 2003.12.30 558
82 제로보드에 GUNCLIENT 컨트롤 적용하는 방법 파이팅건맨 2003.12.30 497
81 Three Ways to Inject Your Code into Another Process 파이팅건맨 2003.12.29 190
80 Single interface for enumerating processes and modules under NT and Win9x/2K 파이팅건맨 2003.12.29 197
79 개발자가 알아야 할 10가지 보안 팁으로 코드 보호하기 파이팅건맨 2003.12.29 1850
78 register와 volatile 키워드 파이팅건맨 2003.11.06 342
77 Struct Packing 에 관한 설명 파이팅건맨 2003.12.29 176
76 PE 화일의 헤더구조를 보여주는 소스 입니다. 파이팅건맨 2003.09.04 394
» VB에서 프로세스 실행시 우선순위 주기 파이팅건맨 2003.08.22 463
74 데브피아에 글을 올린 김태완입니다. [1] 김태완 2003.08.21 393
73 필요한 모든 파일 합쳐서 하나의 .exe 파일 만들기 파이팅건맨 2003.08.27 1357
72 [MFC]GIF Animation Control 파이팅건맨 2003.08.05 1580
71 [GCC] C에서 밀리세컨드 구하는 법 (2) 파이팅건맨 2003.07.29 781
70 인터넷 익스플로러 툴바(툴밴드) 관련 소스링크 파이팅건맨 2003.07.23 374
69 scanf, printf와 같이 다수의 파라메터 처리 방법(MSDN) 파이팅건맨 2003.08.20 393
68 PHP,ASP,PERL에서 파일사이즈 알아내는 방법(For GunClient...) 파이팅건맨 2003.05.30 512
67 CRC 체크 C 소스 입니다. 파이팅건맨 2003.03.24 1798
위로