Für allgemeine Fragen zur Programmierung mit PureBasic.
ts-soft
Beiträge: 22292 Registriert: 08.09.2004 00:57
Computerausstattung: Mainboard: MSI 970A-G43 CPU: AMD FX-6300 Six-Core Processor GraKa: GeForce GTX 750 Ti, 2 GB Memory: 16 GB DDR3-1600 - Dual Channel
Wohnort: Berlin
Beitrag
von ts-soft » 06.08.2018 00:19
Hab den Code wieder gefunden und Fehler erkannt. Leider zu spät, da Projekt bereits ein paar Jahre auf Eis liegt
Code: Alles auswählen
Procedure FolderSpyLeft(*SLook.Look)
Protected exit, hchangeobject
While ThreadLeftStop = #False
hchangeobject = FindFirstChangeNotification_(*SLook\Directory, 0, #FILE_NOTIFY_CHANGE_FILE_NAME | #FILE_NOTIFY_CHANGE_DIR_NAME | #FILE_NOTIFY_CHANGE_LAST_WRITE | #FILE_NOTIFY_CHANGE_ATTRIBUTES)
If WaitForSingleObject_(hchangeobject, *SLook\milliseconds) = 0
ThreadLeftStop = #True
Continue
EndIf
FindNextChangeNotification_(hchangeobject)
Wend
EndProcedure
Gruß
Thomas
silbersurfer
Beiträge: 174 Registriert: 06.07.2014 12:21
Beitrag
von silbersurfer » 06.08.2018 01:11
@TS-Soft
Hab den Code wieder gefunden und Fehler erkannt. Leider zu spät, da Projekt bereits ein paar Jahre auf Eis liegt
kein Problem hatte ich auch nur als vergleich herangezogen, da ich mich mit deinen Projekt viel ausseinader gesetzt hatte (Vorbildfunktion)
Intel Quad Core 3,2 Ghz - GTX 1060 - BlitzBasic Plus 1.48 , PureBasic 5.70 LTS / Aktuelles Projekt
PureCommander