Determine if only one instance is running: Difference between revisions
Content added Content deleted
(Added Wren) |
(Determine if only one instance is running en FreeBASIC) |
||
Line 443: | Line 443: | ||
called as register(aname,<0.42.0>) |
called as register(aname,<0.42.0>) |
||
</pre> |
</pre> |
||
=={{header|FreeBASIC}}== |
|||
<lang freebasic>Shell("tasklist > temp.txt") |
|||
Dim linea As String |
|||
Open "temp.txt" For Input As #1 |
|||
Do While Not Eof(1) |
|||
Line Input #1, linea |
|||
If Instr(linea, "fbc.exe") = 0 Then Print "Task is Running" : Exit Do |
|||
Loop |
|||
Close #1 |
|||
Shell("del temp.txt") |
|||
Sleep</lang> |
|||
=={{header|Go}}== |
=={{header|Go}}== |