Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Datei ausführen
Autor: Master
Datum: 02.05.02 18:02
Sollte die 1. Möglichkeit nicht funktionieren, probier mal diese: Option Explicit Private Declare Function CreateProcess Lib "kernel32" Alias "CreateProcessA" (ByVal lpApplicationName As Long, ByVal lpCommandLine As String, ByVal lpProcessAttributes As Long, ByVal lpThreadAttributes As Long, ByVal bInheritHandles As Long, ByVal dwCreationFlags As Long, ByVal lpEnvironment As Long, ByVal lpCurrentDirectory As Long, lpStartupInfo As STARTUPINFO, lpProcessInformation As PROCESS_INFORMATION) As Long Private Type STARTUPINFO cb As Long lpReserved As String lpDesktop As String lpTitle As String dwX As Long dwY As Long dwXSize As Long dwYSize As Long dwXCountChars As Long dwYCountChars As Long dwFillAttribute As Long dwFlags As Long wShowWindow As Integer cbReserved2 As Integer lpReserved2 As Byte hStdInput As Long hStdOutput As Long hStdError As Long End Type Private Type PROCESS_INFORMATION hProcess As Long hThread As Long dwProcessId As Long dwThreadId As Long End Type Public Function ShellGetHandle(ByVal sDateiname As String, lHandle As Long) As Boolean Dim udtProcessInfo As PROCESS_INFORMATION Dim udtStartupInfo As STARTUPINFO Dim lSuccess As Long udtStartupInfo.cb = Len(udtStartupInfo) lSuccess = CreateProcess(0&, sDateiname, 0&, 0&, 1&, &H20, 0&, 0&, udtStartupInfo, udtProcessInfo) If lSuccess = 1 Then lHandle = udtProcessInfo.hProcess ShellGetHandle = False Else ShellGetHandle = True End If End Function Private Sub Command_Click() Dim lHandle As Long Dim bError As Boolean bError = ShellGetHandle("notepad.exe", lHandle) If bError Then MsgBox "Fehler beim Starten", vbCritical, "Fehler" End If End Sub

Datei ausführen	66	[young]mann	02.05.02 16:30
Re: Datei ausführen	48	Master	02.05.02 17:57
Re: Datei ausführen	50	Master	02.05.02 18:02
Re: Datei ausführen	42	[young]mann	03.05.02 13:22
Re: Datei ausführen	37	Master	09.05.02 08:40
Re: Datei ausführen	30	[young]mann	09.05.02 12:35

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