باز شدن فایل با برنامه خاص

خیلی وقته که یه سوال مغزم رو می خوره !!!
خواهش می کنم جوا بدید !!
آهای حرفه ای ها!!

ببیننید سوال اینه که :
من یه برنامه نوشتم که متن رو با یه فرمت خاصی ذخیره می کنه! خوب من الان می خوام که وقتی روی اون فایل متنی که برنامه ی من ساخته دابل کلیک کمی کنم برنامه ی من باز بشه و اون فایل رو نشون بده!!!

لطفا سریعتر !! چون خیلی واجبه!

"کمی کنم " نه می کنم!!
ببخشید!

دوست عزیز روی فایل متنت کلیک راست کن و open with v رو انتخاب کن گزینه choice program رو بزن و بعد برو برنامه ایی که نوشتی رو(فایل exe) معرفی کن از اون به بعد اگر روی فایلت دابل کلیک کنی فایلت با نرم افزار خودت باز میشه

به نظر منم بهتره که همون کاری رو بکنی که آقای [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] گفته رو انجام بدی ...................

ببخشید ها مسئله ی من یه جای دیگس
اینا رو که شما گفتین خودم هم بلدم!!!!
ولی مشکل اینه که با این کار برنامه من اجرا می شه ولی فایل رو نمی خونه!! مسئله ی من تو قسمت برنامه نویسیشه!!!!

ببخشید ها اینارو من خودم هم بلدم!!
با این کار برنامه ی من اجرا می شه ولی فایل متنی رو نمی خونه!!
من موندم که چی کار کنم!!!!
کمکمکمکمکممکم کنید!!!!!!!!!!!!!!!!!!!!!!!!!!!

کد:

---

'This example will show you how to launch a file with his associate program.
'It will do the same action that occur when you Double Click on the file.
'For Example, if when you double click on mp3 file it launch with Winamp,
'This code will do the same.
'Add a module to your project (In the menu choose Project -> Add Module, Then click Open)
'Insert this code to the module :

#If Win32 Then
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
Declare Function GetDesktopWindow Lib "user32" () As Long
#Else
Declare Function ShellExecute Lib "SHELL" (ByVal hwnd%, _
ByVal lpszOp$, ByVal lpszFile$, ByVal lpszParams$, _
ByVal lpszDir$, ByVal fsShowCmd%) As Integer
Declare Function GetDesktopWindow Lib "USER" () As Integer
#End If
Public Const SW_SHOWNORMAL = 1

'Insert this code to your form:

Function StartDoc(DocName As String) As Long
Dim Scr_hDC As Long
Scr_hDC = GetDesktopWindow()
StartDoc = ShellExecute(Scr_hDC, "Open", DocName, "", "C:\", SW_SHOWNORMAL)
End Function

Private Sub Form_Load()
Dim r As Long
'Replace the c:\mp3\song.mp3 with the file you want to launch
r = StartDoc("c:\mp3\song.mp3")
End Sub

---

کد:

---

'Replace A picture in drive E Named "King.jpg"
Private Sub Command1_Click()
    Shell "Mspaint E:\King.jpg"
End Sub

---

این هم یک نمونه ساده برای شما

بابا ایولا
دستت درد نکنه
حالا حالا ها مدیونتیم
واقعا راست گفتن که اگه نباشی جات خالی میمونه!!!

عزيز دلم اين كه مي خواي فقط با رجيسرتي امكان داره !
-----------------
اگه هزينه مي كني بسم الله من هستم ....

سلام.
جناب black_storm این جا جای تبلیغ شرکت نیست. بلدی جواب بده. بلد نیستی پست بی محتوا نده لطفا.

اگه کدهای داده شده مشکلت رو حل نکرده کدهای رجیستری رو هم برات بذارم

اگه اونا رو هم بزاری ممنونمی شم


بزام ممنون از لطفتون