메뉴 건너뛰기

프로그래밍


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" 오류 날때... [14] 파이팅건맨 2016.02.20 37686
공지 [TIP] JQuery와 PHP로 이미지 파일을 업로드 하는 간단한 소스 (How to upload image file on PHP server by using JQuery) 파이팅건맨 2015.04.03 6584
공지 [TIP] php로 기상청에서 제공하는 기상정보 API 호출하기 파이팅건맨 2017.01.17 3856
81 PE 화일의 헤더구조를 보여주는 소스 입니다. 파이팅건맨 2003.09.04 326
» VB에서 프로세스 실행시 우선순위 주기 파이팅건맨 2003.08.22 343
79 데브피아에 글을 올린 김태완입니다. [1] 김태완 2003.08.21 327
78 필요한 모든 파일 합쳐서 하나의 .exe 파일 만들기 파이팅건맨 2003.08.27 1122
77 [MFC]GIF Animation Control 파이팅건맨 2003.08.05 1249
76 [GCC] C에서 밀리세컨드 구하는 법 (2) 파이팅건맨 2003.07.29 579
75 인터넷 익스플로러 툴바(툴밴드) 관련 소스링크 파이팅건맨 2003.07.23 331
74 scanf, printf와 같이 다수의 파라메터 처리 방법(MSDN) 파이팅건맨 2003.08.20 284
73 PHP,ASP,PERL에서 파일사이즈 알아내는 방법(For GunClient...) 파이팅건맨 2003.05.30 328
72 CRC 체크 C 소스 입니다. 파이팅건맨 2003.03.24 1007
71 HTTP프로토콜을 이용한 파일 업로드 파이팅건맨 2002.12.24 968
70 [Tip] CTRL-ALT-DEL키 막는법(NT,2000,XP,98) 파이팅건맨 2002.07.11 439
69 [Tip]Default 스크린세이버 가동 방법 파이팅건맨 2002.07.11 309
68 TCHAR, UNICODE, 그리고 윈도우 NT 파이팅건맨 2002.02.26 443
67 [C]밀리초를 구현하는 방법 파이팅건맨 2001.08.07 678
66 [TIP]외부 프로그램 실행방법 파이팅건맨 2001.03.15 419
65 [TIP]Convex Hull 알고리즘 파이팅건맨 2000.10.10 358
64 [소켓 2]송신시 바이트 단위로 보내기 파이팅건맨 2000.09.18 617
63 Lex와 Yacc의 사용법 강좌 파이팅건맨 2000.10.09 619
62 비주얼 C++과 MASM 사용하기 파이팅건맨 2000.09.07 565
위로