سوال برای اجرای یک فایل exe داخل VB

[Salivan]

دوستان سلام
یک سوال دارم
من می خوام داخل VB یه برنامه درست کنم که یه فایل exe مثل یه گیم رو با زدن یک کلید اجرا کنه!
یعنی داخل یک فورم یک Button باشه که با زدن اون یک فایل exe که داخل سیستم هست اجرا بشه.

خیلی ممنون می شم راهنماییم کنید...

[ajlajlajl]

دستور shell. قبلا زیاد بحث شده...

[xsalamx]

سلام
یه کامند دیالوگ با یه کامند باتون بزار روی فرم بعد
این کد رو برای ماژول

کد:

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

و این کد رو برای فرم

کد:

Private Sub Command1_Click()
CommonDialog1.ShowOpen
ShellExecute hwnd, "open", CommonDialog1.FileName, vbNullString, "WINPath", 1
End Sub

بنویس
اینم فایل زیپ شدش

  Exe.rar (اندازه: 1.37 KB / تعداد دفعات دریافت: 90)

فقط یه سوالی هم در مورد این فایل داشتم :
زمانی که این کد

کد:

CommonDialog1.ShowOpen

به مرحله اجرا در می یاد
این کادر

ظاهر می شه
حلا ما اگه open رو بزنیم فایل انتخابی اجرا می شه اما اگه Cancel یا دکمه خروج رو بزنیم خودش مسیر جاری ویندوز رو باز می کنه حالا ما اگه بخوایم زمانی که کاربر دکمه Cancel رو زد این مسیر باز نشه یا یه پیغام نمایش داده بشه چیکار کنیم؟
اصلا چطوری می شه فهمید کاربر توی کادر ShowOpen دکمه Cancel رو انتخاب کرده؟

[محمد حسینی]

تا اونجایی که من می دونم اگه cancel بزنی filename تغییر نمی کنه.
قبل از showopen مقدار filename رو تغییر بده (خالی کن) اگه cancel بزنه خوب همون می مونه دیگه !
یعنی اگه comd.filename ="" یعنی cancel شده

[xsalamx]

سلام

اونجوری فرقی نکرد
اما با یه if درست شد

کد:

Private Sub Command1_Click()
CommonDialog1.ShowOpen
If CommonDialog1.FileName <> "" Then
ShellExecute hwnd, "open", CommonDialog1.FileName, vbNullString, "WINPath", 1
Else
MsgBox "null"
End If
End Sub