Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Datei +Erweiterung starten
Autor: [young]mann
Datum: 10.05.02 10:16
Hallo alle! ich hab ein Prob. ich versuche verzweifelt ein Programm bzw. eine Datei +Erweiterung zu starten. Ich hab bisher das verwendet: Option Explicit Private Declare Function ShellExecute Lib "shell32.dll" Alias _ "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation _ As String, ByVal lpFile As String, ByVal lpParameters _ As String, ByVal lpDirectory As String, ByVal nShowCmd _ As Long) As Long Private Sub Command1_Click() Dim befehl As String Dim pass As String If Text1.Text = "" Or Text2.Text = "" Or Text5.Text = "" Or Text6.Text = "" Then MsgBox "Fehlende Werte!" Exit Sub End If If Text3.Text = "" Then pass = "" Else pass = " +password " & Text3.Text End If befehl = "Game.exe" & " +connect " & Text5.Text & ":" & _ Text6.Text & " +netplayername " & Text2.Text & pass Call ShellExecute(Me.hwnd, "Open", befehl, "", Text1.Text, 1) End Sub Doch so funkt. es nicht nur so: Option Explicit Private Declare Function ShellExecute Lib "shell32.dll" Alias _ "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation _ As String, ByVal lpFile As String, ByVal lpParameters _ As String, ByVal lpDirectory As String, ByVal nShowCmd _ As Long) As Long Private Sub Command1_Click() Call ShellExecute(Me.hwnd, "Open", "Game.exe", "", Text1.Text, 1) End Sub Nun meine Frage: Wie kann ich das Prog. "Game.exe" mit erweiterung starten? mfg [young]mann

Datei +Erweiterung starten	49	[young]mann	10.05.02 10:16
Fortgeschritten?	29	[young]mann	10.05.02 10:21
Lösung	36	[young]mann	10.05.02 10:26

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

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen