Open with...
2 отговора
111 прегледа
Open with...
Zdraveite VB-ta :)
Interesuva me, moje li programata koqto sum napravil - textov editor, da se napravi kato chukna na file-a ot win. explorera da se otvarq v moita programa!!!
Kakto kato install MS Office *.doc ti se otvarq v Word
Notepad *.txt
Taka i tova da stane mnoo mislih i se neizmislqm!!!
Interesuva me, moje li programata koqto sum napravil - textov editor, da se napravi kato chukna na file-a ot win. explorera da se otvarq v moita programa!!!
Kakto kato install MS Office *.doc ti se otvarq v Word
Notepad *.txt
Taka i tova da stane mnoo mislih i se neizmislqm!!!
в отговор на fleXmaster
#2
Re: Open with...
Гоогле сигурно знае най-добре.
Много инсталатори го правят.
Иначе вземаш програма за следене на промените в registry, напр. RegSnap
Правиш снимка, асоциираш файла ръчно (Properties >> Opens with:) , правиш втора снимка и гледаш какво е променено.
RegSnap и всички подобни могат направо да ти генерират .reg файл с необходимите промени.
Много инсталатори го правят.
Иначе вземаш програма за следене на промените в registry, напр. RegSnap
Правиш снимка, асоциираш файла ръчно (Properties >> Opens with:) , правиш втора снимка и гледаш какво е променено.
RegSnap и всички подобни могат направо да ти генерират .reg файл с необходимите промени.
в отговор на fleXmaster
#3
Re: Open with...
Незнам точно такъв код но знам как да отвориш диалого Open With...
Ето ти кода и се надявам да ти свърши работа:
Public Sub ShowOpenWithDialog(ByVal sFile As String)
On Error Resume Next
Shell "rundll32.exe shell32.dll,OpenAs_RunDLL " & sFile
End Sub
Westside and WestCoast Style™
Ето ти кода и се надявам да ти свърши работа:
Public Sub ShowOpenWithDialog(ByVal sFile As String)
On Error Resume Next
Shell "rundll32.exe shell32.dll,OpenAs_RunDLL " & sFile
End Sub
Westside and WestCoast Style™