سفارش تبلیغ
صبا ویژن
.
فرشتگان با خشنودی بالهایشان را برای جویای دانش می گسترانند . [پیامبر خدا صلی الله علیه و آله]
امروز: پنج شنبه 103 فروردین 9



Online backup storage and collaboration

پنج گیگ فضای رایگان+ یک گیگ لیچ رایگان

Public Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As _
String, ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

"Exampel  Call Shell2("c:\temp\a.exe")

Function Shell2(Program As String, Optional ShowCmd As Long = _
vbNormalNoFocus, Optional ByVal WorkDir As Variant) As Long

    Dim FirstSpace As Integer, Slash As Integer

    If Left(Program, 1) = """" Then
        FirstSpace = InStr(2, Program, """")


        If FirstSpace <> 0 Then
            Program = Mid(Program, 2, FirstSpace - 2) & _
              Mid(Program, FirstSpace + 1)
            FirstSpace = FirstSpace - 1
        End If

    Else
        FirstSpace = InStr(Program, " ")
    End If

    If FirstSpace = 0 Then FirstSpace = Len(Program) + 1

    If IsMissing(WorkDir) Then

        For Slash = FirstSpace - 1 To 1 Step -1
            If Mid(Program, Slash, 1) = "\" Then Exit For
        Next

        If Slash = 0 Then
            WorkDir = CurDir
        ElseIf Slash = 1 Or Mid(Program, Slash - 1, 1) = ":" Then
            WorkDir = Left(Program, Slash)
        Else
            WorkDir = Left(Program, Slash - 1)
        End If

    End If

    Shell2 = ShellExecute(0, vbNullString, _
    Left(Program, FirstSpace - 1), LTrim(Mid(Program, _
    FirstSpace)), WorkDir, ShowCmd)
    If Shell2 < 32 Then VBA.Shell Program, ShowCmd "To raise Error

End Function



نوشته شده توسط مهدی در چهارشنبه 88/3/27 و ساعت 6:4 صبح | نظرات دیگران()
لیست کل یادداشت های این وبلاگ
Nod32 SN Finder v1.6
تهیه نسخه بکاپ از دیتابیس نود 32 و بازگردانی
وارد نمودن حروف فارسی بدون تغییر Keylayout
VB Anticrack v1.5 Full
نمایش کامل متن آیتم لیست باکس
محدود نمودن ماوس
باز کردن Regedit در مسیر دلخواه
تغییر استایل کامند به فلات
تغییرات در رجیستری توسط
نحوه استفاده از Gif control
NOD32 SN Finder v1.5
[عناوین آرشیوشده]

بالا

طراح قالب: رضا امین زاده** پارسی بلاگ پیشرفته ترین سیستم مدیریت وبلاگ

بالا