fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

doppelten Programmstart verhindern, aber richtig..

Uploader:	ytwinky
Datum/Zeit:	13.10.2007 19:37:25

'So läuft es auf alle Fälle unter FB0.181f

'Ohne zusätzliche Compilerschalter

Var LockMode=0, DateiNr=FreeFile

Open "lock" For Binary As #DateiNr

Input #DateiNr, LockMode

If LockMode=0 Then

  PRINT "OK"

  Close #DateiNr

  OPEN "lock" For Output As #DateiNr

    Print #DateiNr, 1

  Close #DateiNr

Else

  Print "block"

End If



Sleep

If LockMode=0 Then Kill "lock"

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.