شناخته شدن فایل ایجاد شده با ویژوال در ویندوز

[samiasoft]

سلام دوستان

اگر دقت کنین برای مثال فایل PSD بدون اینکه فوتوشاپ نصب نباشه قابل خوندن نیست ولی به محض اینکه فوتوشاپ نصب میشه این فایل پی اس دی مستقیما توسط فوتوشاپ شناخته میشه و وقتی روی ان کلیک میکنیم بدون اینکه OPEN WITHE بخواد مستقیما با فوتوشاپ باز میشه.

خب سوال منم این است که برنامه من یک فایل با پسوند خاصی رو ذخیره میکنه
چه عملی انجام دهم تا این فایل همانند مثالی که عرض کردم وقتی روی ان کلیک میکنم توسط برنامه ام اجرا شود بدون این که پنجره OPEN WITE باز شود؟

و سوال دومم هم در ادامه این موضوع هست که به این فایلم چگونه ایکن خاصی قرار بدم؟

[m.4.r.m]

شما اول باید پسوند فایل رو تشخیص بدین و سپس شرط بزارین اگر برنامه با این پسوند بود توسط فلان برنامه اجرا بشه

Function GetExtName(ScanString As String) As String
Dim intPos As String
Dim intPosSave As String

If InStr(ScanString, ".") = 0 Then
GetExtName = ""
Exit Function
End If

intPos = 1
Do
intPos = InStr(intPos, ScanString, ".")
If intPos = 0 Then
Exit Do
Else
intPos = intPos + 1
intPosSave = intPos - 1
End If
Loop

GetExtName = Trim$(Mid$(ScanString, intPosSave + 1))

End Function

Private Sub Command1_Click()
CommonDialog1.ShowOpen
Text1.Text = GetExtName(CommonDialog1.FileName)
If Text1.Text = "flv" Then
Msgbox ".Flv"
End If
End Sub

[vbhamed]

سلام
اين راهش :

[samiasoft]

سلام
اين راهش :

ایکن این فایل خاصی که برنامه ام میسازه رو چگونه در همین سورس قرار بدم تا ایکن را در مسیر مشخص بخونه و شکل فایل خاصم بشه

[vbhamed]

سلام
براي فايل Exe برنامه خودتون آيكون بزاريد، بعد در انتهاي فراخواني تابع، اينقدر ويرگول ( , ) بزنيد تا به آخرين پارامتر برسيد و مقدار اون رو 0 بدين
اينطوري اولين آيكون فايل Exe شما به اون فايلها اختصاص داده ميشه و مي‌تونيد آيكونهاي بعدي برنامتون رو هم انتخاب كنيد
براي گذاشتن چند تا آيكون براي فايل Exe خودتون از ريسورس ها استفاده كنيد