|
|
|
|
| 14 Sep 2006 05:06:04 pm |
 run and wait pid by shell |
|
|
Option Explicit
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Const SYNCHRONIZE = &H100000
Private Const INFINITE = -1&
' Start the indicated program and wait for it
' to finish, hiding while we wait.
Private Sub ShellAndWait(ByVal program_name As String, ByVal window_style As VbAppWinStyle)
Dim process_id As Long
Dim process_handle As Long
' Start the program.
On Error GoTo ShellError
process_id = Shell(program_name, window_style)
On Error GoTo 0
' Hide.
Me.Visible = False
DoEvents
' Wait for the program to finish.
' Get the process handle.
process_handle = OpenProcess(SYNCHRONIZE, 0, process_id)
If process_handle <> 0 Then
WaitForSingleObject process_handle, INFINITE
CloseHandle process_handle
End If
' Reappear.
Me.Visible = True
Exit Sub
ShellError:
MsgBox "Error starting task " & _
txtProgram.Text & vbCrLf & _
Err.Description, vbOKOnly Or vbExclamation, _
"Error"
End Sub
' Start the program.
' Meng eksekusi conmmand shell
Private Sub cmdRun_Click()
Select Case cboShellStyle.Text
Case "vbHide"
ShellAndWait txtProgram.Text, vbHide
Case "vbMaximizedFocus"
ShellAndWait txtProgram.Text, vbMaximizedFocus
Case "vbMinimizedFocus"
ShellAndWait txtProgram.Text, vbMinimizedFocus
Case "vbMinimizedNoFocus"
ShellAndWait txtProgram.Text, vbMinimizedNoFocus
Case "vbNormalFocus"
ShellAndWait txtProgram.Text, vbNormalFocus
Case "vbNormalNoFocus"
ShellAndWait txtProgram.Text, vbNormalNoFocus
End Select
End Sub
Private Sub Form_Load()
cboShellStyle.ListIndex = 4
End Sub |
|
| |
Category : About Me
| Posted By : admin |  Comments [2] |  Trackbacks [0] |
|
|
|
| The URI to TrackBack this entry is :
http://rio.awardspace.com/trackback.php/17 | |
|
|
|
|
|
|
|
|
By : jcenkc @ Time : 18 Oct 2008 08:21:10 am : Email : Home |
|
|
we offer cheap wow power leveling service,wow power leveling,Cheapest WoW Gold,fast and secure service.wow power leveling,This is the method the wow power leveling have used since closed beta wow power leveling and I finally got one of WoW Gold them to give it up. It is by no means the way to go if you want to maximize your in the game as this will bypass almost all the content in the game and wow gold essentially ignore many of the fun, unique aspects of World Of Warcraft gold This is not recommended for new players and is meant for players World Of Warcraft gold who already have experienced World Of Warcraft gold the contentwedding invitations, and just want to level up an alt to play World Of Warcraft gold with their leve60 friends (WoW Gold your level 60 instance group needs a priest and WoW Gold there are no priests to be had).wow power leveling As a benchmark to how successful you are with this, WoW Gold download cosmos (Cosmos) and useWorld of warcraft Power Leveling,World of warcraft Power Leveling,wow power level,wow power level,ffxi gil,ffxi gil,ffxi gil,ffxi gil,final fantasy xi gil,final fantasy xi gil,final fantasy xi gil,final fantasy xi gil,guildwars gold,guildwars gold,guild wars gold,Maple Story mesos,MapleStory mesos,ms mesos,mesos,SilkRoad Gold,SRO Gold,SilkRoad Online Gold,eq2 plat,eq2 gold,eq2 Platinum,EverQuest 2 Platinum,EverQuest 2 gold,EverQuest 2 plat,lotro gold,lotr gold,Lord of the Rings online Gold,everquest plat,eq2 plat,eq2 gold,everquest platinum,rs gold,Pet products,dog bed,pet supply,pet product,Dog Collar,Dog carrier,Dog Clothes,silkroad gold,Chinese Tea,Green Tea,China Tea,Black tea,Oolong Tea,White tea,Herbal Tea,Jasmine tea,Chinese Tea,Green Tea,Childrens Clothes,Childrens clothing,Baby Clothing,Baby Clothes,newborn clothes,infant clothes,boys clothes,boys clothing,girls clothing,Replica handbags,Replica Watches,wedding cake toppers,cake toppers,digital cameras,digital camera,buy warhammer gold,buy warhammer gold,buy warhammer gold,warhammer gold,warhammer gold,warhammer gold,wow cd key,world of warcraft cd key,lineage2 cd key
|
|
|
|
|
|
|
By : ERTCVBCB @ Time : 31 Jul 2009 06:56:32 am : |
|
|
MY wow power leveling
buy wow gold
my wow power leveling
BUY wow gold
CHEAP wow power leveling
my wow gold
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| |
