Re: Programm - nur eine Instanz erlauben
Verfasst: 16.11.2009 18:21
in der tat 
(hatte da wohl irgendwo irgendeinen knoten)
(hatte da wohl irgendwo irgendeinen knoten)
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)