[Vm-dev] FreeType fonts scan annoyance on windows

[Igor Stasenko]

If you're on Windows, a freetype searching fonts everywhere on all
drive letters.
This causes opening annoying 'Insert disk in drive X:' dialog.

guessWindowsFontFolderPath
	"Guess the location of the Windows font folder"
	| possibles |

	possibles := Set new.
	'cdefghijklmnopqrstuvwxyz' do:[:drive |
		#('\windows\fonts' '\winnt\fonts') do:[:path | | d |
			(d := FileDirectory on: drive asString, ':', path) exists
				ifTrue:[possibles add: d]]].
	possibles := possibles asSortedCollection: [:a :b | a directoryEntry
creationTime >= b  directoryEntry creationTime].
	possibles ifNotEmpty:[^possibles first pathName].
	^nil
			
Here what i found occasionally, when read ReadFile() function
documentation in MSDN:

If you are attempting to read from a floppy drive that does not have a
floppy disk, the system displays a message box that prompts the user
to retry the operation. To prevent the system from displaying this
message box, call the SetErrorMode function with
SEM_NOOPENFILEERRORBOX.

But it will require changing VM to call SetErrorMode() during startup
to prevent these promts from appearing.

-- 
Best regards,
Igor Stasenko AKA sig.