100 % CPU-Auslastung
Verfasst: Do, 27. Jun 2013 8:44
Ich habe noch ein paar alte Clipperprogramme die unter Win7 32-Bit laufen. diese ziehen aber die CPU auf 100 %. Hat jemand einen tipp, wie ich diese ausschalten, bzw. reduzieren kann.
Das deutschsprachige Forum für Entwickler in der Xbase-Welt, ein Angebot des Deutschsprachige Xbase-Entwickler e. V.
https://xbaseforum.de/
Code: Alles auswählen
FUNC BFBInkey(xx)
LOCAL nKey := 0
if xx == Nil .OR. valType(xx) <> "N"
BFBYield(3) // OL_Yield()
nKey := INKEY()
elseif xx <> 0
BFBYield(3) // OL_Yield()
nKey := INKEY(abs(xx))
else
do while ( ( nKey := INKEY(.1) ) == 0 )
BFBYield(3) // OL_Yield()
enddo
*INKEY(0)
endif
RETURN nKey
FUNC BFBYield( nModus )
static lMitOsLib
local xRet := NIL
if lMitOsLib = nil
BLICPUREL()
lMitOsLib := .t.
if .not. BFBWINNT()
lMitOsLib := .f.
endif
if lMitOsLib
privat cWAWISETI,TT
cWAWISETI := "WAWI_SET.INI"
if file(cWAWISETI)
TT := memoread(cWAWISETI)
TT := STRTRAN(TT," ")
TT := upper(TT)
IF "BFBCPUMIN=N" $ TT
lMitOsLib := .f.
endif
endif
endif
IF lMitOsLib
IF upper(GETE("BFBCPUMIN"))="N"
lMitOsLib := .f.
endif
endif
endif
if lMitOsLib
if nModus = 0
OL_AutoYield( .f. )
elseif nModus = 1
OL_AutoYield( .t. )
elseif nModus = 3
xRet := OL_Yield()
endif
endif
return xRet