Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Programm nur einmal starten
Autor: the
Datum: 08.08.03 08:19
Hallo Genius, ich habe es wie folgt gelöst. Imports System.Diagnostics Module Modulname Public Sub Main() Dim ProgId As Integer = 0 Dim Interval As Integer = 0 Dim StartZeit As DateTime = Now Dim Prog As Process() = Process.GetProcessesByName Process.GetCurrentProcess.ProcessName) Try If Process.GetProcessesByName(Process.GetCurrentProcess.ProcessName).Length > 1 Then For i As Integer = Prog.GetLowerBound(0) To Prog.GetUpperBound(0) If DateDiff(DateInterval.Second, Prog(i).StartTime, StartZeit) > Interval Then ProgId = Prog(i).Id Interval = DateDiff(DateInterval.Second, Prog(i).StartTime, StartZeit) End If Next AppActivate(ProgId) Exit Try End If Catch ex As System.Exception End Try End Sub End Module m.f.G. Thomas Eibel

Programm nur einmal starten	274	Genius	07.08.03 16:11
Re: Programm nur einmal starten	243	the	08.08.03 08:19
Re: Programm nur einmal starten	212	the	08.08.03 08:26
Re: Programm nur einmal starten	192	Genius	12.08.03 07:36

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