메뉴 건너뛰기

프로그래밍


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



profile
제목 날짜
[TIP] PYTHON 에서 "UnicodeDecodeError: 'cp949' codec can't decode byte 0xe2 in position 6987: illegal multibyte sequence" 오류 날때... 4 2016.02.20
[TIP] JQuery와 PHP로 이미지 파일을 업로드 하는 간단한 소스 (How to upload image file on PHP server by using JQuery) 2015.04.03
[TIP] R에서 페이스북 페이지 정보 크롤링 하기 2 2017.02.11
VB에서 프로세스 실행시 우선순위 주기 2003.08.22
데브피아에 글을 올린 김태완입니다. 1 2003.08.21
필요한 모든 파일 합쳐서 하나의 .exe 파일 만들기 2003.08.27
[MFC]GIF Animation Control 2003.08.05
[GCC] C에서 밀리세컨드 구하는 법 (2) 2003.07.29
인터넷 익스플로러 툴바(툴밴드) 관련 소스링크 2003.07.23
scanf, printf와 같이 다수의 파라메터 처리 방법(MSDN) 2003.08.20
PHP,ASP,PERL에서 파일사이즈 알아내는 방법(For GunClient...) 2003.05.30
CRC 체크 C 소스 입니다. 2003.03.24
HTTP프로토콜을 이용한 파일 업로드 2002.12.24
[Tip] CTRL-ALT-DEL키 막는법(NT,2000,XP,98) 2002.07.11
[Tip]Default 스크린세이버 가동 방법 2002.07.11
TCHAR, UNICODE, 그리고 윈도우 NT 2002.02.26
[C]밀리초를 구현하는 방법 2001.08.07
[TIP]외부 프로그램 실행방법 2001.03.15
[TIP]Convex Hull 알고리즘 2000.10.10
[소켓 2]송신시 바이트 단위로 보내기 2000.09.18
Lex와 Yacc의 사용법 강좌 2000.10.09
비주얼 C++과 MASM 사용하기 2000.09.07
[소켓]C처럼 바이트 단위로 통신 2000.09.02
태그 목록
위로