Threads

[vonTurnundTaxis]

Ich rufe die Prozedur

Code: Alles auswählen

Procedure Error(anti_error)
  If anti_error = #Enabled
    Repeat
      If Errorcode$ <> ""
        If IsScreenActive() = #True
          CloseScreen()
        EndIf
        OpenPreferences("DATA\messages.ini")
        errortitle$ = ReadPreferenceString("Error_Title","Es ist ein Fehler Aufgetreten")
        errortext$ = ReadPreferenceString(Errorcode$ + "_Error","Es ist ein unbekannter Fehler aufgetreten!")
        ClosePreferences()
        MessageRequester(errortitle$,errortext$,#MB_ICONERROR)
        End
      EndIf
    ForEver
  EndIf
EndProcedure

mit

Code: Alles auswählen

CreateThread(Error(1), #Enabled)

auf.

Allerdings läuft das Programm dann nicht weiter, sondern führt nur noch die Prozedur aus. Was habe ich falsch gemacht???

Danke schon mal!

[remi_meier]

CreateThread(@Error(), #Enabled)

[vonTurnundTaxis]

Blöd von mir (siehe Hilfe), es ist aber das erste Mal, dass ich Threads verwende
Danke...