Programm - nur eine Instanz erlauben

[bobobo]

in der tat
(hatte da wohl irgendwo irgendeinen knoten)

[Mr.Vain]

Hab's hinbekommen - und es läuft

Hier mal der Code - falls ich irgendetwas "besser" programmieren kann, dann bitte ich um kurze Antwort. Bin noch Anfänger und bin um jeden Tipp dankbar

Code: Alles auswählen

ProgramID = RunProgram("\\server\setup\tools\PsTools\pslist.exe", "-t", GetPathPart(ProgramFilename()), #PB_Program_Open | #PB_Program_Read | #PB_Program_Hide)

App$ = ProgramParameter()


;App$ = "C:\Winnt\system32\mspaint.exe"

Name$ = StringField(GetFilePart(App$), 1, ".")

Repeat
   Result$ = ReadProgramString(ProgramID)
   Position = FindString(Result$, Name$, 1)

Until AvailableProgramOutput(ProgramID) = 0



If Position > 0
MessageRequester("Info", "Programm schon gestartet")
EndIf



If Position = 0
    RunProgram(App$, "", "" )
    
EndIf

CloseProgram(ProgramID)