run کردن فایل ها [بایگانی]

jannati

شنبه 25 بهمن 1382, 08:39 صبح

دوستان عزیز سلام
میخواستم بدونم اگر شما در برنامتون بخواهید یک فایل را باز کنید مثلا فایل Powerpointیا Flashاز چه روشی استفاده میکنید؟
اگر این فایل EXEباشد چه طور؟

از توجهتون ممنونم

S.Azish

شنبه 25 بهمن 1382, 13:54 عصر

http://www.imt.net/~joe/matt/program/vb/HOWTOs/ShellExecuteAPI/

jannati

یک شنبه 26 بهمن 1382, 11:15 صبح

آقای آذیش با تشکر از توجهتون ،واقعا زدید به هدف. :تشویق: :wink: :flower:
فقط یک نکته اینجا برای من مفهوم نیست.وقتی من میخوام مثلا یک برنامه ‍power pointرا بازکنم باید چه فایلی را صدا بزنم؟و اینکه اون برنامه در دستگاه کاربر باشه مهمه یا نه؟
راستش من چندتا فایل اجرایی exeبا این کد صدا زدم ولی runنشد.میتونه به خاطر مسیری باشه که این برنامه ها در اون قرار دارند؟

اگر ممکنه یه کم توضیح بدید.ممنون میشم. :گیج:

Vahab

یک شنبه 26 بهمن 1382, 17:02 عصر

برنامه ای که شما میخواهید صدا بزنید باید 100٪ بر روی کامپیوتر کاربر نصب باشد

S.Azish

دوشنبه 27 بهمن 1382, 01:13 صبح

همونطور که دوستمون گفتن برنامه باید حتمآ نصب باشه که این فایلها به اونها نسبت داده بشن. درباره فایلهای Exe بله امکان داره به خاطر مسیری باشه که اونو صدا میزنید.

jannati

دوشنبه 27 بهمن 1382, 07:28 صبح

خوب من کجای این کدها باید مسیر برنامه های exeرو وارد کنم؟ :roll: :? :o

SmartyBoy

پنج شنبه 05 شهریور 1383, 02:07 صبح

از دستور Shellبه صورت زیر استفاده کن
("مسیر فایل" )Shell

SmartyBoy

پنج شنبه 05 شهریور 1383, 02:10 صبح

از دستور Shellبه صورت زیر استفاده کن
("مسیر فایل" )Shell

AminSobati

پنج شنبه 05 شهریور 1383, 15:06 عصر

دستور Shell برای فایلهای اجرایی قابل استفاده هستش. برای اجرای فایلهایی که مستقلا قابل اجرا نیستند (مثل فایل bmp) باید اول بدست بیارید که در کامپیوتر یوزر چه برنامه ای باز کردن اون فایل رو به عهده داره:

Private Declare Function FindExecutable Lib "shell32.dll" Alias "FindExecutableA" _
(ByVal lpFile As String, ByVal lpDirectory As String, ByVal lpResult As _
String) As Long

Private Function FindExe1(FileName As String) As String
Dim Dummy As String
Dim BrowserExec As String * 255
Dim RetVal As Long
BrowserExec = Space(255)
RetVal = FindExecutable(FileName, Dummy, BrowserExec)
BrowserExec = Trim$(BrowserExec)
If Trim(FileName) <> "" Then
If RetVal <= 32 Or IsEmpty(BrowserExec) Then ' Error
FindExe1 = ""
Else
FindExe1 = Trim(BrowserExec)
End If
Else
FindExe1 = ""
End If
End Function

Private Sub Form_Load()
MsgBox FindExe1("C:\WINNT\Greenstone.bmp")
End Sub

در اینجا شما نیاز دارید تا آدرس فایل مورد نظر (که به عنوان مثال در اینجا یک فایل bmp هستش) رو به FindExe1 ارسال کنید، و مسیر فایل اجرایی رو به عنوان خروجی دریافت کنین. الان میتونین با داشتن آدرس فایل اجرایی و فایل bmp، براحتی shell انجام بدین.
ضمنا اگر فایل Power Point دارید، لازمه تا برنامه ای که قابلیت نمایش اینگونه فایلها رو داره حتما روی کامپیوتر یوزر نصب باشه.
موفق باشید..
امین ثباتی MCSD