/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
filtyper
Fra : @sbjørn


Dato : 01-09-01 11:48

Hvordann får man windows til kalde ens program når brugeren åbner en bestemt
fil

f.eks.
brugeren åbner etelerandet.txt og windows kalder notepad



 
 
Bjarke Walling Peter~ (01-09-2001)
Kommentar
Fra : Bjarke Walling Peter~


Dato : 01-09-01 17:42

@sbjørn skrev:
> Hvordann får man windows til kalde ens program når brugeren åbner en
bestemt
> fil

Her er et eksempel, der associerer alle .fil-filer med dit program. Men det
du nok gerne vil have er at dit program selv kan gøre det... og så er det
noget med noget registreringsdatabase-noget... (som jeg ikke kan huske
udenad, men jeg har koden et eller andet sted):
Åbn en mappe > Gå op i menuen Vis > Klik Mappeindstillinger... > Fanen
Filtyper > Klik Ny type... > Beskrivelse af type = "Min filtype", Associeret
filnavn = "fil" > Klik Ny... > Handling = "&Open", Program =
"C:\Sti\m.m.\program.exe" > Klik Ok > Klik Luk > Klik Luk.
Og tada... nu skulle alle filer.fil åbne dit program!

Foresten findes Mappeindstillinger under menuen Funktioner hvis det ikke
findes under Vis.

- Bjarke Walling Petersen



@sbjørn (02-09-2001)
Kommentar
Fra : @sbjørn


Dato : 02-09-01 09:17


"Bjarke Walling Petersen" <bwp@bwp.dk> wrote in message
news:9mr335$28cd$1@news.cybercity.dk...
> @sbjørn skrev:
> > Hvordann får man windows til kalde ens program når brugeren åbner en
> bestemt
> > fil
>
> Her er et eksempel, der associerer alle .fil-filer med dit program. Men
det
> du nok gerne vil have er at dit program selv kan gøre det... og så er det
> noget med noget registreringsdatabase-noget... (som jeg ikke kan huske
> udenad, men jeg har koden et eller andet sted):
> Åbn en mappe > Gå op i menuen Vis > Klik Mappeindstillinger... > Fanen
> Filtyper > Klik Ny type... > Beskrivelse af type = "Min filtype",
Associeret
> filnavn = "fil" > Klik Ny... > Handling = "&Open", Program =
> "C:\Sti\m.m.\program.exe" > Klik Ok > Klik Luk > Klik Luk.
> Og tada... nu skulle alle filer.fil åbne dit program!
>
> Foresten findes Mappeindstillinger under menuen Funktioner hvis det ikke
> findes under Vis.
>
> - Bjarke Walling Petersen

Tak for forsøget men du har ret det er dumt at brugeren skal dette så hvis
du finder kode vil jeg meget gerne se den

@sbjørn



Jan-Owe Fornes (02-09-2001)
Kommentar
Fra : Jan-Owe Fornes


Dato : 02-09-01 20:14

"@sbjørn"
> > > Hvordann får man windows til kalde ens program når brugeren åbner en
> > bestemt
> > > fil


Hadde dette liggende på disken..
Fant det på www.vb2themax.com
Muligens det kan hjelpe deg videre...


--------------------------------------
snip -----------------------------------
Private Declare Sub SHChangeNotify Lib "shell32.dll" (ByVal wEventId As
Long, ByVal uFlags As Long, ByVal dwItem1 As Long, ByVal dwItem2 As Long)
Const SHCNE_ASSOCCHANGED = &H8000000
Const SHCNF_IDLIST = 0

' Create the new file association
'
' Extension is the extension to be registered (eg ".cad"
' ClassName is the name of the associated class (eg "caddoc")
' Description is the textual description (eg "CAD Document"
' ExeProgram is the app that manages that extension (eg "c:\Cad\MyCad.exe")
'
' NOTE: requires CreateRegistryKey and SetRegistryValue functions
' (these routines can be downloaded from vb2themax's Code Bank

Sub CreateFileAssociation(ByVal Extension As String, ByVal ClassName As
String, ByVal Description As String, ByVal ExeProgram As String)
Const HKEY_CLASSES_ROOT = &H80000000

' ensure that there is a leading dot
If Left(Extension, 1) <> "." Then
Extension = "." & Extension
End If

' create a new registry key under HKEY_CLASSES_ROOT
CreateRegistryKey HKEY_CLASSES_ROOT, Extension
' create a value for this key that contains the classname
SetRegistryValue HKEY_CLASSES_ROOT, Extension, "", ClassName
' create a new key for the Class name
CreateRegistryKey HKEY_CLASSES_ROOT, ClassName & "\Shell\Open\Command"
' set its value to the command line
SetRegistryValue HKEY_CLASSES_ROOT, _
ClassName & "\Shell\Open\Command", "", ExeProgram & " ""%1"""

' notify Windows that file associations have changed
SHChangeNotify SHCNE_ASSOCCHANGED, SHCNF_IDLIST, 0, 0
End Sub

--------------------------------------
snip -----------------------------------


- jOWE



Jan-Owe Fornes (02-09-2001)
Kommentar
Fra : Jan-Owe Fornes


Dato : 02-09-01 20:18


Beklager rotete posting.
Glemte linjelengden - håper det var leselig.


- jOWE



Søg
Reklame
Statistik
Spørgsmål : 177551
Tips : 31968
Nyheder : 719565
Indlæg : 6408825
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste