Buchempfehlung
Windows-Programmierung. Das Entwicklerhandbuch zur WIN32-API
Windows-Programmierung. Das Entwicklerhandbuch zur WIN32-API
"Der" Petzold, das über 1000 Seiten starke Standardwerk zum Win32-API - besonders nützlich u. a. bei der GUI-Programmierung in FreeBASIC! [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

Noch besser ;p

Uploader:Mitgliedcsde_rats
Datum/Zeit:13.10.2007 20:20:22

' Seit wann gibts 'var' in FB!?
'So läuft es auf alle Fälle unter FB0.181f
'Ohne zusätzliche Compilerschalter
dim as integer LockMode, DateiNr
LockMode=0
DateiNr=FREEFILE
Open "lock" For Binary As #DateiNr
    Input #DateiNr, LockMode
Close #DateiNr
Print *IIF(Lockmode, @"Block", @"OK")

If LockMode=0 Then
  OPEN "lock" For Output As #DateiNr
    Print #DateiNr, 1
  Close #DateiNr
End If

Sleep
If LockMode=0 Then Kill "lock"
'..
End