exe nur einmal aufrufen

[sunflower84]

Hallo

Ich habe einen Timer programmiert. Wie kann ich es machen das dieser Timer nur einmal aufgerufen werden kann?
Also ich starte die Timer.exe. Solange diese läuft darf die exe kein 2. mal aufgerufen werden.
Es soll einfach nur gesperrt werden oder eine Msg Box die mir sagt das der Timer schon läuft.
Hat da jemand eine Idee?

Lg
Sunflower84

 

[DevHB]

Hi,

'Module1
Sub Main
      
   If (App.PrevInstance) Then
        Call VBA.Interaction.AppActivate(App.EXEName)
   Else
        ' noch nicht gestartet
   End If
End Sub

Ungetestet, sollte aber funktionieren. (StartObjekt muss "Sub Main" sein, kann sein, dass es auch im Form_Load o.ä. geht)

 

[sunflower84]

Hab das so in mein Modul geschrieben:

Sub Main()
      
   If (App.PrevInstance) Then
        Call VBA.Interaction.AppActivate(App.Timer.exe)
   Else
        MsgBox "Fehler"
   End If
End Sub

Hab es auch schon in eine Form geschrieben geht aber leider auch nicht

Lg
Sunflower84

 

[DevHB]

Hi,

naja, Du schmeißt den Fehler ja auch raus, wenn das Programm noch nicht geladen ist!
Zudem frage ich mich, was das ist:

(App.Timer.exe)

?


App.ExeName aktiviert die aktuelle Applikation unter ihrem ExeNamen,
an der Stelle muss Dein Fehler kommen.

Das ist eine Eigenschaft des App - Objektes und nix ein von mir ausgedachtes,
um es allgemein zu halten.

Hint:
Es gibt mit Druck auf "F2" in der IDE einen Objektbrowser.

 

[wincnc]

Hallo, schau mal hier nach:
Mehrfachstart der eigenen Anwendung verhindern

Du musst noch darauf achten, dass in den Projekt-Eigenschaften als Startobjekt Sub Main eingetragen ist.