Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Problem mit der Zeit
Autor: uwe grunau
Datum: 15.01.03 12:33
hallo, Füge in dein Formular ein: Command1, Lable1,Text1 dann den nachfolgenden Code. ich hoffe das es dich weiter bringt. uwe Option Explicit Private Declare Function WaitForSingleObject Lib "kernel32" _ (ByVal hHandle As Long, ByVal dwMilliseconds As Long) _ As Long Private Declare Function CloseHandle Lib "kernel32" _ (ByVal hObject As Long) As Long Private Declare Function OpenProcess Lib "kernel32" (ByVal _ dwDesiredAccess As Long, ByVal bInheritHandle As Long, _ ByVal dwProcessId As Long) As Long Private Declare Function TerminateProcess Lib "kernel32" (ByVal _ hProcess As Long, ByVal uExitCode As Long) As Long Const INFINITE = -1& Const SYNCHRONIZE = &H100000 Private Sub Form_Load() Text1.Text = 1000 End Sub Private Sub Command1_Click() Dim Task&, Handle&, Result& Task = Shell("notepad.exe", vbNormalFocus) Handle = OpenProcess(SYNCHRONIZE, False, Task) Result = WaitForSingleObject(Handle, CLng(Text1.Text)) AppActivate Me.Caption If Result Then Result = TerminateProcess(Handle, 0) Result = CloseHandle(Handle) MsgBox "Durch das Programm geschlossen" Else MsgBox "Durch den Anwender geschlossen" End If End Sub

Problem mit der Zeit	73	Mr. NoName	15.01.03 10:54
Re: Problem mit der Zeit	45	uwe grunau	15.01.03 12:33

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