| |
Visual-Basic EinsteigerVerknüpfung + Parameter | | | Autor: Marco | Datum: 08.09.01 15:18 |
| Hallo,
ich kriege es nicht hin, dass mein Programm Verknüpfungen mit Parameter erstellt.
Entweder es setzt die gesammte Verknüpfung in Anführungsstriche oder die Parameter fehlen (wenn ich es über Ascii-Code versuche)...
Die erstellte Verknüpfung sollte so aussehen: "C:test.exe" -bla bla
Wäre für einen Tipp sehr dankbar.
Marco | |
Re: Verknüpfung + Parameter | | | Autor: Dieter (Moderator) | Datum: 08.09.01 16:21 |
| Hi Marco,
was genau willst Du denn machen?
Eine Verknüpfung auf dem Desktop?
Cu
Dieter | |
Re: Verknüpfung + Parameter | | | Autor: Marco | Datum: 08.09.01 18:21 |
| Hi Dieter,
das soll der User nachher durch ein CommonDialog Feld bestimmen können...
notfalls ging es aber auch, wenn er die Verknüpfung auf dem Desktop erstellt.
Bis dann
Marco | |
Re: Verknüpfung + Parameter | | | Autor: Dieter (Moderator) | Datum: 08.09.01 18:25 |
| Hi Marco,
wie sieht Dein bisheriger Code aus?
Cu
Dieter | |
Re: Verknüpfung + Parameter | | | Autor: Marco | Datum: 08.09.01 20:46 |
| Hi Dieter,
so, wie es jetzt ist, sieht die Verknüpfung wie folgt aus: "C:blablablatest.exe"
zunächst die Function...
Public Function CreateLink(Datei As String, LinkName As String)
Dim cShellLink As ShellLinkA
Dim cPersistFile As IPersistFile
Set cShellLink = New ShellLinkA
Set cPersistFile = cShellLink
cShellLink.SetPath Datei
cPersistFile.Save StrConv(LinkName, vbUnicode), 0
Set cPersistFile = Nothing
Set cShellLink = Nothing
End Function
dann über nen Command Button die Function aufrufen...
Private Sub Command1_Click()
txtShortcut.Text = txtPath.Text & Chr(0) & txtParameter.Text
CreateLink txtShortcut.Text, "C:test" & ".lnk"
End Sub
Dann hab ich noch auf die TLB-Datei verwiesen!
bis dann
Marco
P.S: Das mit dem CommonDialog hab ich noch nicht gemacht, da mir das für Testzwecke immer zu umständlich ist. | |
Re: Verknüpfung + Parameter | | | Autor: Marco | Datum: 08.09.01 20:46 |
| Hi Dieter,
so, wie es jetzt ist, sieht die Verknüpfung wie folgt aus: "C:blablablatest.exe"
zunächst die Function...
Public Function CreateLink(Datei As String, LinkName As String)
Dim cShellLink As ShellLinkA
Dim cPersistFile As IPersistFile
Set cShellLink = New ShellLinkA
Set cPersistFile = cShellLink
cShellLink.SetPath Datei
cPersistFile.Save StrConv(LinkName, vbUnicode), 0
Set cPersistFile = Nothing
Set cShellLink = Nothing
End Function
dann über nen Command Button die Function aufrufen...
Private Sub Command1_Click()
txtShortcut.Text = txtPath.Text & Chr(0) & txtParameter.Text
CreateLink txtShortcut.Text, "C:test" & ".lnk"
End Sub
Dann hab ich noch auf die TLB-Datei verwiesen!
bis dann
Marco
P.S: Das mit dem CommonDialog hab ich noch nicht gemacht, da mir das für Testzwecke immer zu umständlich ist. | |
Re: Verknüpfung + Parameter | | | Autor: Marco | Datum: 10.09.01 16:49 |
| Dieter??
bitte hilf mir - ich komme nicht weiter...
Marco | |
Hier die Lösung... | | | Autor: Dieter (Moderator) | Datum: 10.09.01 21:56 |
| Hi Marco,
sorry - hat leider etwas gedauert - aber ich bin nicht eher dazu gekommen.
Dafür aber mit entsprechender Lösung
Die Parameterübergabe muss separat erfolgen und nicht in Verbindung mit der zu startenden Anwendung. Ich habe die CreateLink-Prozedur mal entsprechend modifiziert:
<code><font color=green>' Link erstellen</font>
Public Function CreateLink(ByVal Datei As String, _
ByVal Parameters As String, _
ByVal LinkName As String)
Dim cShellLink As ShellLinkA
Dim cPersistFile As IPersistFile
Set cShellLink = New ShellLinkA
Set cPersistFile = cShellLink
<font color=green>' Anwendung</font>
cShellLink.SetPath Datei
<font color=green>' Parameter</font>
cShellLink.SetArguments Parameter
<font color=green>' Link speichern</font>
cPersistFile.Save StrConv(LinkName, vbUnicode), 0
Set cPersistFile = Nothing
Set cShellLink = Nothing
End Function</code> Und hier der Aufruf:
<code>Private Sub Command1_Click()
CreateLink txtPath.Text, txtParameter.Text, _
"C: est" & ".lnk"
End Sub</code> Cu
Dieter | |
Re: Hier die Lösung... | | | Autor: Marco | Datum: 11.09.01 16:26 |
| Hi Dieter,
danke für die Lösung...
sie klappt bei mir irgendwie bis jetzt noch nicht.
Die Verknüpfung sieht genau so aus, wie vorher - nur ein Link zu der Datei und von den Paramtern keine Spur
Bis dann
Marco | |
Sollte aber gehen | | | Autor: Dieter (Moderator) | Datum: 11.09.01 19:14 |
| Hi Marco,
also ich habe den Code bei mir ausprobiert - und die Verknüpfung wurde ordnungsgemäss erstellt - ebenso die Parameterangabe ist berücksichtigt.
Vergleich' doch nochmals den Code aus meinem vorigen Beitrag mit dem Deinigen oder poste mir nochmals genau den Code, den Du verwendest.
Cu
Dieter | |
Re: Sollte aber gehen | | | Autor: Marco | Datum: 11.09.01 20:41 |
| Hi Dieter,
ich habe den gesamten Code auch nochmal so eingegeben wie du ihn dort oben hingeschrieben hast... aber das Ergebnis ist so geblieben
Wenn ich das in nem anderen Beitrag richtig gelesen habe, dann benutzt du genau wie ich vb 6.0 (+neustem Service Pack), sowie Win2k - also sollte es daran wohl nicht liegen.
Könntest du mir vielleicht mal dein Prog + Code schicken??
Marco | |
| Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
Einloggen | Neu registrieren |
|
|
vb@rchiv CD Vol.6 vb@rchiv Vol.6
Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
Online-Update-Funktion Entwickler-Vollversionen u.v.m.Jetzt zugreifen Tipp des Monats sevGraph (VB/VBA)
Grafische Auswertungen
Präsentieren Sie Ihre Daten mit wenig Aufwand in grafischer Form. sevGraph unterstützt hierbei Balken-, Linien- und Stapel-Diagramme (Stacked Bars), sowie 2D- und 3D-Tortendiagramme und arbeitet vollständig datenbankunabhängig! Weitere Infos
|
|
|
Copyright ©2000-2024 vb@rchiv Dieter Otter Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|