läuft bei euch das Sample c:\ALASKA\XPPW32\SOURCE\samples\apps\ImgView\ImgView.prg ?
ich bekomme, unter Win 7-10, die Fehlermeldung ?
Code: Alles auswählen
IF nDrive == 0
MsgBox( "Das für das Bilderverzeichnis angegebene Laufwerk ist " +;
"ungültig! Bitte überprüfen Sie Ihre Installation und " +;
"stellen Sie sicher, daß XPPRESOURCE einen gültigen " +;
"Pfad enthält!" )
::startDir := CurDrive() + ":\" + CurDir()
::dirTree:rootItem:setData( ::startDir )
nDrive := AScan( ::aDrives, CurDrive() )
ENDIF
also bin ich mit dem Debugger dabei gewesen und stellte fest das er "das" benötigt bei
Code: Alles auswählen
FUNCTION AvailDrives()
...
AEval( aDrives, {|x,i| aDrives[i] := UPPER( aDrives[i] ) } )
RETURN ASort( aDrives )