فنح شاشة حوار (تشغيل RUN) مع تغيير عنوانها ونص الرسالة
Amjad Moustafa :: VB6 :: Codes :: Operating system
صفحة 1 من اصل 1
فنح شاشة حوار (تشغيل RUN) مع تغيير عنوانها ونص الرسالة
'If uFlags is the following constant, the string from the last-run program will not appear in the dialogs combo box
Const shrdNoMRUString = &H2 '2nd bit is set
Private Type OSVERSIONINFO
dwOSVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformId As Long
szCSDVersion As String * 128
End Type
Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long
Private Declare Function SHRunDialog Lib "shell32" Alias "#61" (ByVal hOwner As Long, ByVal Unknown1 As Long, ByVal Unknown2 As Long, ByVal szTitle As String, ByVal szPrompt As String, ByVal uFlags As Long) As Long
Private Sub Form_Load()
'KPD-Team 2001
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net
Dim sTitle As String, sPrompt As String
sTitle = "ÝÊÍ ÈÑäÇãÌ ..."
sPrompt = "ÃßÊÈ ÇÓã ÇáÈÑäÇãÌ ÇáÐí ÊÑíÏ ÝÊÍå ..."
If IsWinNT Then
SHRunDialog Me.hWnd, 0, 0, StrConv(sTitle, vbUnicode), StrConv(sPrompt, vbUnicode), 0
Else
SHRunDialog Me.hWnd, 0, 0, sTitle, sPrompt, 0
End If
End Sub
Function IsWinNT() As Boolean
Dim OSInfo As OSVERSIONINFO
OSInfo.dwOSVersionInfoSize = Len(OSInfo)
'Get the Windows version
Ret& = GetVersionEx(OSInfo)
IsWinNT = (OSInfo.dwPlatformId = 2)
End Function
Const shrdNoMRUString = &H2 '2nd bit is set
Private Type OSVERSIONINFO
dwOSVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformId As Long
szCSDVersion As String * 128
End Type
Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long
Private Declare Function SHRunDialog Lib "shell32" Alias "#61" (ByVal hOwner As Long, ByVal Unknown1 As Long, ByVal Unknown2 As Long, ByVal szTitle As String, ByVal szPrompt As String, ByVal uFlags As Long) As Long
Private Sub Form_Load()
'KPD-Team 2001
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net
Dim sTitle As String, sPrompt As String
sTitle = "ÝÊÍ ÈÑäÇãÌ ..."
sPrompt = "ÃßÊÈ ÇÓã ÇáÈÑäÇãÌ ÇáÐí ÊÑíÏ ÝÊÍå ..."
If IsWinNT Then
SHRunDialog Me.hWnd, 0, 0, StrConv(sTitle, vbUnicode), StrConv(sPrompt, vbUnicode), 0
Else
SHRunDialog Me.hWnd, 0, 0, sTitle, sPrompt, 0
End If
End Sub
Function IsWinNT() As Boolean
Dim OSInfo As OSVERSIONINFO
OSInfo.dwOSVersionInfoSize = Len(OSInfo)
'Get the Windows version
Ret& = GetVersionEx(OSInfo)
IsWinNT = (OSInfo.dwPlatformId = 2)
End Function
مواضيع مماثلة
» تشغيل شاشة التوقف
» تغيير خلفية سطح المكتب
» فتح شاشة الدوس وإرسال الأوامر إليها
» تغيير أولوية أحد العمليات التي تعمل حاليا
» تغيير خلفية سطح المكتب
» فتح شاشة الدوس وإرسال الأوامر إليها
» تغيير أولوية أحد العمليات التي تعمل حاليا
Amjad Moustafa :: VB6 :: Codes :: Operating system
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى