Buchempfehlung
Mikrocomputertechnik mit Controllern der Atmel AVR-RISC-Familie
Mikrocomputertechnik mit Controllern der Atmel AVR-RISC-Familie
Umfassend, aber leicht verständlich führt dieses Buch in die Programmierung von ATMEL AVR Mikrocontrollern ein. [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

fb:porticula NoPaste

Info
Info / Hilfe Liste
Übersicht / Liste Neu
Datei hochladen Suche
Quellcode suchen Download
Dateidownload

Ganz einfach doppelten Programmstart verhindern

Uploader:MitgliedAndT
Datum/Zeit:13.10.2007 15:29:41

open "lock" for binary as #1
input #1,lmode
if lmode=0 then
    PRINT "OK" : close #1:OPEN "lock" for output as #1:print #1,1 : close #1
else
    Print "block"
end if

sleep
if lmode=0 then KILL "lock"