forked from WindowStations/VB6NameSpaces
-
Notifications
You must be signed in to change notification settings - Fork 0
/
ProcessStartInfo.cls
111 lines (107 loc) · 3.26 KB
/
ProcessStartInfo.cls
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
VERSION 1.0 CLASS
BEGIN
MultiUse = -1
Persistable = 0
DataBindingBehavior = 0
DataSourceBehavior = 0
MTSTransactionMode = 0
END
Attribute VB_Name = "ProcessStartInfo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit
'VERSION 1.0 CLASS
'BEGIN
' MultiUse = -1 'True
' Persistable = 0 'NotPersistable
' DataBindingBehavior = 0 'vbNone
' DataSourceBehavior = 0 'vbNone
' MTSTransactionMode = 0 'NotAnMTSObject
'END
'Attribute VB_Name = "ProcessStartInfo"
'Attribute VB_GlobalNameSpace = False
'Attribute VB_Creatable = True
'Attribute VB_PredeclaredId = False
'Attribute VB_Exposed = False
'Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
'Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
'Option Explicit
Private mvarCreateNoWindow As Boolean
Private mvarLoadUserProfile As Boolean
Private mvarUseShellExecute As Boolean
Private mvarArguments As String
Private mvarDomain As String
Private mvarFileName As String
Private mvarUserName As String
Private mvarVerb As String
Private mvarWorkingDirectory As String
Private mvarPassword As String
Private mvarWindowStyle As Long
Friend Property Get CreateNoWindow() As Boolean
CreateNoWindow = mvarCreateNoWindow
End Property
Friend Property Let CreateNoWindow(ByVal vData As Boolean)
mvarCreateNoWindow = vData
End Property
Friend Property Get LoadUserProfile() As Boolean
LoadUserProfile = mvarLoadUserProfile
End Property
Friend Property Let LoadUserProfile(ByVal vData As Boolean)
mvarLoadUserProfile = vData
End Property
Friend Property Get UseShellExecute() As Boolean
UseShellExecute = mvarUseShellExecute
End Property
Friend Property Let UseShellExecute(ByVal vData As Boolean)
mvarUseShellExecute = vData
End Property
Friend Property Get Password() As String
Password = mvarPassword
End Property
Friend Property Let Password(ByVal vData As String)
mvarPassword = vData
End Property
Friend Property Get WorkingDirectory() As String
WorkingDirectory = mvarWorkingDirectory
End Property
Friend Property Let WorkingDirectory(ByVal vData As String)
mvarWorkingDirectory = vData
End Property
Friend Property Get Verb() As String
Verb = mvarVerb
End Property
Friend Property Let Verb(ByVal vData As String)
mvarVerb = vData
End Property
Friend Property Get UserName() As String
UserName = mvarUserName
End Property
Friend Property Let UserName(ByVal vData As String)
mvarUserName = vData
End Property
Friend Property Get FileName() As String
FileName = mvarFileName
End Property
Friend Property Let FileName(ByVal vData As String)
mvarFileName = vData
End Property
Friend Property Get Domain() As String
Domain = mvarDomain
End Property
Friend Property Let Domain(ByVal vData As String)
mvarDomain = vData
End Property
Friend Property Get Arguments() As String
Arguments = mvarArguments
End Property
Friend Property Let Arguments(ByVal vData As String)
mvarArguments = vData
End Property
Friend Property Get WindowStyle() As Long
WindowStyle = mvarWindowStyle
End Property
Friend Property Let WindowStyle(ByVal vData As Long)
mvarWindowStyle = vData
End Property