Windows Rechtsklickmenü

Croasider · 3. Oktober 2010, 14:20

Hallo @ all

Wie kann ich mein Programm in das Windows Rechtsklickmenü einfügen? Ich möchte zum Beispiel, wenn man auf eine MP3 Rechsklickt, das dann das Programm gestartet wird und der Pfad der Datei an eine Varible übergeben wird.

Viele Grüße
Croasider

FuFu^^ · 3. Oktober 2010, 14:31

das geht über die windows registry

soll sich dein programm selbst eintragen?

hier is ne etwas abgewandelte funktion aus meinem ffmpeg-windows installer [Release] ffmpeg Windows Installer.NET v1.0 , der eigt nichts anderes tut

VB.NET-Quellcode

Private Function TypInRegSchreiben(ByVal Extension As String)
Dim RawFileType As String
RawFileType = My.Computer.Registry.GetValue("HKEY_CLASSES_ROOT\." & Extension, "", "")
If RawFileType = Nothing Then
MessageBox.Show("Dateityp '*." & Extension & "' nicht im System registriert." & vbNewLine & "Vorgang abgebrochen!")
Return 0
Exit Function
End If
My.Computer.Registry.SetValue("HKEY_CLASSES_ROOT\" & RawFileType & "\shell\___DEIN_PROG_____\", "", "Mit Croasider's Tool öffnen...") '___DEIN_PROG_____ mit Name des Programms ersetzen ; "Mit Croasider's Tool öffnen..." durch die anzuzeigende Message ersetzen
My.Computer.Registry.SetValue("HKEY_CLASSES_ROOT\" & RawFileType & "\shell\___DEIN_PROG_____\command", "", "Hier hin kommt der Pfad zu deinem Tool (zur exe)") 'die zu öffnende Datei wird als Stratparameter übergben, verwende dafür "%1" (platzhater für dateinamen-parameter-übergabe in der windows registry
Return 0
End Function

Croasider · 3. Oktober 2010, 14:44

hey super danke

was ich jetzt aber noch nicht verstanden habe ist wie das jetzt mit dem Pfad geht der in der Variable gespeichert werden soll. Muss ich da irgendwie was ins Form.Load Ereigniss schreiben?

PCUser · 3. Oktober 2010, 14:47

Hi,

das wäre mit Kommandozeilenargumenten zu bewältigen:

Video dazu hier.

Grüße

FuFu^^ · 3. Oktober 2010, 14:52

na dein programm soll soll ja wahrscheinlich die datei öffnen auf die rechts-geklickt wurde... die übergabe erfolgt per parameter.

den musst du beim laden des programms abfangen
(also wär das form-load ereignis nicht schlecht

)

VB.NET-Quellcode

Dim DateiPfad As String
If My.Application.CommandLineArgs.Count > 0 Then
DateiPfad = (My.Application.CommandLineArgs(0)).ToString
End If

man beachte das My.Application.CommandLineArgs(0) ein array ist das bei 0 anfängt -> der erste parameter liegt an der stelle 0

jetzt könnte man in dein programm auch per console eine datei laden. zB

Quellcode

deinproggie.exe NeuerText.txt

EDIT // überholt worden

Croasider · 3. Oktober 2010, 15:08

also nochmal pls: Wenn ich die Funktion aufrufe, wird das Programm in das Windows Kontext Menü eingetragen. Wofür steht dann da das Extension? Die Funktion muss ich jawohl nur einmal aufrufen oder?

Wenn ich mein Programm über das Kontext Menü öffne wird in dem Array My.Application.CommandLineArgs der Dateipfad von der geklickten Datei abgelegt. Ist das soweit richtig?

Meine Funktion habe ich jetzt so umgeschrieben. Muss ich da jetzt noch irgendwo %1 einfügen?

VB.NET-Quellcode

Private Function TypInRegSchreiben(ByVal Extension As String)
Dim RawFileType As String
RawFileType = My.Computer.Registry.GetValue("HKEY_CLASSES_ROOT\." & Extension, "", "")
If RawFileType = Nothing Then
MessageBox.Show("Dateityp '*." & Extension & "' nicht im System registriert." & vbNewLine & "Vorgang abgebrochen!")
Return 0
Exit Function
End If
My.Computer.Registry.SetValue("HKEY_CLASSES_ROOT\" & RawFileType & "\shell\ID3-Tag Editor\", "", "ID3-Tag anpassen")
My.Computer.Registry.SetValue("HKEY_CLASSES_ROOT\" & RawFileType & "\shell\ID3-Tag Editor\command", "", "D:\Programme\ID3-Tag Editor\ID3_Tag.exe")
Return 0
End Function

FuFu^^ · 3. Oktober 2010, 15:23

wird das Programm in das Windows Kontext Menü eingetragen

Ich glaube dafür werden admin-rechte benötigt

Wofür steht dann da das Extension

das ist der begriff für dateierweiterung. da du offensichtlich MP3-tags verändern möchtest rufst du die funktion folgendermaßen auf:

VB.NET-Quellcode

TypInRegSchreiben("MP3")

Wenn ich mein Programm über das Kontext Menü öffne wird in dem Array My.Application.CommandLineArgs der Dateipfad von der geklickten Datei abgelegt. Ist das soweit richtig?

Nö. Noch wird das Programm ja ohne parameter gestatet! dafür muss erst das %1 hinzugefügt werden:

VB.NET-Quellcode

Private Function TypInRegSchreiben(ByVal Extension As String)
Dim RawFileType As String
RawFileType = My.Computer.Registry.GetValue("HKEY_CLASSES_ROOT\." & Extension, "", "")
If RawFileType = Nothing Then
MessageBox.Show("Dateityp '*." & Extension & "' nicht im System registriert." & vbNewLine & "Vorgang abgebrochen!")
Return 0
Exit Function
End If
My.Computer.Registry.SetValue("HKEY_CLASSES_ROOT\" & RawFileType & "\shell\ID3-Tag Editor\", "", "ID3-Tag anpassen")
My.Computer.Registry.SetValue("HKEY_CLASSES_ROOT\" & RawFileType & "\shell\ID3-Tag Editor\command", "", "D:\Programme\ID3-Tag Editor\ID3_Tag.exe " & Chr(34) & "%1" & Chr(34))
Return 0
End Function

Tipp: arbeite lieber mit relative pfaden... D:\ is nich so günstig falls du win neuinstallierst oder das programm veröffentlichst

Croasider · 3. Oktober 2010, 15:29

Ich habe zwar Admin Rechte und im Form.Load habe ich jetzt

TypInRegSchreiben("MP3")

aber trotzdem wird es nicht im Kontextmenü für MP3 Dateien angezeigt... Habe auch die Funktion aktuallisiert - geht trotzdem nich

FuFu^^ · 3. Oktober 2010, 15:33

Versuchs halt mal im einem button

VB.NET-Quellcode

Try
TypInRegSchreiben("MP3")
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try

kommt ein felher?

Croasider · 3. Oktober 2010, 15:39

Also ein Fehler kommt schonmal nicht aber eigetragen wird es immer noch nicht - habe auch gerade mal Neustart gemacht bringt aber auch nichts

FuFu^^ · 3. Oktober 2010, 15:41

welches windows verwendest du?

könntest du bitte den obengenannten ffmpeg-windows-installer ( [Release] ffmpeg Windows Installer.NET v1.0 ) testen? der basiert, wie gesagt, auf der selben funktion. wenn der auch bei dir nicht funzt (bei freunden von mir ging's) hab ich auch ein problem

Croasider · 3. Oktober 2010, 15:48

also habe in deinem Prog wmv angeklickt => übernommen aber bei den Dateien wird nichts angezeigt...

Benutze Windows 7 - 64 Bit. Vielleicht liegts daran?

FuFu^^ · 3. Oktober 2010, 15:51

mhm

das is jetzt nicht so gut :\

das tool wurde ebenfalls unter windows 7 x64 erstellt und bei mir läufts problemlos.

schau mal in der registry nach, ob da iwelche änderungen vorgenommen werden. wenn nicht versuch die mal manuell zu setzen.

Croasider · 3. Oktober 2010, 16:01

also das sieht so bei mir aus:

habe mir jetzt mal RawFileType ausgeben lassen. Da steht folgendes drin:

Winamp.File.Mp3

FuFu^^ · 3. Oktober 2010, 16:04

das is doch schonmal nicht schlecht!

scroll mal in diesem schlüssel bis Winamp.File.Mp3 runter und zeig welche schlüssel und werte der enthält! (in screnn bitte möglichste viele unter-schlüssel offen zeigen; besonderer wert liegt auf "command" & "shell")

Croasider · 3. Oktober 2010, 16:10

Ja is glaube echt schon nich schlecht

aber angezeigt wirds immer noch nich XD

FuFu^^ · 3. Oktober 2010, 16:19

enthält "ID3-Tag-Editor" einen standart wert? wenn ja liegt's an deinem windoof.

es scheint eine software oder einstellung aktiv zu sein, die das anzigen von benutzerdefinierten kontextmenüerweiterungen unterdrückt...

Croasider · 3. Oktober 2010, 16:25

in ID3-Tag-Editor is ein Wert:

(Standart) REG_SZ "ID3-Tag anpassen"

FuFu^^ · 3. Oktober 2010, 16:45

tja dann weißte bescheid

bei mir funzt's in dieser konfiguration. poste bitte nochmal die funktion auf dem letzten stand. dann würde ich's bei mir testen obwohl ich mir das ergebnis schon denken kann

Croasider · 3. Oktober 2010, 16:59

VB.NET-Quellcode

Private Function TypInRegSchreiben(ByVal Extension As String)
Dim RawFileType As String
RawFileType = My.Computer.Registry.GetValue("HKEY_CLASSES_ROOT\." & Extension, "", "")
If RawFileType = Nothing Then
MessageBox.Show("Dateityp '*." & Extension & "' nicht im System registriert." & vbNewLine & "Vorgang abgebrochen!")
Return 0
Exit Function
End If
My.Computer.Registry.SetValue("HKEY_CLASSES_ROOT\" & RawFileType & "\shell\ID3-Tag Editor\", "", "ID3-Tag anpassen")
My.Computer.Registry.SetValue("HKEY_CLASSES_ROOT\" & RawFileType & "\shell\ID3-Tag Editor\command", "", "D:\Programme\ID3-Tag Editor\ID3_Tag.exe " & Chr(34) & "%1" & Chr(34))
Return 0
End Function

habs gerade nochmal an 2 anderen PC getestet - geht auch nich

Hab auch gerade den Tip gefunden und ausprobiert... geht auch nich...

Windows Rechtsklickmenü

Windows Rechtsklickmenü

VB.NET-Quellcode

VB.NET-Quellcode

Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Ähnliche Themen

2 Benutzer haben hier geschrieben